Friday, January 9, 2015

Pull OS installed date on windows using VB Script


'Author : Babu Dhinakaran
'Date   : 9th Jan 2014
'Purpose : To pull OS Installed date on windows servers

Set dateTime = CreateObject("WbemScripting.SWbemDateTime")
filename ="c:\system.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(filename, 1)

Do Until objTextFile.AtEndOfStream
  server = objTextFile.Readline
 
    Set objWMIService = GetObject("winmgmts:\\" & server & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
    For Each objItem in colItems
        dateTime.Value = objItem.InstallDate
        dateformat = dateTime.GetVarDate
    Next
Wscript.Echo server & vbTab  & dateformat & vbNewLine
Loop