Auto-eseguire un VBScript file

Question

Ciao a tutti, 

ho il seguente problema e mi chiedevo se fosse possibile risolverlo. Ho creato un .vbs file che esegue un file batch, il quale a sua volta lancia un programma che deve girare su un server. Quello che vorrei e' che questo file .vbs, che appunto controlla l'esecuzione del file batch, si "auto-eseguisse" nuovamente ogni 10 minuti. Quindi l'idea mia era qualcosa del genere:

LoStessoFile.vbs

---

Esegui codici....

a = Now()

x = TimeSerial(Hour(a), Minute(a), Second(a))

y = TimeSerial(Hour(a), Minute(a)+10, Second(a))

Do While x < y

x = TimeSerial(Hour(a), Minute(a), Second(a))

Loop

Dim objShell

Set objShell = Wscript.CreateObject("WScript.Shell")

objShell.Run "LoStessoFile.vbs"

Set objShell = Nothing

---

Il problema pero' e' che con questa procedura il file .vbs non si chiude mai, dunque non puo' ipoteticamente riaprirsi per rieseguirsi. Programmando in VBA ho visto che c'e una funzione chiamata "OnTime" che permette di programmare l'esecuzione di un file a un certo orario. In quel modo, sono gia' riuscito a richiamare l'esecuzione continua di alcune macro. E' possibile fare lo stesso con questo vbs?

Grazie a tutti in anticipo!

Answer 1

Ciao a tutti, 

ho il seguente problema e mi chiedevo se fosse possibile risolverlo. Ho creato un .vbs file che esegue un file batch, il quale a sua volta lancia un programma che deve girare su un server. Quello che vorrei e' che questo file .vbs, che appunto controlla l'esecuzione del file batch, si "auto-eseguisse" nuovamente ogni 10 minuti. Quindi l'idea mia era qualcosa del genere:

<cut>

Grazie a tutti in anticipo!

Questo codice (vbs) ripete l'istruzione Temporizzatore ogni 3 secondi:

Temporizzatore

Public Sub Temporizzatore()

    Set cls = New miaClasse

    cls.Esegui

    WScript.Sleep 3000

    Set cls = Nothing

    Temporizzatore

End Sub

Class miaClasse

    Public Sub Esegui()

        MsgBox "Ciao"

    End Sub

End Class

Vedi anche questo thread:

http://stackoverflow.com/questions/1729075/how-to-set-delay-in-vbscript

Answer 2

Codice perfettamente funzionante, mi basterà mettere tutto dentro la routine Esegui( ) e il gioco è fatto. Grazie Mauro! 

Se stai ancora seguendo il thread, dai un'occhiatina qui:

http://www.vbsedit.com/

In pratica vbsedit ti consente di trasformare in eseguibili i file .vbs. Quindi file .exe, certamente più gestibili.

Chiedo scusa ma mi ero dimenticato di vbsedit. Il programma funziona benissimo anche se non lo registri, hai solo delle finestre che chiedono il codice di attivazione e puoi chiuderle e proseguire. Niente di illegale, nel sito c'è scritto che puoi utilizzarlo così senza limiti di tempo.

Answer 3

Codice perfettamente funzionante, mi basterà mettere tutto dentro la routine Esegui( ) e il gioco è fatto. Grazie Mauro! 

Per interrompere, dovrai:

• Premere: CTRL+ALT+Canc
• Selezionare: Avvia gestione attività
• Scheda: Processi
• Selezionare: wscript.exe
• Premere: Termina processo

Answer 4

Codice perfettamente funzionante, mi basterà mettere tutto dentro la routine Esegui( ) e il gioco è fatto. Grazie Mauro!