I needed to see when a Windows Server 2000 was installed, but SYSTEMINFO didnt work. After a bit of looking and playing, i came up with this.

Save it into a VBS file

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!" _
    & strComputer & "rootcimv2") 

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objItem In colItems
  cInstdate = CStr(objItem.InstallDate)
  WScript.Echo "Instdate: " & Mid(cInstDate, 7, 2) & _
        "." & Mid(cInstDate, 5, 2) & "." &  Mid(cInstDate, 1, 4) & " (" & _
		objItem.InstallDate & ")"
Next

 

Away you go.

 

updated to a GFI Max script here

http://blog.greypuddles.net/?p=109#more-109

« »