Home-theater-designers
چاہے آپ آئی ٹی تجزیہ کار ہوں یا کمپیوٹر کے باقاعدہ استعمال کنندہ ، آپ کے کمپیوٹر پر بہت سارے کام ہیں جن کی آپ کو اکثر ضرورت پڑسکتی ہے۔ وی بی سکرپٹ کو بصری بنیادی پروگراموں میں تقسیم کیا جاتا ہے جو ونڈوز سکرپٹ کے طور پر کام کرتے ہیں جو آپ کے کمپیوٹر ہارڈویئر کے بارے میں اہم معلومات کو کھینچنے ، خدمات کو روکنے اور شروع کرنے یا آپ کے نیٹ ورک کارڈ کو دوبارہ ترتیب دینے تک کچھ بھی کر سکتے ہیں۔
یہ سیکھنا ممکن ہے کہ ان تمام انفرادی کاموں کو عام طریقے سے کیسے کریں ، یا بیچ فائلوں کا استعمال کرتے ہوئے کریں۔ لیکن بی بی سکرپٹ بیچ سکرپٹ سے بہتر ہیں۔ کیونکہ وہ زیادہ لچکدار ہیں۔ اگر آپ مندرجہ ذیل سکرپٹ کو کسی عام جگہ پر محفوظ کرتے ہیں جو آپ کو ضرورت کے وقت پہنچنے میں جلدی ہوتی ہے تو آپ ان کاموں کو وقت کے ایک حصے میں پورا کر سکتے ہیں۔ آپ صرف اسکرپٹ پر ڈبل کلک کریں ، فوری جواب دیں ، اور کام مکمل ہو گیا۔
مندرجہ ذیل VB ونڈوز سکرپٹ پر ایک نظر ڈالیں اور اگر آپ کو کوئی نظر آتا ہے جسے آپ استعمال کرنا چاہتے ہیں تو صرف اسکرپٹ کو کاپی اور پیسٹ کریں نوٹ پیڈ یا دیگر کوڈنگ نوٹ کا آلہ۔ اور اسے WSF فائل کے طور پر محفوظ کریں۔
اپنی ونڈوز سکرپٹ تیار کریں۔
نیچے دی گئی ہر سکرپٹ صرف ایک ڈبل کلک کے ساتھ چلے گی جب تک کہ آپ نے فائل کو .WSF ایکسٹینشن کے ساتھ نام دیا ہے ، اور آپ نے شروع میں کوڈ بھی اس کے ساتھ منسلک کیا ہے:
اور کوڈ کو اس کے ساتھ بند کریں:
WScript.Quit
یہ یقینی بناتا ہے کہ ونڈوز اس زبان کو پہچان لے گی جس میں آپ کا سکرپٹ لکھا گیا ہے ، اور اس پر مناسب طریقے سے عملدرآمد کیا جائے گا۔
1. کمپیوٹر کی معلومات کے لیے ونڈوز سکرپٹ استعمال کریں۔
ونڈوز WMI ، یا ونڈوز مینجمنٹ انسٹرومینٹیشن نامی چیز پیش کرتا ہے ، جو آپ کے سکرپٹ کو آپریٹنگ سسٹم کے اجزاء تک رسائی کے لیے انٹرفیس فراہم کرتا ہے۔ آپ اپنے سسٹم کے بارے میں موجودہ لائیو معلومات حاصل کرنے کے لیے WMI کے خلاف در حقیقت سوالات چلا سکتے ہیں۔ مائیکروسافٹ تمام کی مکمل فہرست پیش کرتا ہے۔ سوالات کے زمرے آپ سسٹم کے خلاف کر سکتے ہیں۔
ہم نے کمپیوٹر کی معلومات کو ایکسل میں کھینچنے کے لیے وی بی اے کا استعمال کرنے کے طریقے کا احاطہ کیا ہے ، لیکن آپ ایکسل سے باہر ایک سادہ وی بی اسکرپٹ کا استعمال کرتے ہوئے یہ کام کر سکتے ہیں۔
اس مثال میں ہم پروسیسر کی معلومات (خاندان ، کارخانہ دار ، اور کورز کی تعداد) ، بیٹری کی معلومات (تفصیل اور حیثیت) ، اور منطقی ڈسک کی معلومات (نام ، خالی جگہ باقی ، اور مجموعی سائز) کے لیے سسٹم سے استفسار کرنے جا رہے ہیں۔ پھر ہم یہ تمام معلومات CSV فائل میں آسانی سے دیکھنے کے لیے پیش کریں گے۔
پہلا مرحلہ یہ ہے کہ آپ فائل سسٹم سسٹم کو سیٹ کریں جو آپ CSV فائل میں آؤٹ پٹ کرنے کے لیے استعمال کریں گے ، اور فائل بنائیں:
Set oFSO = CreateObject('Scripting.FileSystemObject')
sFile1 = 'MyComputerInfo.csv'
Set oFile1 = oFSO.CreateTextFile(sFile1, 1)اگلا مرحلہ WMI استفسار قائم کرنا اور اس پر عمل کرنا ہے:
ای میل کو آؤٹ لک سے جی میل پر بھیجیں۔
strQuery = 'SELECT Family,Manufacturer,NumberOfCores FROM Win32_Processor'
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )آخر میں ، نتائج کو ترتیب دیں اور معلومات کو CSV فائل میں بھیجیں۔ اگر آپ فینسی بننا چاہتے ہیں تو اس کو چند لائنوں کے ساتھ پیش کریں تاکہ آپ کی آؤٹ پٹ فائل کو بہتر نظر آئے۔
oFile1.WriteLine 'Processor Information'
oFile1.WriteLine '------'
For Each objResult In colResults
strResults = 'Family:,'+CStr(objResult.Family)
oFile1.WriteLine strResults
strResults = 'Manufacturer:,'+CStr(objResult.Manufacturer)
oFile1.WriteLine strResults
strResults = 'Number of Cores:,'+CStr(objResult.NumberOfCores)
oFile1.WriteLine strResults
Nextاگر آپ ابھی اپنا کوڈ چلاتے ہیں تو ، آپ کا آؤٹ پٹ اس طرح نظر آئے گا:
اپنے کوڈ کے اگلے دو حصوں کے لیے ، آپ اضافی معلومات کی تلاش کے لیے سوال کو دوبارہ دہرائیں گے اور تبدیل کریں گے۔ بیٹری سے متعلق معلومات کا سوال یہ ہے:
oFile1.WriteLine ''
strQuery = 'SELECT Description,Status FROM Win32_Battery'
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )
oFile1.WriteLine 'Battery Information'
oFile1.WriteLine '------'
For Each objResult In colResults
strResults = 'Status:,'+CStr(objResult.Description)
oFile1.WriteLine strResults
strResults = 'Description:,'+CStr(objResult.Status)
oFile1.WriteLine strResults
Nextاور منطقی ڈسک کے استفسار کے لیے اگلا حصہ یہ ہے:
oFile1.WriteLine ''
strQuery = 'Select Name, FreeSpace, Size from Win32_LogicalDisk'
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )
oFile1.WriteLine 'Disk Information'
oFile1.WriteLine '------'
'Identify the Logical Disk Space
For Each objResult In colResults
strResults = 'Name:,'+CStr(objResult.Name)
oFile1.WriteLine strResults
strResults = 'Free Space:,'+CStr(objResult.FreeSpace)
oFile1.WriteLine strResults
strResults = 'Disk Size:,'+CStr(objResult.Size)
oFile1.WriteLine strResults
Nextآخر میں ، فائل کو بند کرکے اور اشیاء کو 'کچھ نہیں' پر سیٹ کرکے کوڈ کو بند کرنا یاد رکھیں:
oFile1.Close
Set oFile1 = Nothing
set colResults = Nothing
strResults = ''اس تمام کوڈ کو اپنی نئی .WSF فائل میں ڈالیں ، اسے چلائیں ، اور یہاں آپ کی آؤٹ پٹ کیسی ہوگی:
کسی بھی دوسرے کمپیوٹر ڈیوائسز یا سافٹ وئیر کے لیے جس کے بارے میں آپ معلومات حاصل کرنا چاہتے ہیں ، اوپر دیئے گئے سوالات کو صرف تبدیل کریں ، اور جب بھی آپ چاہیں ماؤس کے ایک کلک سے آپ مکمل سسٹم رپورٹ حاصل کر سکتے ہیں۔
2. بند کرو اور خدمات شروع کرو۔
ایسے وقت آئیں گے جب بعض سروسز کو مسائل درپیش ہوں گے ، اور انہیں دوبارہ چلانے کے لیے فوری طور پر دوبارہ شروع کرنے کی ضرورت ہوگی۔ یہ خاص طور پر ہے۔ آئی ٹی میں سچ جب آپ کو سرور سافٹ ویئر چلانے پر مجبور کیا جاتا ہے جو کبھی کبھی تھوڑا سا چھوٹا ہوتا ہے۔
اگر آپ سروس دوبارہ شروع کرنے کے عمل سے ایک منٹ یا اس سے زیادہ منڈانا چاہتے ہیں تو ، درج ذیل سکرپٹ کو کسی مناسب جگہ پر محفوظ کریں۔ یہ آپ کو اس سروس کے نام ٹائپ کرنے کا اشارہ کرے گا جسے آپ دوبارہ شروع کرنا چاہتے ہیں ، اور پھر یہ بالکل ایسا ہی کرے گا۔
چونکہ خدمات کو روکنا اور شروع کرنا انتظامی استحقاق کا تقاضا کرتا ہے ، لہذا آپ کو اپنا اسکرپٹ دینے کے لیے درج ذیل کوڈ کو اپنے اسکرپٹ کے آغاز پر رکھنا ہوگا اعلی مراعات :
If Not WScript.Arguments.Named.Exists('elevate') Then
CreateObject('Shell.Application').ShellExecute WScript.FullName _
, '''' & WScript.ScriptFullName & ''' /elevate', '', 'runas', 1
WScript.Quit
End Ifایک بار جب یہ مکمل ہوجائے تو ، صارف کے ان پٹ کے لیے ان پٹ باکس چلانے کے لیے باقی کوڈ شامل کریں ، کمانڈ ونڈو لانچ کریں ، اور اسے 'نیٹ سٹاپ' اور 'نیٹ اسٹارٹ کمانڈز' بھیجیں:
Set cmdShell = CreateObject('WScript.Shell')
strServiceName=Inputbox('Inter Service to Stop','Input Required')
cmdShell.Run 'cmd.exe'
WScript.Sleep 1000
cmdShell.SendKeys 'net stop '+strServiceName
cmdShell.SendKeys '{Enter}'
WScript.Sleep 1000
cmdShell.SendKeys 'net start '+strServiceName
cmdShell.SendKeys '{Enter}'
WScript.Sleep 1000
cmdShell.SendKeys 'Exit'
cmdShell.SendKeys '{Enter}'بس اتنا ہی ہے۔ خدمات کے آلے کو تلاش کرنے کی ضرورت نہیں ہے۔ بس اس سکرپٹ کو چلائیں اور رکیں اور سیکنڈ میں کوئی بھی سروس شروع کریں۔
3. رجسٹری کی ترتیبات ، ڈیفالٹ ایڈمن پاس ورڈ تبدیل کریں۔
مندرجہ ذیل اسکرپٹ کے ساتھ ، ہم ایک پتھر سے دو پرندوں کو مارنے جا رہے ہیں۔ یہ اسکرپٹ آپ کو دکھائے گا کہ کیسے۔ رجسٹری میں ترمیم کریں VB اسکرپٹ کے ساتھ۔ یہ آپ کو ایک اسکرپٹ بھی دے گا جو آپ کو رجسٹری کی ترتیبات میں ترمیم کرکے ڈیفالٹ ونڈوز صارف نام اور پاس ورڈ سیٹ کرنے دے گا۔
یہ کیسے کام کرتا ہے سب سے پہلے ، چونکہ رجسٹری میں ترمیم کرنے کے لیے منتظم کے حقوق درکار ہوتے ہیں ، آپ کو اپنے سکرپٹ کے لیے اعلیٰ مراعات قائم کرنے کی ضرورت ہوگی۔
If Not WScript.Arguments.Named.Exists('elevate') Then
CreateObject('Shell.Application').ShellExecute WScript.FullName _
, '''' & WScript.ScriptFullName & ''' /elevate', '', 'runas', 1
WScript.Quit
End Ifسب سے پہلے دو ان پٹ بکس چلائیں صارف سے پوچھیں کہ کون سا صارف نام اور پاس ورڈ استعمال کرنا ہے:
strUserName=Inputbox('Enter the default User Name','Input Required')
strPassword=Inputbox('Enter the default Password','Input Required')اگلا ، شیل آبجیکٹ مرتب کریں ، اور ان اقدار کو مناسب رجسٹری کیز پر لکھیں:
Set wshShell = CreateObject( 'WScript.Shell' )
wshShell.RegWrite 'HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogonDefaultUserName', strUserName, 'REG_SZ'
wshShell.RegWrite 'HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogonDefaultPassword', strPassword, 'REG_SZ'
Set wshShell = Nothingاور بس اتنا ہی ہے۔ 'RegWrite' طریقہ آپ کو VB ونڈوز اسکرپٹ کا استعمال کرتے ہوئے کسی بھی رجسٹری کلید پر کوئی قیمت لکھنے دیتا ہے۔ آپ کو صرف اتنا جاننا ہے کہ مناسب راستہ ہے۔
اسکرپٹ چلائیں اور اشاروں کا جواب دیں۔
آپ جو اقدار داخل کرتے ہیں وہ رجسٹری کی ترتیبات میں داخل ہوجائیں گی جو آپ نے اسکرپٹ میں ترتیب دی ہیں۔
اسکرپٹ کے ساتھ کھیلیں اور اسے اپنی پسند کے مطابق بنائیں۔ آپ اپنی پسند کی کسی بھی رجسٹری کیز میں ترمیم کرسکتے ہیں ، لہذا تخلیقی بنیں!
4. اپنے نیٹ ورک کنکشن کو دوبارہ ترتیب دیں۔
وی بی اسکرپٹنگ کا استعمال کرتے ہوئے اپنے نیٹ ورک کنکشن کو دوبارہ ترتیب دینا ایک ایسی چیز ہے جس کا ہم نے میک اپ یوف میں یہاں پہلے احاطہ کیا ہے۔ اس کا درج ذیل ورژن دراصل کم کر دیا گیا ہے اور اس پر عمل درآمد بہت آسان ہے۔ انفرادی نیٹ ورک کارڈز کے لیے اشارہ کرنے کے بجائے ، یہ آپ کے تمام فعال رابطوں کو دوبارہ ترتیب دیتا ہے جو امید ہے کہ آپ کے نیٹ ورک کے کسی بھی مسئلے کو حل کریں گے۔
دیگر اسکرپٹس کی طرح جنہیں ایڈمن کے حقوق درکار ہوتے ہیں ، آپ کو اعلی مراعات کے لیے شروع میں سیکشن شامل کرنے کی ضرورت ہوگی۔ مذکورہ اسکرپٹ سے اس کوڈ کو کاپی کریں۔
اگلا ، WMI آبجیکٹ بنائیں اور اپنے سسٹم پر فعال نیٹ ورک اڈاپٹر کی فہرست کے لیے اس سے استفسار کریں:
strComputer = '.'
Set objWMIService = GetObject('winmgmts:\' & strComputer & 'ootCIMV2')
Set colItems = objWMIService.ExecQuery( _
'SELECT * FROM Win32_NetworkAdapter Where NetEnabled = 'True'')آخر میں ، تمام فعال اڈاپٹر کے ذریعے لوپ کریں اور انہیں دوبارہ ترتیب دیں:
For Each objItem in colItems
objItem.Disable
WScript.Sleep 1000
objItem.Enable
Nextیہ آپ سب کو دوبارہ ترتیب دے گا۔ فعال نیٹ ورک اڈاپٹر ، جو اکثر پریشان کن نیٹ ورک کے مسائل کو حل کرنے کا تیز ترین طریقہ ہے۔ اس سکرپٹ کو ہاتھ میں رکھیں اور جب بھی آپ کو سست نیٹ ورک یا دیگر عجیب نیٹ ورک کے مسائل درپیش ہوں اسے پہلے آزمائیں۔
5. پنگ ڈیوائسز یا ویب سائٹس۔
میں نے اپنی پسندیدہ VB ونڈوز اسکرپٹ کو آخری بار محفوظ کیا ہے۔ یہ وہ کام ہے جسے میں نے اصل میں اپنے گھر کے کمپیوٹر پر شیڈول ٹاسک کے طور پر ترتیب دیا ہے اور اسے دن میں کئی بار چلانے کے لیے صرف یہ چیک کرنے کے لیے کہ میری ویب سائٹ فعال ہے یا نہیں۔ میرے پاس اسکرپٹ ہے مجھے ای میل کریں اگر سائٹ بند ہے۔ آپ اپنے نیٹ ورک پر اہم سرورز یا کمپیوٹرز کی نگرانی کے لیے اسی سکرپٹ کا استعمال کر سکتے ہیں اور جب بھی آپ کا سکرپٹ ڈیوائس کو پنگ نہیں دے سکتا ہے اپنے آپ کو ای میل کریں۔
پہلے ، اس ہدف کے لیے اسکرپٹ ترتیب دیں جسے آپ پنگ کرنا چاہتے ہیں ، شیل آبجیکٹ بنائیں ، اور پھر پنگ کمانڈ چلائیں۔
strTarget = 'topsecretwriters.com'
Set WshShell = WScript.CreateObject('WScript.Shell')
Ping = WshShell.Run('ping -n 1 ' & strTarget, 0, True)پنگ کے نتائج کو چلانے کے لیے سلیکٹ کیس اسٹیٹمنٹ کا استعمال کریں اور اس کے مطابق جواب دیں۔ اگر نتائج صفر کے طور پر واپس آتے ہیں ، تو آپ جانتے ہیں کہ سائٹ (یا سرور) آن لائن ہے اور آپ کو کچھ کرنے کی ضرورت نہیں ہے۔ اگر یہ '1' لوٹاتا ہے تو پنگ ناکام ہوگئی اور آپ کو کچھ کرنے کی ضرورت ہے۔ میرے معاملے میں ، میں ونڈوز سی ڈی او آبجیکٹ کا استعمال کرتے ہوئے ایک ای میل بھیجتا ہوں:
Select Case Ping
Case 0
Case 1
Set objMessage = CreateObject('CDO.Message')
Set objConfig = CreateObject('CDO.Configuration')
objConfig.Load -1
Set Flds = objConfig.Fields
With Flds
.Item ('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Item ('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate')=1
.Item ('http://schemas.microsoft.com/cdo/configuration/sendusername')='xxxxxx@gmail.com'
.Item ('http://schemas.microsoft.com/cdo/configuration/sendpassword')='xxxxxxxxxxxxxxxxx'
.Item ('http://schemas.microsoft.com/cdo/configuration/smtpserver')='smtp.gmail.com'
.Item ('http://schemas.microsoft.com/cdo/configuration/sendusing')=2
.Item ('http://schemas.microsoft.com/cdo/configuration/smtpserverport')=465
.Update
End With
With objMessage
Set .Configuration = objConfig
.Subject = 'Your site is offline'
.From = 'me@mycomputer.com'
.To = 'xxxxxx@gmail.com'
.TextBody = 'Hey, your website is offline.'
.Send
End With
End Selectایک بار جب اسکرپٹ چلتا ہے اور آلہ یا ویب سائٹ کو پنگ نہیں کر سکتا ، آپ کو فوری پیغام ملتا ہے۔
یہ تیز اور آسان ہے ، اور ہر موثر!
اپنے کمپیوٹر کو کنٹرول کرنے کے لیے VB ونڈوز سکرپٹ کا استعمال۔
یہ کچھ ٹھنڈی چیزوں کی صرف چند مثالیں ہیں جو آپ اپنے کمپیوٹر کے استعمال کو ہموار کرنے کے لیے VB اسکرپٹنگ کے ساتھ کر سکتے ہیں۔ بہت سی دوسری چیزیں ہیں جو آپ کر سکتے ہیں جیسے VB اور Synctoy کے ساتھ خودکار بیک اپ ، خودکار ٹیل نیٹ کمانڈز ، یا ایپلیکیشن ونڈوز کو کھولنا اور کنٹرول کرنا۔
آپ نے اپنے کمپیوٹر پر ونڈوز سکرپٹ کے ذریعے خودکار کردہ کچھ چیزیں کیا ہیں؟ کیا آپ وی بی کا استعمال کرتے ہوئے لکھتے ہیں ، یا کوئی اور ٹول استعمال کرتے ہیں۔ پاور شیل کی طرح ؟
بانٹیں بانٹیں ٹویٹ ای میل۔ یہ ہے کہ ایف بی آئی نے Hive Ransomware کے لیے انتباہ کیوں جاری کیا۔ایف بی آئی نے ransomware کے خاص طور پر گندے تناؤ کے بارے میں انتباہ جاری کیا۔ یہاں آپ کو Hive ransomware سے خاص طور پر ہوشیار رہنے کی ضرورت ہے۔
اگلا پڑھیں۔ متعلقہ موضوعات۔- پروگرامنگ۔
- کمپیوٹر آٹومیشن۔
- اسکرپٹنگ۔
ریان نے الیکٹریکل انجینئرنگ میں بی ایس سی کی ڈگری حاصل کی ہے۔ اس نے 13 سال آٹومیشن انجینئرنگ میں ، 5 سال آئی ٹی میں ، اور اب ایک ایپس انجینئر ہے۔ MakeUseOf کے سابق منیجنگ ایڈیٹر ، انہوں نے ڈیٹا ویژوئلائزیشن پر قومی کانفرنسوں میں بات کی اور قومی ٹی وی اور ریڈیو پر نمایاں رہے۔
ریان ڈوبے سے مزیدہماری نیوز لیٹر کو سبسکرائب کریں
ٹیک ٹپس ، جائزے ، مفت ای بکس ، اور خصوصی سودوں کے لیے ہمارے نیوز لیٹر میں شامل ہوں!
سبسکرائب کرنے کے لیے یہاں کلک کریں۔