Option Explicit Dim colQueryResults Dim dteLastBootupTime Dim objItem Dim objWMI Set objWMI = GetObject("winmgmts:root\cimv2") Set colQueryResults = objWMI.ExecQuery("Select LastBootUpTime from Win32_OperatingSystem") For Each objItem in colQueryResults dteLastBootupTime = objItem.LastBootUpTime Next If InStr(1,Wscript.FullName,"cscript.exe",1) = 0 Then MsgBox "Win32_OperatingSystem.LastBootupTime in CIM Format:" & vbCRLF & dteLastBootupTime, vbOKOnly, "Result!" Else WScript.Echo WScript.Echo "Win32_OperatingSystem.LastBootupTime in CIM Format is:" WScript.Echo dteLastBootupTime End If