আপনার কম্পিউটারের ব্যবহার স্বয়ংক্রিয় করার জন্য 5 উপকারী VB উইন্ডোজ স্ক্রিপ্ট

আপনি একজন আইটি বিশ্লেষক বা নিয়মিত কম্পিউটার ব্যবহারকারী হোন না কেন, আপনার পিসিতে আপনাকে অনেক কাজ করতে হবে। ভিবি স্ক্রিপ্টগুলি ভিসুয়াল বেসিক প্রোগ্রামগুলিকে ছোট করা হয় যা উইন্ডোজ স্ক্রিপ্ট হিসাবে কাজ করে যা আপনার কম্পিউটার হার্ডওয়্যার সম্পর্কে গুরুত্বপূর্ণ তথ্য টানা থেকে শুরু করে পরিষেবা বন্ধ করা এবং শুরু করা বা আপনার নেটওয়ার্ক কার্ড পুনরায় সেট করা পর্যন্ত কিছু করতে পারে।

এই সমস্ত ব্যক্তিগত জিনিসগুলি কীভাবে স্বাভাবিক পদ্ধতিতে করা যায় বা ব্যাচ ফাইলগুলি ব্যবহার করে এটি করা সম্ভব। কিন্তু ব্যাচ স্ক্রিপ্টের চেয়ে VB স্ক্রিপ্ট ভালো কারণ তারা বেশি নমনীয়। যদি আপনি নিম্নলিখিত স্ক্রিপ্টগুলিকে একটি সাধারণ জায়গায় সংরক্ষণ করেন যা আপনার প্রয়োজনের সময় দ্রুত পৌঁছে যায়, তাহলে আপনি সময়ের কিছু অংশে এই কাজগুলি সম্পন্ন করতে পারেন। আপনি কেবল স্ক্রিপ্টটিতে ডাবল ক্লিক করুন, একটি প্রম্পটের উত্তর দিন এবং কাজটি সম্পন্ন হয়েছে।

---

---

নিম্নলিখিত VB উইন্ডোজ স্ক্রিপ্টগুলি দেখুন এবং যদি আপনি কোনটি ব্যবহার করতে চান তবে কেবল স্ক্রিপ্টটি অনুলিপি করুন এবং আটকান নোটপ্যাড বা অন্যান্য কোডিং নোট টুল এবং এটি একটি WSF ফাইল হিসাবে সংরক্ষণ করুন।

আপনার উইন্ডোজ স্ক্রিপ্ট প্রস্তুত করুন

নীচে বর্ণিত প্রতিটি স্ক্রিপ্ট কেবল একটি ডাবল ক্লিকের সাথে চলবে যতক্ষণ আপনি ফাইলটির নাম .WSF এক্সটেনশন দিয়ে রেখেছেন এবং আপনি শুরুতে কোডটি সংযুক্ত করেছেন:




এবং এর সাথে কোডটি বন্ধ করুন:

WScript.Quit



এটি নিশ্চিত করে যে উইন্ডোজ আপনার স্ক্রিপ্টটি যে ভাষায় লেখা হয়েছে তা চিনবে এবং এটি সঠিকভাবে প্রক্রিয়া করবে।

1. কম্পিউটারের তথ্যের জন্য উইন্ডোজ স্ক্রিপ্ট ব্যবহার করুন

উইন্ডোজ WMI বা উইন্ডোজ ম্যানেজমেন্ট ইন্সট্রুমেন্টেশন নামে কিছু অফার করে, যা আপনার স্ক্রিপ্টকে অপারেটিং সিস্টেমের উপাদানগুলি অ্যাক্সেস করার জন্য একটি ইন্টারফেস প্রদান করে। আপনার সিস্টেম সম্পর্কে বর্তমান লাইভ তথ্য পেতে আপনি আসলে WMI এর বিরুদ্ধে প্রশ্ন চালাতে পারেন। মাইক্রোসফট সবগুলির একটি সম্পূর্ণ তালিকা সরবরাহ করে প্রশ্নগুলির বিভাগ আপনি সিস্টেমের বিরুদ্ধে করতে পারেন।

---

---

এক্সেলের মধ্যে কম্পিউটারের তথ্য টানতে কিভাবে ভিবিএ ব্যবহার করতে হয় তা আমরা কভার করেছি, কিন্তু এক্সেলের বাইরে একটি সাধারণ ভিবি স্ক্রিপ্ট ব্যবহার করে আপনি একই কাজ করতে পারেন।

