List 6-175　MakeBills.vbs

  1： ' 請求書を作成する
  2： ' Business.Billコンポーネントを実体化
  3： Set objBill = CreateObject("Business.Bill")
  4： ' その時点の日付を取得
  5： NowDate = Date()
  6： ' その前日を算出
  7： BeforeDate = DateAdd("d", -1, NowDate)
  8： ' 請求書を作成する
  9： On Error Resume Next
 10： objBill.MakeBills BeforeDate
 11： ' イベントログに記録する
 12： ' イベントログの記録機能はWindows Scripting Host 2.0のみ対応
 13： Set objShell = CreateObject("WScript.Shell")
 14： If Err.Number = 0 Then
 15：   ' 実行に成功している
 16：   objShell.LogEvent 0, BeforeDate & "の請求書を作成しました"
 17： Else
 18：   ' 実行に失敗している
 19：   objShell.LogEvent 1, Err.Description
 20： End If
 21： ' コンポーネントの解放
 22： Set objShell = Nothing
 23： Set objBill = Nothing