VBS вариант на WMI:
Код:
strFile = ".\FileList.txt"
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWSS = CreateObject("WScript.Shell")
Set colItem = objWMI.ExecQuery("SELECT DeviceID From Win32_LogicalDisk Where DriveType=3")
For Each objItem In colItem
strDRV=strDRV &"Drive='"& objItem.DeviceID &"' OR "
Next
strSELECT="SELECT Name From CIM_DataFile Where ("& Left(strDRV,Len(strDRV)-4) &") AND ("& _
"Extension='AVI' OR " & _
"Extension='MP3' OR " & _
"Extension='MP4')"
Set colItem = objWMI.ExecQuery(strSELECT)
Set objFile = objFSO.OpenTextFile(strFile,2,vbTrue)
objFile.WriteLine objWSS.ExpandEnvironmentStrings("%ComputerName%"& vbCRLF)
For Each objItem In colItem
objFile.WriteLine(objItem.Name)
Next
objFile.Close
P.S. я в таких случаях просто называю файл именем машины