http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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 )

http://dieseyer.de • all rights reserved • © 2011 v11.4