[VBScript] Ermitteln, ob das Betriebssystem eines beliebigen Rechners 64bit oder 32bit ist.

Gepostet am: Mar 12, 2011 2:29:6 PM

system32or64bit.vbs <Namen der Rechner [wenn leer, lokaler Rechner]>

' HISTORY:' 0.1 - 12.03.2011 - Basisskript' ---------------------------- CONFIGURATION ----------------------------' ------------------------------ DECLARATION ------------------------------' ---------------------------- USED FUNCTIONS ----------------------------' ---------------------------- USED PROCEDURES ----------------------------' ------------------------------- ARGUMENTS -------------------------------'einzelne übergebene Parameter auslesenif WScript.Arguments.Count <> 0 then      Set objArgs = WScript.Arguments     For Each objArg in objArgs         Call SystemErmitteln(objArg)     next  else     Call SystemErmitteln(".")end if  Set objArgs = nothing WScript.Quit   Sub SystemErmitteln(strComputer)     Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")      Set colOSs = objWMI.ExecQuery("Select * from Win32_OperatingSystem")      For Each OS in colOSs         OSType = OS.OSArchitecture      Next      if strComputer = "." then          Set WshNetwork = WScript.CreateObject("WScript.Network")         strComputer = WshNetwork.ComputerName         WScript.Echo strComputer & " ist " & OSType     else          WScript.Echo strComputer & " ist " & OSType     end if      set objWMI = nothing     set colOSs = nothing     Set WshNetwork = nothing  end sub