Fråga : VBS - Hjälp som behövs för att ändra kodifiera

Hi somonehjälp för

Could till till modifiy efter kodifiera, så att:

1.) om loggatillträdeet är över 10 noterar (som är redan i skriva), därefter den skriva ska väntan för 20 kontrollen för minutes
then för det samma tillträdeet och om den är stilla över 10, noterar startar därefter den nedanföra efter kodifiera. Om loggatillträdeet är nedanföra 10 noterar inte gör därefter varFile objShell för anything.

Set = CreateObject (”WScript.Shell”)
= Chr (34) & ”C:\scripts\command.bat” & xe /c för Chr (34)
objShell.run ”C:\Windows\System32\cmd.e” & fastställd objShell för varFile
= Nothing

The understöder villkorar är ”, om logga sparar är inte funnit” oss behöver skriva till väntan 20 noterar därefter kontrollen igen för logga, och om inte funnit därefter utför (den nedanföra) efter kodifiera, om logga finns gör därefter ingenting. objShell för

Set = varFile CreateObject (”WScript.Shell”)
= Chr (34) & ”C:\scripts\command.bat” & xe /c för Chr (34)
objShell.run ”C:\Windows\System32\cmd.e” & fastställd objShell för varFile
= Nothing


> för

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:

" codeBody " ' * FORMATERA DAGENS DATERAR DEN DEL AV LOGGA SPARAR - namnge strYear = år (TodayDT) strMonth = månad (TodayDT) strDay = dag (TodayDT) om CInt (strMonth) < 10 därefter strMonth = ”0” & strMonth avsluta om om (strDay) CInt < 10 därefter strDay = ”0” & strDay avsluta om strToday = strYear & strMonth & strDay 'strToday wscript.echo Fastställd objFSo = CreateObject (”Scripting.FileSystemObject”) adressen = ”\ \ server \ aktie \ LOGGAR för restarts_” & strToday & ”.doc”, om objFSo.FileExists (adress) därefter Fastställdt objFile = objFSO.GetFile (adressen) strTime = objFile.DateLastModified om isdate (strTime) därefter Avskiljare = cdate (strTime) DTN = nu om datediff (”n”, avskiljare, DTN) > 10 därefter sist wscript.echo ”loggar tillträdeet över 10 noterar”, annars wscript.echo ”systemet är stilla vid liv”, avsluta om avsluta om annars '* om logga sparar inte fanns. 'wscript.echo ”loggar sparar inte funnit”, 'Överför acommmand till systemet Fastställd objShell = CreateObject (”WScript.Shell”) varFile = Chr (34) & ”C:\scripts\command.bat” & Chr (34) objShell.run ”C:\Windows\System32\cmd.exe /c” & varFile Fastställd objShell = ingenting (...), " klar "

Svar : VBS - Hjälp som behövs för att ändra kodifiera

Klicka överför på mottar - > överför mottar grupper - > definierar överför mottar längst ner grupper (och kan vara vad den betydda jrathien). Överför mottar grupper förar dialog boxas öppnar. Överför mottar mellanrum är in där. … Thinkpads_User