Ciao a tutti.
Spero che qualcuno mi possa aiutare a capire questo «arcano».
Il file VBS principale è il seguente:
codice:
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:
codice:
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!