[VBS] Scan For Files Servers

[Verwijderd]

Ik ben bezig met een scan op een 100 tal servers waarbij ik scan op o.a. de extensie .mp3. Ik heb een VBScript gevonden, maar die werkt net niet helemaal.

Ik scan een SAN van enkele TB groot en hij vind alleen de bovenste 20 MP3's zeg maar. Hij geeft dan netjes een OK aan en hij heeft er wel wat gevonden, maar niet alles.

Dit ligt aan de timeout? Ben zelf geen scripter. Wie kan mij helpen?

code:

searchThisExtension = "mp3"

On Error Resume Next
set Fs = createObject( "Scripting.FileSystemObject" )
set ReadFile = Fs.openTextFile( "servers.txt",1 )
set MyFile = Fs.openTextFile( "Scanned_Log.txt",8,True )
do while ReadFile.atEndOfStream <> true
    host = ReadFile.readLine
    unc = "\\" & host & "\Users$\"
    if Fs.folderexists(unc) then
        call ListFolderContents(unc,searchThisExtension)
    else
        MyFile.writeLine(now() & ",Folder does not exist:" & unc)
    end if
loop
MyFile.close
set MyFile = Nothing
set ReadFile = Nothing
set Fs = Nothing
msgbox "Done"

Sub ListFolderContents( path,delext )
    set Fs = CreateObject("Scripting.FileSystemObject")
    set Folder = Fs.GetFolder( path )
    Set Files = Folder.Files
 For each File1 In Files
  ext = Fs.GetExtensionName( File1.path )
  if ( ext = delext ) then
   MyFile.Writeline( now() & "," & File1.path )
                 
      ' uncomment this to start deleting
   'fs.DeleteFile(File1.path)

  end if
 Next
    For each Item in folder.SubFolders
        call ListFolderContents( Item.Path, delext )
    Next
 set Files = Nothing
    set Folder = Nothing
    set Fs = Nothing
End Sub

[RobIII]

Verwijderd schreef op dinsdag 17 juni 2008 @ 10:50:
Dit ligt aan de timeout? Ben zelf geen scripter. Wie kan mij helpen?

Helaas, zo werkt het hier niet. Als je zelf geen scripter bent moet je je of verdiepen in de materie (moeten wij ook), of het uitbesteden aan iemand die het wel is. We zijn hier niet om je scripts te fixen (zie quickfix) of te debuggen (zie Debuggen: Hoe doe ik dat?) en we verwachten wel wat meer eigen inzet (en daarbij ook nog eens een duidelijke omschrijving wat er nou precies fout gaat, inc. foutmeldingen e.d.) en dat alles kun je teruglezen in onze Programming Beleid Quickstart.

En tot slot zijn we al helemaal niet blij met het debuggen van scripts die 'geleend' zijn van derden (waar dus helemaal geen eigen moeite in zit) en die dan maar 'effe' gefixed moeten worden. Benader daar de auteur maar voor; die weet precies hoe het in elkaar steekt en die mag dan mooi zijn eigen code supporten.

[ Voor 15% gewijzigd door RobIII op 17-06-2008 11:48 ]