hey guys, I have found the following vbs scripts from Microsoft, it can do the job, and I would like to convert it to perl. Is there anybody can help me?
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:\\languardns
+s6.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