System Info 

This example shows accessing system information.

File Name  :   source/VBS/advanced/system_info.vbs  Author  :   Sudhakar KV Email  :   kvenkatasudhakar@gmail.com

view sourceprint? 01 'Local computer 02 strCompName = "." 03   04 Set wmiSvcObj = GetObject("winmgmts:\\" & strCompName & "\root\CIMV2") 05 Set selSysInfo = wmiSvcObj.ExecQuery("SELECT * FROM Win32_OperatingSystem") 06   07 For Each sysInfo In selSysInfo 08   09   WScript.Echo "System Drive: " & sysInfo.SystemDrive  10   WScript.Echo "System Directory: " & sysInfo.SystemDirectory 11   WScript.Echo "Windows Directory: " & sysInfo.WindowsDirectory 12   13   WScript.Echo "Boot Device: " & sysInfo.BootDevice 14   WScript.Echo "System Device: " & sysInfo.SystemDevice 15   16 Next

System Drive: C:
System Directory: C:\WINDOWS\system32
Windows Directory: C:\WINDOWS
Boot Device: \Device\HarddiskVolume1
System Device: \Device\HarddiskVolume1