strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Windows\system32'} Where " _
        & "ResultClass = CIM_DataFile")
 
i = 0
For Each objFile In colFileList
    If objFile.Extension = "dll" And objFile.FileName = "sqlsrv32" Then
        Wscript.Echo objFile.Name & " -- " & objFile.Version
    End If
	i = i + 1
Next
 
Wscript.Echo "finished " & i