http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4