This script will display if you have 32-bit or 64-bit Windows, and when your OS was installed. (VB Script)
| '32 or 64 bit On Error Resume Next Set sh = WScript.CreateObject("WScript.Shell") Message = "This script will Display if you are running Windows 32 or 64 bit." & vbCr Message = Message & "It will also Display the date and time the OS was installed and the OS version." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then X = sh.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE") If X = "x86" Then MsgBox "You Are Running Windows 32-bit!" & vbCr & "This script was downloaded from www.paulsxp.com", vb, "Windows 32-bit or 64-bit" Else MsgBox "You Are Running Windows XP 64-bit" & vbCr & "This script was download from www.paulsxp.com", vb, "Good for You!" 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, "XP Installed" sh.Run("winver.exe") End With Next End If |