'v7.A********************************************************** ' File: winversp-regread.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Programm ermittelt WindowsNT-Version und Sp-Version '************************************************************** Option Explicit Dim Txt Dim fso : Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim WSHShell : Set WSHShell = WScript.CreateObject("WScript.Shell") Dim WSHNet : Set WSHNet = WScript.CreateObject("WScript.Network") Dim oArgs : Set oArgs = Wscript.Arguments Const KeyX = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\" ' On Error Resume Next Txt = Txt & vbCRLF & "ProductName: " & vbTab & vbTab & WSHShell.RegRead( KeyX & "ProductName" ) Txt = Txt & vbCRLF & "CSDVersion: " & vbTab & vbTab & WSHShell.RegRead( KeyX & "CSDVersion" ) Txt = Txt & vbCRLF & "CurrentVersion: " & vbTab & vbTab & WSHShell.RegRead( KeyX & "CurrentVersion" ) Txt = Txt & vbCRLF & "CurrentBuildNumber: " & vbTab & WSHShell.RegRead( KeyX & "CurrentBuildNumber" ) Txt = Txt & vbCRLF & "BuildLab: " & vbTab & vbTab & vbTab & WSHShell.RegRead( KeyX & "BuildLab" ) On Error GoTo 0 MsgBox Txt