Set objWMIService = GetObject("winmgmts://.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each objItem In colItems
wscript.echo "Prozessortyp : " & trim(objItem.Name & " at " & (objItem.CurrentClockSpeed/1000) & "GHz")
wscript.echo "Prozessor speed : " & (objItem.CurrentClockSpeed/1000) & "GHz"
wscript.echo "ProzessorVendor : " & objItem.Manufacturer
wscript.echo "ProzessorID : " & objItem.ProcessorID

EDX = right(objItem.ProcessorID,2)
if (("&H"&cstr(EDX)) and 64) then
wscript.echo "EM64T enabled"
else
wscript.echo "EM64T Missing"
end if
Next