'*** v10.C *** www.dieseyer.de ****************************** ' ' Datei: wmi-x64.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Programm ermittelt, ob die Betriebssystemarchitektur ' 64-Bit ' ist - also: bei 64-Bit = True ' '*********************************************************** Option Explicit MsgBox "Ist das Betriebsystem 64-Bit?" & vbCRLF & vbCRLF & vbTab & ist64bit( "." ), , "15 :: " & WScript.ScriptName WScript.Quit '*** v10.C *** www.dieseyer.de ****************************** Function ist64bit( PC ) '*********************************************************** Dim objWMIService, colSettings, objOperatingSystem Dim Tst On Error resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2") Set colSettings = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colSettings Tst = objOperatingSystem.OSArchitecture If InStr( Tst, "64" ) = 1 Then ist64bit = True : Exit Function Next ' If InStr( Tst, 64 ) = 1 Then ist64bit = True ist64bit = False End Function ' ist64bit( PC )