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

ページの先頭へ