Mengambil Informasi Sistem Operasi

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.Caption, objOperatingSystem.Version
Next

strComputer = "." => ini berarti komputer target adalah lokal, silakan ganti "." dengan nama komputer yang akan dicek.

Menampilkan jam lokal

script ini untuk mengambil dan menampilkan jam lokal komputer.

Set objWMIService = GetObject("winmgmts:")
Set colItems = objWMIService.InstancesOf("Win32_LocalTime")
For Each objItem in colItems
tMin = right("0" & objItem.Minute,2)
tSec = right("0" & objItem.Second,2)
DateTime = objItem.Month & "/" & objItem.Day & "/" & objItem.Year & " - " & objItem.Hour & ":" & tMin & ":" & tSec
Next
wscript.echo DateTime

Berikut adalah penjelasan dari tiap barisnya:

Set objWMIService = GetObject("winmgmts:")

ini adalah koneksi ke objek yang akan diambil.
jika tanpa alamat maka objek diambil dari komputer lokal.
untuk koneksi ke komputer lain, tambahkan alamat setelah ":", misal: "winmgmts:\\pc-01" maka objek diambil dari pc-01.
koneksi ini bisa menggunakan IP address ataupun DNS.
lengkapnya tentang WMI Object, silakan lihat di http://www.microsoft.com/technet/scriptcenter/guide/sas_wmi_llee.mspx?mfr=true

Set colItems = objWMIService.InstancesOf("Win32_LocalTime")

baris ini untuk mengambil koleksi dari instansi LocalTime komputer.

For Each objItem in colItems
tMin = right("0" & objItem.Minute,2)
tSec = right("0" & objItem.Second,2)
DateTime = objItem.Month & "/" & objItem.Day & "/" & objItem.Year & " - " & objItem.Hour & ":" & tMin & ":" & tSec
Next

bagian ini adalah untuk mengambil tanggal dan jam dari komputer.

wscript.echo DateTime

Tampilkan hasilnya.