Vraag : VBS - de Hulp moest de code wijzigen

Hallo,

Could somonehulp aan aan modifiy de volgende code zodat:

1.) als de logboekingang meer dan 10 minuten (wat reeds in het manuscript is) dan het manuscript zal wachten op 20 minutes
then controle voor de zelfde ingang is en als het is nog meer dan 10 minuten dan de volgende hieronder code teweegbrengt. Als de logboekingang hieronder is doen 10 minuten dan geen anything.

Set objShell = varFile CreateObject („WScript.Shell“)
= Chr (34) & „C:\scripts\command.bat“ & Chr (34)
objShell.run „C:\Windows\System32\cmd.e xe /c“ & varFile
Geplaatst objShell = de voorwaarde/>The tweede van Nothing


Set objShell = varFile CreateObject („WScript.Shell“)
= Chr (34) & „C:\scripts\command.bat“ & Chr (34)
objShell.run „C:\Windows\System32\cmd.e xe /c“ & varFile
plaatste objShell = Nothing
" codeBody " 
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:
" NOTPRETTY " 
 ' * DATUM DE VAN VANDAAG VAN HET FORMAAT DIE VAN HET DOSSIER VAN HET LOGBOEK - NAAM SCHEIDT 
strYear = Jaar (TodayDT) 
strMonth = Maand (TodayDT) 
strDay = Dag (TodayDT) 
 
als CInt (strMonth) < 10 toen 
    strMonth = „0“ & strMonth 
beëindig als 
als (strDay) CInt < 10 toen 
    strDay = „0“ & strDay 
beëindig als 
 
strToday = strYear & strMonth & strDay 
'strToday wscript.echo 
 
Vastgestelde objFSo = CreateObject („Scripting.FileSystemObject“) 
pathname = „\ \ het LOGBOEK van het server\ aandeel \ voor restarts_“ & strToday & „.doc“ 
als objFSo.FileExists (pathname) toen 
Vastgestelde objFile = objFSO.GetFile (pathname) 
strTime = objFile.DateLastModified 
 
        als isdate (strTime) toen 
            DT = cdate (strTime) 
            DTN = nu 
                   als datediff („n“, DT, DTN) > 10 toen 
                    wscript.echo „duur logboekingang meer dan 10 minuten“ 
                   anders  
                   wscript.echo het „Systeem is nog in leven“ 
                  beëindig als 
 
      beëindig als       
 
anders 
         '* Als het logboekdossier niet werd gevonden. 
          'wscript.echo „het gevonden niet dossier van het Logboek“
          'Verzend acommmand naar het systeem
		 Plaats objShell = CreateObject („WScript.Shell“)
		 varFile = Chr (34) & „C:\scripts\command.bat“ & Chr (34)
		objShell.run „C:\Windows\System32\cmd.exe /c“ & varFile
		Reeks objShell = niets
(...)

Antwoord : VBS - de Hulp moest de code wijzigen

Klik op Send ontvangen - > verzend ontvangen Groepen - > bepalen verzenden ontvangen Groepen (bij de bodem en kan zijn wat jrathi betekende). Verzend ontvangen de doos van de groependialoog opent. Verzend ontvangen interval daar is in. … Thinkpads_User
Andere oplossingen  
 
programming4us programming4us