ChangeAuditLogメソッド
指定したスプールサーバ上で出力する監査ログを切り替えます。
形式
ChangeAuditLog()
パラメタ
なし
解説
ChangeAuditLogメソッドは,スプールサーバ上で出力する監査ログの切り替えが終了した時点で呼び出し元に制御が戻ります。
実行時にエラーが発生した場合,Err.Numberプロパティに終了コード,Err.Descriptionプロパティにメッセージが設定されます。
戻り値
なし
データ型
Empty
呼び出し例
' ChangeAuditLog実行 Private Sub SUB_ChangeAuditLog() Err.Clear On Error GoTo Err_Trap List5.Clear Dim objEURPMLS Set objEURPMLS = CreateObject("EURPMLS.Exec") objEURPMLS.ServerAddress = "255.255.***.***" ''監査ログの切り替え Call objEURPMLS.ChangeAuditLog Err_Trap: List5.AddItem "GetAttr Err.Number=(" & Err.Number & ")" List5.AddItem "GetAttr Err.Description=(" & Err.Description & ")" If Err.Number = 0 Then End If Set objEURPMLS = Nothing End Sub