-
编辑 删除
Monitoring WebSite State
Const EVENT_SUCCESS=0Const EVENT_ERROR=1Const EVENT_WARNING=2Const EVENT_INFORMATION=4Const EVENT_AUDIT_SUCCESS=8Const EVENT_AUDIT_FAILURE=16Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("web.txt", ForReading) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 loop For
-
编辑 删除
Monitoring Core Process...
strComputer = "." Const EVENT_SUCCESS=0Const EVENT_ERROR=1Const EVENT_WARNING=2Const EVENT_INFORMATION=4Const EVENT_AUDIT_SUCCESS=8Const EVENT_AUDIT_FAILURE=16'On Error Resume NextSet objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set objShell = CreateObject("Wscript.Shell") Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Se
