get_architecture

	Dim ObjWMI, ColSettings, ObjProcessor 
	Dim StrComputer, ObjNetwork 
	Set ObjNetwork = WScript.CreateObject("WScript.Network") 
	StrComputer = Trim(ObjNetwork.ComputerName) 
	Set ObjNetwork = Nothing 
	WScript.Echo VbCrLf & "Computer Name: " & StrComputer 
	WScript.Echo vbNullString 
	Set ObjWMI = GetObject("WINMGMTS:" & "{ImpersonationLevel=Impersonate,AuthenticationLevel=Pkt}!\\" & StrComputer & "\Root\CIMV2") 
	Set ColSettings = ObjWMI.ExecQuery ("SELECT * FROM Win32_Processor") 
		For Each ObjProcessor In ColSettings 
		WScript.Echo "Processor: " & ObjProcessor.DataWidth & "-Bit" 
		WScript.Echo "Operating System: " & ObjProcessor.AddressWidth & "-Bit" 
		WScript.Echo vbNullString     
		If ObjProcessor.Architecture = 0 AND ObjProcessor.AddressWidth = 32 Then 
			WScript.Echo "This Machine has 32 Bit Processor and Running 32 Bit OS" 
		End If 
		If (ObjProcessor.Architecture = 6 OR ObjProcessor.Architecture = 9) AND ObjProcessor.DataWidth = 64 AND ObjProcessor.AddressWidth = 32 Then 
			WScript.Echo "This Machine has 64-Bit Processor and Running 32-Bit OS" 
		End If 
		If (ObjProcessor.Architecture = 6 OR ObjProcessor.Architecture = 9) AND ObjProcessor.DataWidth = 64 AND ObjProcessor.AddressWidth = 64 Then 
			WScript.Echo "This Machine has 64-Bit Processor and Running 64-Bit OS" 
		End If 
	Next