strComputer = "192.168.100.17" 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" _ 
    & strComputer & "\root\cimv2") 
Set colFiles = objWMIService. _ 
    ExecQuery("Select * from CIM_DataFile where Name = 'D:\\languardnss6.exe'") 
For Each objFile in colFiles 
    Wscript.Echo "File Name: " & "." & objFile.Extension 
    Wscript.Echo "Path: " & objFile.Path & objFile.Name 
    Wscript.Echo "File Size: " & objFile.FileSize 
Next