Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Betriebssystem an anderem Rechner auslesen
Autor: Zenolio
Datum: 25.08.10 12:25
Hi hab ein Problem. Nämlich das mein Script zum Auslesen des Betriebssystems auf meinem lokalen Rechner super funktioniert. Aber ich plane das ich das Betriebssystem auf dem Rechner von meinem Arbeitskollegen auslesen möchte und zwar von meinem lokalen Rechner aus. Kann mir jemand bei meinem Script helfen? msgbox GetOSVersion() Function GetOSVersion() strComputer = "." Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48) For Each objItem in colItems 'tmp1 = "Caption: " & objItem.Caption if InStr(1, LCase(objItem.Caption), "windows 2000", 1) > 0 then OS = "W2K" elseif InStr(1, LCase(objItem.Caption), "windows XP", 1) > 0 then OS = "WXP" elseif InStr(1, LCase(objItem.Caption), "windows 7", 1) > 0 then OS = "W7" elseif InStr(1, LCase(objItem.Caption), "server 2003", 1) > 0 then OS = "W2003" elseif InStr(1, LCase(objItem.Caption), "server 2008", 1) > 0 then OS = "W2008" else OS = "UnknownOS" end if Next Set objWMI = Nothing Set colItems = Nothing Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") 'tmp2 = "PROCESSOR_ARCHITECTURE: " & WshSysEnv("PROCESSOR_ARCHITECTURE") Select Case LCase(WshSysEnv("PROCESSOR_ARCHITECTURE")) Case "x86" OS = OS & "-32" Case "amd64" OS = OS & "-64" End Select Set WshShell = Nothing Set WshSysEnv = Nothing 'Wscript.Echo tmp1 & vbcrlf & tmp2 & vbcrlf & vbcrlf & "System: " & OS GetOSVersion = OS End Function

Betriebssystem an anderem Rechner auslesen	1.062	Zenolio	25.08.10 12:25
Re: Betriebssystem an anderem Rechner auslesen	575	Dieter	30.08.10 08:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen