Frage : VBS - Hilfe benötigt, um den Code zu ändern

Hallo,

Could somone Hilfe zu zu modifiy der folgende Code, damit:

1.) wenn die Maschinenbordbucheintragung in 10 Minuten ist (die bereits im Index ist), dann der Index wartet 20 minutes
then Überprüfung auf die gleiche Eintragung und wenn es noch in 10 Minuten dann ist, den folgenden Code unten auslöst. Wenn die Maschinenbordbucheintragung unter ist, tun 10 Minuten dann nicht anything.

Set das objShell = CreateObject („WScript.Shell“)
, die = Chr varFile sind (34) u. „C:\scripts\command.bat“ u. Chr (34)
objShell.run „C:\Windows\System32\cmd.e xe /c“ u. varFile
gesetztes objShell = Nothing

The zweites Zustand ist „, wenn, die Protokolldatei nicht gefunden wird, dass“ wir den Index benötigen, 20 Minuten dann Überprüfung auf das Maschinenbordbuch wieder zu warten und wenn Sie nicht dann gefunden werden, den folgenden Code durchführen (unten) wenn das Maschinenbordbuch tun dann nichts existiert.

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


 
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:
6:
37:
38:
39:
40:
41:

 ' * HEUTIGES DATUM FORMATIEREN DIESES TEIL DES MASCHINENBORDBUCH-DATEINAMENS 
strYear = Jahr (TodayDT) 
strMonth = Monat (TodayDT) 
strDay = Tag (TodayDT) 
 
wenn CInt (strMonth) < 10 dann 
    strMonth = „0“ u. strMonth 
beenden wenn 
wenn CInt (strDay) < 10 dann 
    strDay = „0“ u. strDay 
beenden wenn 
 
strToday = strYear u. strMonth u. strDay 
'wscript.echo strToday 
 
objFSo = CreateObject („Scripting.FileSystemObject“) einstellen 
Pfadname = „\ \ Bediener \ Anteil \ MASCHINENBORDBUCH für restarts_“ u. strToday u. „.doc“ 
wenn objFSo.FileExists (Pfadname) dann 
Gesetztes objFile = objFSO.GetFile (Pfadname) 
strTime = objFile.DateLastModified 
 
        wenn isdate (strTime) dann 
            Papierlösekorotron = cdate (strTime) 
            DTN = jetzt 
                   wenn datediff („n“, Papierlösekorotron, DTN) > 10 dann 
                    wscript.echo „letzte Maschinenbordbucheintragung in 10 Minuten“ 
                   sonst  
                   wscript.echo „das System ist noch lebendig“ 
                  beenden wenn 
 
      beenden wenn       
 
sonst 
         '* wenn die Protokolldatei nicht gefunden wurde. 
          'wscript.echo „Protokolldatei nicht gefunden“
          'Acommmand zum System schicken
		 objShell = CreateObject („WScript.Shell“) einstellen
		 varFile = Chr (34) u. „C:\scripts\command.bat“ u. Chr (34)
		objShell.run „C:\Windows\System32\cmd.exe /c“ u. varFile
		objShell einstellen = nichts
(...)

Antwort : VBS - Hilfe benötigt, um den Code zu ändern

Send-Receive an klicken - > Send-Receivegruppen - > definieren Send-Receivegruppen (an der Unterseite und kann sein, was das jrathi bedeutet). Send-Receivegruppen-Dialogfeld öffnet. Send-Receiveabstand ist innen dort. … Thinkpads_User
Weitere Lösungen  
 
programming4us programming4us