用WMI写了个MP3 seeker的script .

它可以search remote hosts是否有MP3文件,欢迎大家指教!
*************************************************************
'@@@ Write on Oct 27 2005 By Michael C,pls. do not modify this'
'@@@ script if you are not a family in VBS '
'@@@ Display checking message in Console  '
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\myscript\list.txt",ForReading)
If objFSO.FileExists("c:\myscript\result.csv")  Then
  objFSO.DeleteFile("c:\myscript\result.csv")
  End If
    Set a = objFso.CreateTextFile("c:\myscript\result.csv")
  a.WriteLine"ComputerName,FileName,path"
On Error Resume Next
Do While Not objTextFile.AtEndOfStream
 strComputer = objTextFile.ReadLine
 Wscript.Echo "Checking " & strComputer& "..."
 set objWMIService = GetObject("winmgmts:"&"!\\"&strComputer&"\root\cimv2")
 set colDataFile = objWMIService.Execquery ("select * from CIM_DataFile Where Extension = 'MP3'")
 For Each colDataFile in objDataFile
  'wscript.Echo "File Name:" &objDataFile.FileName& "at" &strComputer
  a.WriteLine(strComputer & ","& objDataFile.FileName &","& objDataFile.Path &"")
 i = i + 1
 Next
 if i = 0 then
 Wscript.Echo "None MP3 files Found "
 else
 Wscript.Echo "Total " & i & "MP3 files Found"
 End If
 Loop
  a.Close