Windows
Find Windows Install Date
by Installer on Jan.29, 2010, under Windows
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
by Installer on Jan.25, 2010, under Windows
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
by Installer on Jan.22, 2010, under Windows
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 |
