'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