Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
Dim WshProEnv As Object
Set WshProEnv = WshShell.Environment("SYSTEM")
Dim SysInfo As String
SysInfo = WshProEnv.Item("PROCESSOR_ARCHITECTURE")
 MsgBox SysInfo
If SysInfo = "x86" Then
 ' винда ХР 32
Else
 ' не 32
End If