vbscript löschen von Dateien & Ordner, die von remote-computer

Erste Sache, die ich bin kein Experte in der VBScript-Skripte schreiben.

Habe ich die Anforderung, das löschen von Dateien & Ordner, die von remote-Systemen mit nur 1-Klick. Ich versuchte zu bauen, die unter VBScript aber irgendwie funktioniert es nicht. Ich bitte alle Ihre Hilfe zu korrigieren, die gleichen oder mit einem neuen Skript, die mir helfen, erfüllen die Anforderung. Jegliche Hilfe diesbezüglich ist sehr willkommen, vielen Dank im Voraus.

Mit den unten:
C:\Test - ist das Verzeichnis, von wo ich möchte, die Dateien zu löschen & Unterordnern
C:\computerList.txt – wird die text-Datei enthält alle remote-System-IP-Adresse.

Const strPath = "C:\Test"

Set computerList = objfso.OpenTextFile ("C:\computerList.txt", 1)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Call Search (strPath)
WScript.Echo"Done."

Sub Search(str)
    Do While Not computerList.AtEndOfStream
    strComputer = computerList.ReadLine
        Dim objFolder, objSubFolder, objFile
        Set objFolder = objFSO.GetFolder("\\" & strComputer & "\" & str)
        For Each objFile In objFolder.Files
            If objFile.DateLastModified < (Now() - 0) Then
                objFile.Delete(True)
            End If
        Next
        For Each objSubFolder In objFolder.SubFolders
            Search(objSubFolder.Path)
            ' Files have been deleted, now see if
            ' the folder is empty.
            If (objSubFolder.Files.Count = 0) Then
                objSubFolder.Delete True
            End If
        Next
    loop

End Sub

Grüße,
Balaram Reddy