এই উদাহরণে আমরা প্রসেসর তথ্য (পরিবার, প্রস্তুতকারক এবং কোর সংখ্যা), ব্যাটারি তথ্য (বিবরণ এবং স্থিতি), এবং লজিক্যাল ডিস্ক তথ্য (নাম, খালি স্থান অবশিষ্ট, এবং সামগ্রিক আকার) এর জন্য সিস্টেম জিজ্ঞাসা করতে যাচ্ছি। তারপর আমরা সহজেই দেখার জন্য এই সমস্ত তথ্য একটি 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. রেজিস্ট্রি সেটিংস, ডিফল্ট অ্যাডমিন পাসওয়ার্ড পরিবর্তন করুন

নিম্নলিখিত স্ক্রিপ্ট দিয়ে, আমরা একটি পাথর দিয়ে দুটি পাখি মারতে যাচ্ছি। কিভাবে এই স্ক্রিপ্ট দেখাবে রেজিস্ট্রি সম্পাদনা করুন একটি 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 উইন্ডোজ স্ক্রিপ্ট ব্যবহার করে যে কোন রেজিস্ট্রি কীতে কোন মান লিখতে দেয়। আপনাকে যা জানতে হবে তা হল উপযুক্ত পথ।

স্ক্রিপ্টটি চালান এবং প্রম্পটগুলির উত্তর দিন।

আপনার লেখা মানগুলি স্ক্রিপ্টে সেট করা রেজিস্ট্রি সেটিংসে ertedোকানো হবে।

স্ক্রিপ্টটি নিয়ে খেলুন এবং এটি আপনার পছন্দ অনুসারে পরিবর্তন করুন। আপনি আপনার পছন্দ মত কোন রেজিস্ট্রি কী সম্পাদনা করতে পারেন, তাই সৃজনশীল হোন!

4. আপনার নেটওয়ার্ক সংযোগ পুনরায় সেট করুন

VB স্ক্রিপ্টিং ব্যবহার করে আপনার নেটওয়ার্ক সংযোগ রিসেট করা এমন কিছু যা আমরা এখানে 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. পিং ডিভাইস বা ওয়েবসাইট

আমি শেষ পর্যন্ত আমার প্রিয় 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 এর সাথে স্বয়ংক্রিয় ব্যাকআপ, টেলনেট কমান্ড স্বয়ংক্রিয় করা, অথবা এমনকি অ্যাপ্লিকেশন উইন্ডো খুলতে এবং নিয়ন্ত্রণ করার মতো আরও অনেক কাজ আছে।

উইন্ডোজ স্ক্রিপ্ট দিয়ে আপনার কম্পিউটারে স্বয়ংক্রিয় কিছু জিনিস কি? আপনি কি VB ব্যবহার করে আপনার লেখেন, অথবা অন্য কোন টুল ব্যবহার করেন পাওয়ারশেলের মত ?

শেয়ার করুন শেয়ার করুন টুইট ইমেইল এফবিআই কেন মধু রans্যানসমওয়্যারের জন্য সতর্কতা জারি করেছে

এফবিআই একটি বিশেষ করে র‍্যানসমওয়্যারের কদর্য স্ট্রেন সম্পর্কে একটি সতর্কতা জারি করেছে। এখানে আপনাকে বিশেষ করে Hive ransomware সম্পর্কে সতর্ক থাকতে হবে।

পরবর্তী পড়ুন সম্পর্কিত বিষয়

• প্রোগ্রামিং
• কম্পিউটার অটোমেশন
• স্ক্রিপ্টিং

লেখক সম্পর্কে রায়ান দুবে(942 নিবন্ধ প্রকাশিত)

রায়ানের ইলেকট্রিক্যাল ইঞ্জিনিয়ারিংয়ে বিএসসি ডিগ্রি আছে। তিনি 13 বছর অটোমেশন ইঞ্জিনিয়ারিং, 5 বছর আইটি, এবং এখন একজন অ্যাপস ইঞ্জিনিয়ার। মেক ইউসঅফের একজন প্রাক্তন ব্যবস্থাপনা সম্পাদক, তিনি ডেটা ভিজ্যুয়ালাইজেশন সম্পর্কিত জাতীয় সম্মেলনে কথা বলেছেন এবং জাতীয় টিভি এবং রেডিওতে বৈশিষ্ট্যযুক্ত হয়েছেন।

রায়ান দুবে থেকে আরো

আমাদের নিউজলেটার সদস্যতা

প্রযুক্তি টিপস, রিভিউ, ফ্রি ইবুক এবং এক্সক্লুসিভ ডিলের জন্য আমাদের নিউজলেটারে যোগ দিন!

সাবস্ক্রাইব করতে এখানে ক্লিক করুন