自己多学学基础的东西吧。
sFile = "c:\1.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(sFile,2,True)
sWQL = "Select * From CIM_DataFile Where " & _
"FileName = 'amped' And Extension = 'exe'"
For Each itemFile In GetObject("Winmgmts:").ExecQuery(sWQL)
oFile.WriteLine itemFile.Drive & itemFile.Path
Next
oFile.Close
MsgBox "执行完毕!"