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

Empfohlene Beiträge

Oder unter VbScript:

 

set WshShell = CreateObject("WScript.Shell")

RegPfad = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductName"
WindowsVersion = WshShell.RegRead(RegPfad)

RegPfad = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\CSDVersion"
ServicePack = WshShell.RegRead(RegPfad)

Meldung = "Ermitteltes Betriebssystem: " &vbcr & WindowsVersion & ", " & Servicepack
msgbox meldung,vbokonly,"Ergebnis"

 

Oder zum Download (bitte die Endung ".txt" entfernen ;)):

Get_WinVer_and_SP.vbs.txt

Link zu diesem Kommentar

Hier das Beispiel aus dem MS-Scripting repository:

 

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
   ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
   Wscript.Echo "Boot Device: " & objOperatingSystem.BootDevice
   Wscript.Echo "Build Number: " & objOperatingSystem.BuildNumber
   Wscript.Echo "Build Type: " & objOperatingSystem.BuildType
   Wscript.Echo "Caption: " & objOperatingSystem.Caption
   Wscript.Echo "Code Set: " & objOperatingSystem.CodeSet
   Wscript.Echo "Country Code: " & objOperatingSystem.CountryCode
   Wscript.Echo "Debug: " & objOperatingSystem.Debug
   Wscript.Echo "Encryption Level: " & objOperatingSystem.EncryptionLevel
   dtmConvertedDate.Value = objOperatingSystem.InstallDate
   dtmInstallDate = dtmConvertedDate.GetVarDate
   Wscript.Echo "Install Date: " & dtmInstallDate 
   Wscript.Echo "Licensed Users: " & _
       objOperatingSystem.NumberOfLicensedUsers
   Wscript.Echo "Organization: " & objOperatingSystem.Organization
   Wscript.Echo "OS Language: " & objOperatingSystem.OSLanguage
   Wscript.Echo "OS Product Suite: " & objOperatingSystem.OSProductSuite
   Wscript.Echo "OS Type: " & objOperatingSystem.OSType
   Wscript.Echo "Primary: " & objOperatingSystem.Primary
   Wscript.Echo "Registered User: " & objOperatingSystem.RegisteredUser
   Wscript.Echo "Serial Number: " & objOperatingSystem.SerialNumber
   Wscript.Echo "Version: " & objOperatingSystem.Version
Next

 

Als Sprache wird allerdings der interne Sprachcode zurückgeliefert, 1031 ist Deutsch.

Für andere Sprachen einfach mal bei MS suchen...

Link zu diesem Kommentar
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...