harry’s memorandum

おれおれメモ

VBSでeventlogってよく使うよね。

仕事柄よく使うんだけど、「そんなの使わねー」「そもそもVBSをつかわねー」と言われることも。VBSなにげに好きなんだけど世間の風当たりは厳しいです。VBSはやりゃあできる子なんだよ。

というので、VBSでイベントログ。こういうのはクラスにしておくと便利。

Option Explicit 

Const EVENT_SUCCESS = 0
Const EVENT_ERROR = 1
Const EVENT_WARNING = 2
Const EVENT_INFORMATION = 4

Class CustomEventLog
  private shell
  Sub Class_Initialize()
    Set shell = CreateObject("wscript.shell")
  End Sub
  
  Sub Class_Terminate()
    Set shell = Nothing
  End Sub

  Public Function success(msg)
    shell.LogEvent EVENT_SUCCESS, msg
  End Function
  
  Public Function info(msg)
    shell.LogEvent EVENT_INFORMATION, msg
  End Function

  Public Function error(msg)
    shell.LogEvent EVENT_ERROR, msg
  End Function

  Public Function warn(msg)
    shell.LogEvent EVENT_WARNING, msg
  End Function
End Class

上のをコピペして使うだけ。

Dim log
Set log = new CustomEventLog

log.success("huga")
log.info("hoge")
log.warn("foo")
log.error("bar")