Pytanie : VBS - Pomoc potrzebować the kod

Cześć,

Could somone pomoc modifiy the następujący kod tak, że:

1.) jeżeli the bela wejście być nad 10 minuta (che być już w the pismo) wtedy the pismo czekać na 20 minutes
then czek dla the ten sam wejście i jeżeli ono być wciąż nad 10 minuta then wywoływać the następujący kod następujący. Jeżeli the bela wejście być nic 10 minuta wtedy robić anything.

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

The drugi warunek być "jeżeli the plik-dziennik być" my potrzebować the pismo 20 minuta then czek znowu dla the bela i jeśli nie wtedy wykonywać the następujący kod (następujący) jeżeli the bela istnieć wtedy robić istnieć.

Set objShell = CreateObject ("WScript.Shell")
varFile = Chr (34) & "C:\scripts\command.bat" & Chr (34)
objShell.run "C:\Windows\System32\cmd.e xe /c" & varFile
Ustalony 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:
36:
37:
38:
39:
40:
41:

 ' * FORMAT DZISIAJ ' S DATA KTÓRY CZĘŚĆ THE PLIK-DZIENNIK - imię 
strYear = Rok (TodayDT) 
strMonth = Miesiąc (TodayDT) 
strDay = Dzień (TodayDT) 
 
jeżeli CInt (strMonth) < 10 wtedy 
    strMonth = "(0)" & strMonth 
kończyć jeżeli 
jeżeli CInt (strDay) < 10 wtedy 
    strDay = "(0)" & strDay 
kończyć jeżeli 
 
strToday = strYear & strMonth & strDay 
'wscript.echo strToday 
 
Ustalony objFSo = CreateObject ("Scripting.FileSystemObject") 
pathname = "\ \ serwer \ część \ BELA dla restarts_" & strToday & ".doc" 
jeżeli objFSo.FileExists (pathname) wtedy 
Ustalony objFile = objFSO.GetFile (pathname) 
strTime = objFile.DateLastModified 
 
        jeżeli isdate (strTime) wtedy 
            DT = cdate (strTime) 
            DTN = Teraz 
                   jeżeli datediff ("n", DT, DTN) > 10 wtedy 
                    wscript.echo "Ostatni bela wejście nad 10 minuta" 
                   inny  
                   wscript.echo "The system być wciąż żywy" 
                  kończyć jeżeli 
 
      kończyć jeżeli       
 
inny 
         '* Jeżeli the plik-dziennik znajdować. 
          'wscript.echo "Plik-dziennik znajdować"
          'Wysyłać acommmand the system
		 Ustawiać objShell = CreateObject ("WScript.Shell")
		 varFile = Chr (34) & "C:\scripts\command.bat" & Chr (34)
		objShell.run "C:\Windows\System32\cmd.exe /c" & varFile
		Ustalony objShell = Nic
(...)

Odpowiedź : VBS - Pomoc potrzebować the kod

Stuknięcie dalej Wysyłać Otrzymywać - > Wysyłać Otrzymywać Grupa - > Definiować Wysyłać Otrzymywać Grupa (przy the dno i móc stuknięcie jrathi znaczyć). Wysyłać Otrzymywać grupa dialog pudełko otwierać. Wysyłać otrzymywać interwał być wewnątrz tam. … Thinkpads_User
Inne rozwiązania  
 
programming4us programming4us