Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array(".")
For Each strComputer In arrComputers


   inhalt =  "Computer: " & strComputer & vbcrlf


   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem WHERE SystemType LIKE '%86%'", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
       if instr(objItem.SystemType,"86") THEN
      wscript.echo "Ist ein 32-bit System!"
       else
      wscript.echo "Ist KEIN 32-bit-System!"
       end if

   Next
Next