Install » Windows

Find Windows Install Date

Installer — Fri, 29 Jan 2010 09:35:04 +0000

With Following script you can find the Windows Installed Date and Time

The Script

1
2
3
4
5
6
7
8
9
10
11
12

Set OSSet = GetObject("winmgmts://." _
& "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem")
For Each OS In OSSet
wscript.echo FormatUTime(OS.InstallDate)
Next
'-----------------------------------------
'Format "Universal Time" to DD.MM.YY HH:MM
'-----------------------------------------
Function FormatUTime (S)
FormatUTime = Mid(S, 7, 2) & "." & Mid(S, 5, 2) & "." & Mid(S, 3, 2) _
& " " & Mid (S, 9, 2) & ":" & Mid(S, 11, 2) & " "
End Function

Create Shortcut at your Desktop

Installer — Mon, 25 Jan 2010 12:24:56 +0000

This vbscript create automatically a shortcut at your Desktop

1
2
3
4
5

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Install.gr")
oUrlLink.TargetPath = "http://www.install.gr"
oUrlLink.Save

Find windows Install Date

Installer — Fri, 22 Jan 2010 14:26:07 +0000

This Script find windows Install Date – Time

Notes:
Windows XP: Test Completed Success
Windows 2003: Test Completed Success
windows 2008: Test Completed Success
Windows Vista: Test Completed Success
Windows 7 : Test Completed Success

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

' * VBScript Find Windows Install Date
' * Version: 1.0
' *
' * Enjoy!

Set OSSet = GetObject("winmgmts://." _
& "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem")
For Each OS In OSSet
wscript.echo FormatUTime(OS.InstallDate)
Next
'-----------------------------------------
'Format "Universal Time" to DD.MM.YY HH:MM
'-----------------------------------------
Function FormatUTime (S)
FormatUTime = Mid(S, 7, 2) & "." & Mid(S, 5, 2) & "." & Mid(S, 3, 2) _
& " " & Mid (S, 9, 2) & ":" & Mid(S, 11, 2) & " "
End Function