script ตรวจหาไฟล์ mp3 ในเครื่องคอมพิวเตอร์

สคริปนี้จะเป็นสครปที่สั่งให้ค้นหาไฟล์นามสกุล MP3 ที่มีอยุ่ทั้งหมดในเครื่อง
โดยถ้าเจอไฟล์ MP3 และจะไปทำการเขียน log ไฟล์ ตามที่อยุ่ที่เราต้องการ
และสามารถค้นหาไฟล์อื่นๆที่มรนาสกุลตรงกับที่เราต้องการได้ครับ

สริปนี้ ผมตั้งให้ทำงานหลังรันสคริป ในเวลา 10-50 นาที   >  WScript.Sleep (RNDM*1000*60)
สามารถเปลี่ยนที่เก็บไฟล์ได้  >  Set objTextFile = objFSO.CreateTextFile("O:\IT\sw-list\mp3\" & strcomputer & "_" & strUserName & ".txt", True)
สามารถเปลี่ยนนามสกุลไฟล์ได้  >  Set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile where Extension = 'mp3'")

***************************************************************************
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set WshNetwork = WScript.CreateObject("WScript.Network")
strUserName = WshNetwork.UserName

dim max,min
max=50
min=10

Dim RNDM
Randomize
RNDM=((max)*Rnd+min)
'WScript.Sleep(1000 * 60 * 3)
WScript.Sleep (RNDM*1000*60)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("O:\IT\sw-list\mp3\" & strcomputer & "_" & strUserName & ".txt", True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile where Extension = 'mp3'")

For Each objFile in colFiles
objTextFile.Write(objFile.Drive & objFile.Path & ",")
objTextFile.Write(objFile.FileName & "." & objFile.Extension & ",")
objTextFile.Write(objFile.FileSize & vbCrLf)
Next

objTextFile.Close


***************************************************************************

Share on Google Plus

About Volk-69

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.