VBScript দিয়ে বাস্তব জীবনের প্রকল্প তৈরি

ভিবিস্ক্রিপ্ট (VBScript) একটি সাধারণ এবং শক্তিশালী স্ক্রিপ্টিং ভাষা যা উইন্ডোজ প্ল্যাটফর্মে ব্যবহার করা হয়। এটি মূলত সহজ স্বয়ংক্রিয় কাজগুলো এবং সিস্টেম প্রশাসন সম্পর্কিত কাজের জন্য ব্যবহৃত হয়। ভিবিস্ক্রিপ্ট দিয়ে বিভিন্ন বাস্তব জীবনের প্রকল্প তৈরি করা যেতে পারে, যেমন ফাইল ম্যানিপুলেশন, ডাটাবেস ইন্টিগ্রেশন, সিস্টেম অটোমেশন, বা ওয়েব সার্ভিস ব্যবহারের জন্য স্ক্রিপ্ট তৈরি করা।

এই টিউটোরিয়ালে, আমরা কিছু বাস্তব জীবনের প্রকল্পের উদাহরণ দেখব, যা VBScript দিয়ে তৈরি করা যেতে পারে।

১. ফাইল ব্যাকআপ স্ক্রিপ্ট (File Backup Script)

ফাইল ব্যাকআপ একটি সাধারণ কিন্তু গুরুত্বপূর্ণ কাজ। আপনি VBScript ব্যবহার করে একটি ফাইল ব্যাকআপ স্ক্রিপ্ট তৈরি করতে পারেন, যা নির্দিষ্ট ফোল্ডার থেকে ফাইল কপি করে অন্য ফোল্ডারে সংরক্ষণ করবে।

প্রকল্প উদাহরণ: ফাইল ব্যাকআপ স্ক্রিপ্ট

Dim fso, sourceFolder, destFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' সোর্স এবং ডেস্টিনেশন ফোল্ডার সেট করা
sourceFolder = "C:\ImportantFiles"
destFolder = "D:\Backup"

' ফোল্ডার চেক করা, এবং না থাকলে তৈরি করা
If Not fso.FolderExists(destFolder) Then
    fso.CreateFolder(destFolder)
End If

' সোর্স ফোল্ডার থেকে ফাইল কপি করা
If fso.FolderExists(sourceFolder) Then
    fso.CopyFile sourceFolder & "\*", destFolder & "\", True
    MsgBox "ফাইলগুলো সফলভাবে ব্যাকআপ করা হয়েছে!"
Else
    MsgBox "সোর্স ফোল্ডার পাওয়া যায়নি!"
End If

এখানে, FileSystemObject ব্যবহার করে সোর্স ফোল্ডার থেকে ফাইল কপি করে ব্যাকআপ নেওয়া হচ্ছে। স্ক্রিপ্টটি ফোল্ডার চেক করে এবং প্রয়োজনে নতুন ব্যাকআপ ফোল্ডার তৈরি করে ফাইল কপি করবে।

২. ইমেইল পাঠানোর স্ক্রিপ্ট (Email Sending Script)

VBScript দিয়ে Microsoft Outlook এর মাধ্যমে ইমেইল পাঠানো সম্ভব। এটি সিস্টেম প্রশাসনের জন্য একটি কার্যকরী টুল, যেখানে স্বয়ংক্রিয়ভাবে রিপোর্ট বা নোটিফিকেশন ইমেইল পাঠানো যায়।

প্রকল্প উদাহরণ: ইমেইল পাঠানোর স্ক্রিপ্ট

Dim OutlookApp, MailItem
Set OutlookApp = CreateObject("Outlook.Application")
Set MailItem = OutlookApp.CreateItem(0) ' 0 = Mail item

MailItem.Subject = "Daily Report"
MailItem.Body = "This is the daily report of the system activity."
MailItem.To = "recipient@example.com"
MailItem.Send

MsgBox "ইমেইল পাঠানো হয়েছে!"

এখানে, Outlook.Application ActiveX কন্ট্রোল ব্যবহার করে একটি নতুন ইমেইল তৈরি করা হচ্ছে এবং সেটি পাঠানো হচ্ছে।

৩. ডাটাবেস থেকে তথ্য বের করা (Extract Data from Database)

