Ciao Toki scusa se ti disturbo nuovamente ma questo problema proprio non riesco a risolverlo, francamente non riesco a neanche a capire cosa possa generarlo, come mi hai detto tu ho creato il file semaforo, ho fatto in modo di gestire lo script inserito Criteri Computer Locale->Configurazione utente->Script (accesso/fine sessione). Però se riavvio il pc con il primo script al successivo avvio il secondo script parte, controlla il file semaforo e fin qui tutto ok .
ecco il secondo script :
Const ForReading = 1, ForWriting = 2, ForAppending = 8, _
TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream1 =FSO.OpenTextFile("C:\PRova\Semaforo.txt", ForReading, TristateUseDefault)
Set wshshell=CreateObject("wscript.shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 60000
wshshell.Run "%comspec% /c start C:\PRova\Semaforo.txt"'apro il file
If TextStream1.ReadLine="1" Then 'controllo se nella prima riga è presente un 1 se è vero
WScript.Sleep 1000
wshshell.SendKeys("{RIGHT}")
WScript.Sleep 1000
wshshell.SendKeys("{BS}")
WScript.Sleep 1000
wshshell.SendKeys("0") 'sostituisco l uno con 0
WScript.Sleep 1000
wshshell.SendKeys("%{F4}") 'chiudo il notepad
WScript.Sleep 1000
wshshell.SendKeys("{ENTER}") 'salvo le modifiche
WScript.Sleep 1000
WshShell.Run "vbsedit.exe", 9' provo a lanciare un programma
Else 'se invece nel fiel semaforo è presente uno 0 vuol dire che il riavvio non è stato generato da 'script quindi chiudo semplicemente il notepad
WScript.Sleep 1000
'wshshell.SendKeys("%{F4}")
End If
quando arrivo all'istruzione WshShell.Run "vbsedit.exe", 9' il software parte ma si chiude subito
com'è possibile ?????
se riesci a risolvere questo mistero ti offro una birra
grazie anticipatamente