Como executar arquivo vbs em outro computador?

Eu trabalho com a Delta Airlines e eu ter escrito um código vbs com o qual eu posso apagar todos os arquivos em uma determinada pasta. Eu testei e ele funciona muito bem no meu computador mas quando eu colocá-lo em outro pc, ele não funciona. Como posso obtê-lo para executar em todos os do pc que são usados pelas companhias aéreas. Aqui está o código que usei-

Dim sFolderName, oFSO, oFolders

sFolderName = "C:\Documents e Settings\All Users\Application Data\DAL\Cornerstone"

Definir oFSO = createobject("scripting.filesystemobject")
Definir oFolders = oFSO.getfolder(sFolderName)
ScanFolder oFolders

Sub ScanFolder(oFolders)
Dim perfis, rfil, oFolder, oSubFolders, oSubFolder
Definir oSubFolders = oFolders.subfolders
Definir perfis = oFolders.files

Para cada rfil em perfis
oFile.Delete(True)
Próximo

Para cada oSubFolder em oSubFolders
ScanFolder oSubFolder
Se oSubFolder.Size = 0, em seguida, oSubFolder.Delete(True)
Próximo

Set oSubFolders = Nothing
Definir perfis = Nothing
EndSub

Quando eu copiá-lo para outro pc no mesmo servidor é claro, ele não funciona. Dá-me uma mensagem de erro:

Host de scripts do Windows
linha-6
Char-1
erro-caminho não encontrado

Qualquer ajuda seria muito apreciada. Estou tentando colar esse código no pc com o mesmo sistema operacional (Windows XP). Sua ainda me dá erro.

Resposta

Fazer não codificar o caminho: "C:\Documents e Settings\All Users\Application Data\DAL\Cornerstone" como ele não pode existir em outro PC que é um sistema operativo diferente do que o Windows XP.

O equivalente do caminho: "C:\Documents e Settings\All Users\Application Data" no Vista e Win7 é: "C:\ProgramData", você pode usar o seguinte código para obter sFolderName dinamicamente: Const CommonAppData = & H23 & ' a segunda & denota um inteiro longo ' Definir objShell = objFolder Set CreateObject("Shell.Application") = objShell.Namespace(CommonAppData) sFolderName = objFolder.Self...Caminho & "\DAL\Cornerstone" Isto deve resolver seu problema.