32 or 64 Bit Windows?

cpu.vbs

'Copyright 2010 - Ron
'http://www.ittybittytalks.com

On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")

X = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If X = "x86" Then

Message = vbCR & "You have a 32 bit version of Windows Operating System" & vbCR & vbCR
Message = Message & "You should download 32 bit versions of Service Packs, " & vbCR
Message = Message & "Hotfixes and other Windows updates"

MsgBox Message, vbOkOnly, "32-Bit Windows Found!"

Else

Message = vbCR & "Your Processor Architecture is not 32-Bit x86." & vbCR & vbCR
Message = Message & "This identifies a machine potentially running a 64-Bit" & vbCR
Message = Message & "Edition of Windows OS. You should open your system properties" & vbCR
Message = Message & "(Start menu>Programs>Accessories>System tools>System information)" & vbCR
Message = Message & "to identify which hotfixes to apply on this system." & vbCR & vbCR
Message = Message & "Intel Itanium/II CPU = patches marked IA64" & vbCR
Message = Message & "AMD Opteron or Athlon64/FX = Patches marked as AMD64" & vbCR

MsgBox Message, vbOkOnly, "Non x86 Windows Found!"

End If