Jump to content

Betriebssystem ermitteln


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Geschrieben

Hallo allerseits, ich möchte ein tool programmieren, dass das OS automatisch einliest, ich weiß aber noch nicht genau, wie ich das machen soll...

kennt jemand eine einfache abfrage in VB oder batch wie man das OS herausbekommen kann ?

 

würde mich über hilfe freuen...

 

gruß Micha

Geschrieben

HI,

ein Bsp.:

set WSHShell = CreateObject("WScript.Shell")

name = WSHShell.ExpandEnvironmentStrings("%Username%")

Computer = WSHShell.ExpandEnvironmentStrings("%computername%")

Server = WSHShell.ExpandEnvironmentStrings("%logonserver%")

sys = WSHShell.ExpandEnvironmentStrings("%systemdrive%")

bs = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WindowsNT\CurrentVersion\productName")

text = " Ihr Anmeldename ist : " & name & vbcr

text = text & " Ihr Computername ist : " & computer & vbcr

text = text & " Sie sind Angemeldet an : " & server & vbcr

text = text & " Ihr Systemlaufwerk ist : " & sys & vbcr

text = text & " Ihr BS Ist : " & bs

MsgBox text,vbSystemModal + vbExclamation

 

Und sonst nimm mal scriptomatic2 von MS da ist alles über WMI glöst.

 

 

Ralph

Geschrieben

Mit WMI

 

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
   Wscript.Echo "Manufacturer: " & objItem.Manufacturer
   Wscript.Echo "Caption: " & objItem.Caption
   Wscript.Echo "BuildNumber: " & objItem.BuildNumber
   Wscript.Echo "BuildType: " & objItem.BuildType
   Wscript.Echo "CSDVersion: " & objItem.CSDVersion
   Wscript.Echo "NumberOfLicensedUsers: " & objItem.NumberOfLicensedUsers
   Wscript.Echo "NumberOfProcesses: " & objItem.NumberOfProcesses
   Wscript.Echo "Organization: " & objItem.Organization
   Wscript.Echo "OSLanguage: " & objItem.OSLanguage
   Wscript.Echo "OSType: " & objItem.OSType
   Wscript.Echo "ServicePackMajorVersion: " & objItem.ServicePackMajorVersion
   Wscript.Echo "ServicePackMinorVersion: " & objItem.ServicePackMinorVersion
   Wscript.Echo "Version: " & objItem.Version
Next

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...