आपके कंप्यूटर के उपयोग को स्वचालित करने के लिए 5 उपयोगी वीबी विंडोज स्क्रिप्ट

आपके कंप्यूटर के उपयोग को स्वचालित करने के लिए 5 उपयोगी वीबी विंडोज स्क्रिप्ट

चाहे आप एक आईटी विश्लेषक हों या एक नियमित कंप्यूटर उपयोगकर्ता, ऐसे बहुत से कार्य हैं जिन्हें आपको अपने पीसी पर बार-बार करने की आवश्यकता हो सकती है। वीबी लिपियों को विजुअल बेसिक प्रोग्रामों में छोटा किया जाता है जो विंडोज स्क्रिप्ट के रूप में काम करते हैं जो आपके कंप्यूटर हार्डवेयर के बारे में महत्वपूर्ण जानकारी खींचने से लेकर सेवाओं को रोकने और शुरू करने या आपके नेटवर्क कार्ड को रीसेट करने तक कुछ भी कर सकते हैं।





यह सीखना संभव है कि उन सभी व्यक्तिगत चीजों को सामान्य तरीके से कैसे करें, या बैच फ़ाइलों का उपयोग करके उन्हें कैसे करें। परंतु VB स्क्रिप्ट बैच स्क्रिप्ट से बेहतर हैं क्योंकि वे अधिक लचीले होते हैं। यदि आप निम्न लिपियों को एक सामान्य स्थान पर संग्रहीत करते हैं जो आपको आवश्यकता पड़ने पर जल्दी मिल जाती है, तो आप इन कार्यों को समय के एक अंश में पूरा कर सकते हैं। आप बस स्क्रिप्ट पर डबल-क्लिक करें, एक संकेत का उत्तर दें, और कार्य पूरा हो गया है।



निम्नलिखित वीबी विंडोज स्क्रिप्ट पर एक नज़र डालें और यदि आपको कोई ऐसी स्क्रिप्ट दिखाई देती है जिसका आप उपयोग करना चाहते हैं, तो बस स्क्रिप्ट को कॉपी और पेस्ट करें नोटपैड या अन्य कोडिंग नोट्स टूल और इसे WSF फ़ाइल के रूप में सहेजें।





अपनी विंडोज़ स्क्रिप्ट तैयार करें

नीचे दी गई प्रत्येक स्क्रिप्ट केवल एक डबल क्लिक के साथ चलेगी, जब तक कि आपने फ़ाइल को .WSF एक्सटेंशन के साथ नाम दिया है, और आपने शुरुआत में कोड भी संलग्न किया है:


और इसके साथ कोड बंद करें:



WScript.Quit

यह सुनिश्चित करता है कि विंडोज आपकी स्क्रिप्ट में लिखी गई भाषा को पहचान लेगा और इसे ठीक से प्रोसेस करेगा।

1. कंप्यूटर की जानकारी के लिए Windows Scripts का उपयोग करें

विंडोज़ डब्लूएमआई, या विंडोज मैनेजमेंट इंस्ट्रुमेंटेशन नामक कुछ प्रदान करता है, जो आपकी स्क्रिप्ट को ऑपरेटिंग सिस्टम के घटकों तक पहुंचने के लिए एक इंटरफ़ेस प्रदान करता है। आप अपने सिस्टम के बारे में वर्तमान लाइव जानकारी प्राप्त करने के लिए वास्तव में WMI के विरुद्ध क्वेरीज़ चला सकते हैं। Microsoft सभी की पूरी सूची प्रदान करता है प्रश्नों की श्रेणियां आप सिस्टम के खिलाफ बना सकते हैं।



हमने कंप्यूटर जानकारी को एक्सेल में खींचने के लिए वीबीए का उपयोग करने का तरीका कवर किया है, लेकिन आप एक्सेल के बाहर एक साधारण वीबी स्क्रिप्ट का उपयोग करके ऐसा ही कर सकते हैं।

इस उदाहरण में हम प्रोसेसर जानकारी (परिवार, निर्माता, और कोर की संख्या), बैटरी जानकारी (विवरण और स्थिति), और तार्किक डिस्क जानकारी (नाम, खाली स्थान शेष, और समग्र आकार) के लिए सिस्टम से पूछताछ करने जा रहे हैं। फिर हम इस सारी जानकारी को आसानी से देखने के लिए एक CSV फ़ाइल में आउटपुट करेंगे।



पहला कदम FileSystemObject को सेट करना है जिसका उपयोग आप 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. रजिस्ट्री सेटिंग्स बदलें, डिफ़ॉल्ट व्यवस्थापक पासवर्ड

निम्नलिखित लिपि के साथ, हम एक पत्थर से दो पक्षियों को मारने जा रहे हैं। यह स्क्रिप्ट आपको दिखाएगी कि कैसे रजिस्ट्री संपादित करें एक वीबी स्क्रिप्ट के साथ। यह आपको एक स्क्रिप्ट भी देगा जो आपको उन रजिस्ट्री सेटिंग्स को संपादित करके डिफ़ॉल्ट विंडोज उपयोगकर्ता नाम और पासवर्ड सेट करने देगी।

यहां देखिए यह कैसे काम करता है। सबसे पहले, चूंकि रजिस्ट्री को संपादित करने के लिए व्यवस्थापक अधिकारों की आवश्यकता होती है, इसलिए आपको अपनी स्क्रिप्ट के लिए उन्नत विशेषाधिकार सेट करने होंगे:

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 Windows स्क्रिप्ट का उपयोग करके किसी भी रजिस्ट्री कुंजी के लिए कोई भी मान लिखने देती है। आपको केवल यह जानना है कि उचित मार्ग है।

स्क्रिप्ट चलाएँ और संकेतों का उत्तर दें।

आपके द्वारा दर्ज किए गए मान सीधे आपके द्वारा स्क्रिप्ट में सेट की गई रजिस्ट्री सेटिंग्स में सम्मिलित हो जाएंगे।

स्क्रिप्ट के साथ खेलें और इसे अपनी पसंद के अनुसार ट्वीक करें। आप अपनी पसंद की कोई भी रजिस्ट्री कुंजी संपादित कर सकते हैं, इसलिए रचनात्मक बनें!

4. अपना नेटवर्क कनेक्शन रीसेट करें

वीबी स्क्रिप्टिंग का उपयोग करके अपने नेटवर्क कनेक्शन को रीसेट करना कुछ ऐसा है जिसे हमने यहां MakeUseOf में पहले कवर किया है। इसका निम्नलिखित संस्करण वास्तव में छोटा किया गया है और इसे लागू करने के लिए बहुत आसान है। अलग-अलग नेटवर्क कार्ड के लिए संकेत देने के बजाय, यह आपके सभी सक्रिय कनेक्शनों को रीसेट करता है, जो उम्मीद है कि आपके पास होने वाली किसी भी नेटवर्क समस्या का समाधान करेगा।

अन्य लिपियों की तरह जिन्हें व्यवस्थापकीय अधिकारों की आवश्यकता होती है, आपको उन्नत विशेषाधिकारों के लिए शुरुआत में अनुभाग जोड़ना होगा। उस कोड को ऊपर की स्क्रिप्ट से कॉपी करें।

इसके बाद, 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. पिंग डिवाइस या वेबसाइट

मैंने अपनी पसंदीदा वीबी विंडोज़ स्क्रिप्ट को आखिरी बार सहेजा है। यह वह है जिसे मैंने वास्तव में अपने होम कंप्यूटर पर एक निर्धारित कार्य के रूप में स्थापित किया है और इसे दिन में कई बार केवल यह जांचने के लिए चलाया है कि मेरी वेबसाइट सक्रिय है या नहीं। अगर साइट डाउन है तो मेरे पास स्क्रिप्ट ईमेल है। आप अपने नेटवर्क पर महत्वपूर्ण सर्वर या कंप्यूटर की निगरानी के लिए इसी स्क्रिप्ट का उपयोग कर सकते हैं और जब भी आपकी स्क्रिप्ट डिवाइस को पिंग नहीं कर सकती है तो खुद को ईमेल करें।

सबसे पहले, उस लक्ष्य के लिए स्क्रिप्ट सेट करें जिसे आप पिंग करना चाहते हैं, शेल ऑब्जेक्ट बनाएं, और फिर पिंग कमांड चलाएँ।

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 का उपयोग करके अपना लिखते हैं, या किसी अन्य टूल का उपयोग करते हैं पावरशेल की तरह ?

साझा करना साझा करना कलरव ईमेल यहां बताया गया है कि एफबीआई ने हाइव रैनसमवेयर के लिए चेतावनी क्यों जारी की

एफबीआई ने रैंसमवेयर के विशेष रूप से खराब तनाव के बारे में चेतावनी जारी की। यहां बताया गया है कि आपको हाइव रैंसमवेयर से विशेष रूप से सावधान रहने की आवश्यकता क्यों है।

आगे पढ़िए संबंधित विषय
  • प्रोग्रामिंग
  • कंप्यूटर स्वचालन
  • स्क्रिप्टिंग
लेखक के बारे में रयान दुबे(९४२ लेख प्रकाशित)

रयान के पास इलेक्ट्रिकल इंजीनियरिंग में बीएससी की डिग्री है। उन्होंने ऑटोमेशन इंजीनियरिंग में १३ साल, आईटी में ५ साल काम किया है, और अब एक ऐप इंजीनियर हैं। MakeUseOf के एक पूर्व प्रबंध संपादक, उन्होंने डेटा विज़ुअलाइज़ेशन पर राष्ट्रीय सम्मेलनों में बात की है और उन्हें राष्ट्रीय टीवी और रेडियो पर चित्रित किया गया है।

रयान दुबे की अन्य फ़िल्में-टीवी शो

हमारे न्यूज़लेटर की सदस्यता लें

तकनीकी युक्तियों, समीक्षाओं, निःशुल्क ई-पुस्तकों और अनन्य सौदों के लिए हमारे न्यूज़लेटर से जुड़ें!

सब्सक्राइब करने के लिए यहां क्लिक करें