Questione : VBS - Aiuto stato necessario per modificare il codice

Ciao, aiuto di somone del

Could a modifiy il seguente codice in modo che:

1.) se l'entrata di ceppo ha luogo oltre 10 minuti (che è già nello scritto) allora che lo scritto aspetterà 20 il controllo del minutes
then per la stessa entrata e se ha luogo ancora oltre 10 minuti allora innesca il seguente codice qui sotto. Se l'entrata di ceppo è inferiore 10 minuti allora non fanno il objShell di anything.

Set =
di CreateObject (“WScript.Shell„) varFile = Chr (34) & “C:\scripts\command.bat„ & xe /c del
objShell.run “C:\Windows\System32\cmd.e„ di Chr (34) & objShell del varFile
= stato stabiliti di Nothing

The secondo è “se la lima di ceppo non è trovata„ abbiamo bisogno dello scritto di aspettare ancora 20 minuti quindi il controllo il ceppo e se non che abbiamo trovato che allora eseguire il seguente codice (sotto) se il ceppo esiste allora non fare niente. objShell del

Set =
di CreateObject (“WScript.Shell„) varFile = Chr (34) & “C:\scripts\command.bat„ & xe /c del
objShell.run “C:\Windows\System32\cmd.e„ di Chr (34) & objShell stabilito del varFile
= Nothing


 class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
id= " codeSnippet853714 " class= " del 
 ' * FORMATTARE l'ODIERNA DATA QUELLA PARTE DEL NOME DI SCHEDARIO del CEPPO 
strYear = anno (TodayDT) 
strMonth = mese (TodayDT) 
strDay = giorno (TodayDT) 
 
se CInt (strMonth) < 10 allora 
    strMonth = “0„ & strMonth 
concluder se 
se CInt (strDay) < 10 allora 
    strDay = “0„ & strDay 
concluder se 
 
strToday = strYear & strMonth & strDay 
'wscript.echo strToday 
 
Regolare il objFSo = CreateObject (“Scripting.FileSystemObject„) 
nome = “\ \ assistente \ parte \ CEPPO per restarts_„ & strToday & “.doc„ 
se objFSo.FileExists (nome) allora 
objFile stabilito = objFSO.GetFile (nome) 
strTime = objFile.DateLastModified 
 
        se isdate (strTime) allora 
            Distacco = cdate (strTime) 
            DTN = ora 
                   se datediff (“n„, distacco, DTN) > 10 allora 
                    wscript.echo “ultima entrata di ceppo oltre 10 minuti„ 
                   altrimenti  
                   wscript.echo “il sistema è ancora vivo„ 
                  concluder se 
 
      concluder se       
 
altrimenti 
         '* se la lima di ceppo non sia trovata. 
          'wscript.echo “lima di ceppo non trovata„
          'Trasmettere il acommmand al sistema
		 Regolare il objShell = CreateObject (“WScript.Shell„)
		 varFile = Chr (34) & “C:\scripts\command.bat„ & Chr (34)
		objShell.run “C:\Windows\System32\cmd.exe /c„ & varFile
		Regolare il objShell = niente
(...)
class= del

Risposta : VBS - Aiuto stato necessario per modificare il codice

Scattar sopra trasmettono ricevono - > trasmettere ricevono i gruppi - > definiscono trasmettono ricevono i gruppi (alla parte inferiore e può essere che cosa jrathi significato). Trasmettere ricevono i gruppi la finestra di dialogo che si apre. Trasmettere ricevono l'intervallo è dentro là. … Thinkpads_User
Altre soluzioni  
 
programming4us programming4us