[VBS] Problema con funzione includeFile

[fraude]

Ciao a tutti.

Spero che qualcuno mi possa aiutare a capire questo «arcano».

Il file VBS principale è il seguente:

sub includeFile (fSpec) 
    dim fileSys, file, fileData 
    set fileSys = createObject ("Scripting.FileSystemObject") 
    set file = fileSys.openTextFile (fSpec) 
    fileData = file.readAll () 
    file.close 
    executeGlobal fileData 
    set file = nothing 
    set fileSys = nothing 
end sub

...

'AL VERIFICARSI DELLA CONDIZIONE «A»

'RICHIAMO UN FILE PRESENTE SULLO STESSO SERVER
includeFile "_inviaSMS.vbs"

'CODICE PER SPEDIZIONE EMAIL
....

'FINE DELLA CONDIZIONE «A»

Il file _inviaSMS.vbs è il seguente:

strRemoteComputer = "IndirizzoIPComputerRemoto"
strWorkerScript = "S:\CreaSms_n.vbs"
Set objWshController = WScript.CreateObject("WshController")
Set objRemoteScript  = objWshController.CreateScript(strWorkerScript, strRemoteComputer)
objRemoteScript.Execute

While objRemoteScript.Status = 2
   Wscript.Sleep(100)
   Wscript.Echo "Non va."
WEnd
   WScript.Echo "OK"

Il problema è che quando si verifica la condizione A e viene eseguito il file _inviaSMS.vbs il successivo passaggio della spedizione email non avviene, come se l'esecuzione dello script VBS principale venisse bloccata.

Ho provato a cambiare la sequenza delle operazioni, prima email poi SMS, ed in questo caso non parte il msg SMS.

Cosa sbaglio?
Grazie e buona epifania!

[gibra]

Prima di eseguire il metodo Execute, devi eseguire il ConnectObject.

Vedi qui:
http://msdn.microsoft.com/en-us/library/5zdwefhx(VS.85).aspx?ppud=4