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 |