VBScriptでCPUがARMかIntelか確認する

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objItem in colItems
    strInfo = "Name: " & objItem.Name & vbCrLf
    strInfo = strInfo & "Description: " & objItem.Description & vbCrLf
    strInfo = strInfo & "Manufacturer: " & objItem.Manufacturer & vbCrLf
    strInfo = strInfo & "Architecture: " & objItem.Architecture & vbCrLf
    strInfo = strInfo & "NumberOfCores: " & objItem.NumberOfCores & vbCrLf
    strInfo = strInfo & "NumberOfLogicalProcessors: " & objItem.NumberOfLogicalProcessors & vbCrLf
    MsgBox strInfo
Next

"Architecture" フィールドがプロセッサのアーキテクチャを示しますが、これは数値で表され、0はx86、1はMIPS、2はAlpha、3はPowerPC、5はARM、6はia64（Itanium）、9はx64を意味します。