тоже самое на vbs
Private Function OSArchitecture()
Set WSS = CreateObject("WScript.Shell")
Arch = "x64"
If WSS.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "x86" AND _
WSS.ExpandEnvironmentStrings("%PROCESSOR_ARCHITEW6432%") = "%PROCESSOR_ARCHITEW6432%" Then Arch = "x86"
OSArchitecture = Arch
End Function
MsgBox OSArchitecture()
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT AddressWidth FROM Win32_Processor")
For Each objItem in colItems
Arch = "x" & objItem.AddressWidth
Next
Wscript.Echo Arch