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 MsgBox "This script will display if you have x86 or x64 Processor and Identifier .",_ vbOKOnly + vbInformation, "Paul's XP and Vista Tweaks" Set WshShell = WScript.CreateObject("WScript.Shell") const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" strValueName = "PROCESSOR_ARCHITECTURE" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Call MsgBox("Current Processor Archiecture: " & strValue _ & vbCr & vbCr & "This script was downloaded from www.paulsxp.com.", _ vbOKOnly + vbInformation, "Paul's XP and Vista Tweaks") strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" strValueName = "PROCESSOR_IDENTIFIER" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue MsgBox"Current Processor Identifier: " & strValue _ & vbCr & vbCr & "This script was downloaded from www.paulsxp.com.", _ vbOKOnly + vbInformation, "Paul's XP and Vista Tweaks" 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 & vbCr &_ "This script was downloaded from www.paulsxp.com" ,64, "OS Installed" WshShell.Run("winver.exe") End With |