'32 or 64-bit

MsgBox "This script will display if you have 32 bit or 64 bit Processor and Identifier." _ 
& vbCr  & vbCr & "x86 = 32 bit." & vbCr & "x64 = 64 bit." & vbCr, _
    vbOKOnly + vbInformation, "Paul's XP and Vista Tweaks"
Set  WshShell = WScript.CreateObject("WScript.Shell")
const HLM = &H80000002
strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
 strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
strValueName = "PROCESSOR_ARCHITECTURE"
oReg.GetStringValue HLM,strKeyPath,strValueName,strValue
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 HLM,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
Next