'------------------------------------------------------------------------- ' Test64bit ' ' Beschreibung ' Prüft anhand der ProcessorID die Funktion "64bit" für Exchange 2007 ' Version 1.0 (11. Jan 2007) '------------------------------------------------------------------------- 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