'*** v9.3 *** www.dieseyer.de ******************************* ' ' Datei: remotewinversion.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Die Prozedur ist Bestandteil von WinTuC_vbs.vbs (WinTuC.de) ' und formatiert die Ifirmationen für WiTuC. ' '*********************************************************** Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl MsgBox WMIWinVer( WScript.CreateObject("WScript.Network").ComputerName ), , "14 :: " & WScript.ScriptName ' MsgBox WMIWinVer( "PC04" ), , "15 :: " & WScript.ScriptName Wscript.Quit '*** v13.2 *** www.dieseyer.de ****************************** Function WMIDateStringToDEU(dtmDate) '*********************************************************** WMIDateStringToDateYear2 = Mid(dtmDate, 7, 2) & "." & Mid(dtmDate, 5, 2) & "." & Left(dtmDate, 4) & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2) End Function ' WMIDateStringToDateYear2(dtmDate) '*** v9.2 *** www.dieseyer.de ******************************* Function WMIDateStringToDateYear2(dtmDate) ' zweistellige Jahreszahl, ohne Sekunden '*********************************************************** WMIDateStringToDateYear2 = CDate(Mid(dtmDate, 7, 2) & "." & Mid(dtmDate, 5, 2) & "." & Left(dtmDate, 4) & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2) ) WMIDateStringToDateYear2 = Replace( WMIDateStringToDateYear2, Year( WMIDateStringToDateYear2 ), Mid( Year( WMIDateStringToDateYear2 ), 3, 2 ) ) WMIDateStringToDateYear2 = Mid( WMIDateStringToDateYear2, 1, InStrRev( WMIDateStringToDateYear2, ":" ) - 1 ) End Function ' WMIDateStringToDateYear2(dtmDate) '*** v13.1 *** www.dieseyer.de ****************************** Function WMIWinVer( PC ) '*********************************************************** Dim Txt Dim objWMIService On Error Resume Next err.Clear Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2") Txt = err.Number & " - " & err.Description On Error Goto 0 If Len( Txt ) > 4 Then : WMIWinVer = "Fehler: WMI-OS. " & Txt : Exit Function Txt = "" Dim colOSes : Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Dim objOS For Each objOS in colOSes ' Txt = Txt & vbCRLF & "Computer Name: " & objOS.CSName ' Txt = Txt & vbCRLF & "Caption: " & objOS.Caption 'Name Txt = TxT & objOS.Caption ' Txt = Txt & vbCRLF & "Service Pack: " & objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion Txt = TxT & " Sp" & objOS.ServicePackMajorVersion ' Txt = Txt & vbCRLF & "Version: " & objOS.Version 'Version & build ' Txt = TxT & " (Build " & objOS.Version & ")" Txt = TxT & "; inst. am " & WMIDateStringToDateYear2( objOS.InstallDate ) ' Txt = Txt & vbCRLF & "Build Number: " & objOS.BuildNumber 'Build ' Txt = Txt & vbCRLF & "Build Type: " & objOS.BuildType ' Txt = Txt & vbCRLF & "OS Type: " & objOS.OSType ' Txt = Txt & vbCRLF & "Other Type Description: " & objOS.OtherTypeDescription Next ' MsgBox PC & vbCRLF & vbCRLF & ">" & Txt & "<", , "1801 :: " Txt = Replace( Txt, "Standard", "Std." ) Txt = Replace( Txt, "Edition", "" ) Txt = Replace( Txt, "(R)", "" ) Txt = Replace( Txt, "Microsoft", "" ) Txt = Replace( Txt, "Windows XP", "WinXP" ) Txt = Replace( Txt, "Windows", "Win" ) Txt = Replace( Txt, "Professional", "Prof." ) Txt = Replace( Txt, " ", " " ) If Left( Txt, 1 ) = " " Then Txt = Mid( Txt, 2 ) WMIWinVer = Txt Set colOSes = nothing Set objWMIService = nothing End Function ' WMIWinVer( PC )