'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 _
 & "It will also Display the date and time the OS was installed and the OS version." & vbCr & vbCr _
 & "Would you like to continue?"

X = MsgBox(Message, vbYesNo + vbInformation, "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 Vista 32-bit!"  & vbCr & "This script was downloaded from www.paulsxp.com", 64, "Windows 32-bit"

Else 

MsgBox "You Are Running Windows Vista 64-bit" & vbCr & "This script was downloaded from www.paulsxp.com", 64, "You are running 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 downloaded from www.paulsxp.com", 64, "Vista Installed"
sh.Run("winver.exe") 

 End With
Next
End If