This script will display if you have 32-bit or 64-bit Windows, and when your OS was installed and version. (VBScript)

On Error Resume Next
Set sh = WScript.CreateObject("WScript.Shell")
X = sh.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")
If X = "x86" Then
MsgBox "You Are Running Windows Vista 32-bit!" & vbCr & "This script was download from www.paulsxp.com", vb, "Windows 32-bit"
Else
MsgBox "You Are Running Windows Vista 64-bit"& vbCr & "This script was download from www.paulsxp.com", vb, "Windows 64-bit!"
End If
For Each pm in GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("Select CurrentTimeZone, InstallDate From Win32_OperatingSystem")
With CreateObject("WbemScripting.SWbemDateTime")
.Value = pm.InstallDate
MsgBox "Windows Installed: " & DateAdd("n", -pm.CurrentTimeZone, .GetVarDate)& vbCr &_
"This script was download from www.paulsxp.com", vb, "Vista Installed"
sh.Run("winver.exe")
End With
Next

Download


Back to Line 14