'v3.B********************************************************** ' File: SHELL32DLLversion.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Siehe WinFAQ.de - nach 'Active Desktop' suchen. '************************************************************** Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' Betriebssystem ermitteln ( WinNT/2k/XP oder Win9x/ME ); siehe Zeilenende ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Text = "\system32" If not "Windows_NT" = WScript.CreateObject("WScript.Shell").Environment("Process")("OS") then Text = "\system" Text = WSHShell.ExpandEnvironmentStrings("%WinDir%") & Text & "\shell32.dll" MsgBox UCASE( Text) & vbCRLF & "hat die Version: " & fso.GetFileVersion( text ), , WScript.ScriptName