'Erste Alternative
Const ssfSYSTEM = 37
Set SystemFolder = CreateObject("Shell.Application").NameSpace(ssfSYSTEM)
Set File = SystemFolder.ParseName("SQLSRV32.dll")
Wscript.Echo SystemFolder.GetDetailsOf(File, -1)
 
'Zweite Alternative
Set WMIService = GetObject( _
  "winmgmts:{impersonationLevel=impersonate}!\root\cimv2")
Set Files = WMIService.ExecQuery("SELECT Version FROM CIM_Datafile WHERE Name =" & _
"'c:\\windows\\System32\\SQLSRV32.dll'")
For Each File In Files
  wscript.echo File.version
Next