VBScript এবং ADO (ActiveX Data Objects) ব্যবহার করে আপনি Microsoft Access বা SQL Server ডাটাবেস থেকে ডেটা বের করতে পারেন এবং ওয়েব পেজে প্রদর্শন করতে পারেন।

প্রকল্প উদাহরণ: ডাটাবেস থেকে তথ্য বের করার স্ক্রিপ্ট

Dim conn, rs, sql
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' ডাটাবেসের জন্য সংযোগ স্ট্রিং
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;"

' SQL কোয়েরি
sql = "SELECT * FROM Users"

' কোয়েরি চালানো
rs.Open sql, conn

' ডেটা রিড করা এবং HTML তে প্রদর্শন করা
Do Until rs.EOF
    MsgBox "User: " & rs("Username")
    rs.MoveNext
Loop

' সংযোগ বন্ধ করা
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

এখানে, ADO (ActiveX Data Objects) ব্যবহার করে Microsoft Access ডাটাবেস থেকে ইউজারদের নাম বের করা হয়েছে। এই স্ক্রিপ্টটি ডাটাবেসের Users টেবিল থেকে তথ্য সংগ্রহ করছে।

৪. সিস্টেম রিপোর্টিং (System Reporting)

আপনি VBScript ব্যবহার করে সিস্টেমের বিভিন্ন কার্যকলাপ রিপোর্ট তৈরি করতে পারেন, যেমন সিস্টেমের ফ্রি স্পেস, CPU ইউজ, বা মেমরি স্টেটাস রিপোর্ট।

প্রকল্প উদাহরণ: সিস্টেম স্ট্যাটাস রিপোর্ট তৈরি করা

Dim objWMIService, colItems, objItem
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")

For Each objItem In colItems
    MsgBox "Total Visible Memory: " & objItem.TotalVisibleMemorySize & " KB"
    MsgBox "Free Physical Memory: " & objItem.FreePhysicalMemory & " KB"
Next

এখানে, WMI (Windows Management Instrumentation) ব্যবহার করে সিস্টেমের মেমরি সম্পর্কিত তথ্য নেয়া হচ্ছে, যা সিস্টেম অ্যাডমিনিস্ট্রেশনের জন্য গুরুত্বপূর্ণ হতে পারে।

৫. ফাইল সিস্টেম মনিটরিং (File System Monitoring)

একটি ফোল্ডারে নতুন ফাইল তৈরি হলে বা কোনো ফাইল পরিবর্তন হলে আপনাকে জানানো যেতে পারে। VBScript ব্যবহার করে এই ধরনের সিস্টেম মনিটরিং করা সম্ভব।

প্রকল্প উদাহরণ: ফোল্ডার মনিটরিং

Dim objFSO, objFolder, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\MonitorFolder")

' ফোল্ডারে ফাইল পরিবর্তন/নতুন ফাইল তৈরি হলে রিপোর্ট করা
For Each objFile In objFolder.Files
    MsgBox "File name: " & objFile.Name & " was modified!"
Next

এখানে, VBScript একটি নির্দিষ্ট ফোল্ডারটি মনিটর করবে এবং ফোল্ডারে নতুন কোনো ফাইল তৈরি হলে বা পরিবর্তন হলে একটি বার্তা দেখাবে।

সারাংশ

VBScript দিয়ে বাস্তব জীবনের প্রকল্প তৈরি করার সময় আপনি বিভিন্ন সিস্টেম কাজ এবং ওয়েব স্ক্রিপ্টিং কাজ করতে পারেন। এর মাধ্যমে:

1. ফাইল ম্যানিপুলেশন যেমন ব্যাকআপ স্ক্রিপ্ট,
2. ইমেইল পাঠানো,
3. ডাটাবেস ইন্টিগ্রেশন,
4. সিস্টেম রিপোর্টিং এবং
5. ফাইল সিস্টেম মনিটরিং করা সম্ভব।

এই প্রকল্পগুলো বাস্তব জীবনের সমস্যাগুলির সমাধান দেয় এবং VBScript কে শক্তিশালী স্ক্রিপ্টিং ভাষা হিসেবে প্রতিষ্ঠিত করে।