【実務・中級編】【WSF活用】Windows Script Host (.wsf) ファイル形式を用いたXMLベースのマルチスクリプト・コンポーネント統合 – VBScript (Visual Basic Scripting Edition)解析バイブル

処理を開始します: ジョブID = EnterpriseDataSyncJob
すべての処理が正常に完了しました。
https://api.internal.corp/v1/sync

2. 共通ロガー: `Lib\Logger.vbs`

' ==============================================================================
' Lib\Logger.vbs
' 堅牢なファイル＆標準出力ロガー
' ==============================================================================
Class FileLogger
Private fso, logFile, logPath

Private Sub Class_Initialize()
Set fso = CreateObject("Scripting.FileSystemObject")
' 実行ファイルと同じディレクトリにログを出力
logPath = fso.GetParentFolderName(WScript.ScriptFullName) & "\app.log"
' 追記モードでオープン (ForAppending = 8, Create = True)
On Error Resume Next
Set logFile = fso.OpenTextFile(logPath, 8, True)
If Err.Number <> 0 Then
WScript.Echo "警告: ログファイルを開けませんでした - " & logPath
End If
On Error GoTo 0
End Sub

Public Sub Info(ByVal message)
WriteLog "INFO", message
End Sub

Public Sub Error(ByVal message)
WriteLog "ERROR", message
End Sub

Private Sub WriteLog(ByVal level, ByVal message)
Dim logLine
logLine = "[" & Now() & "] [" & level & "] " & message

' 標準出力へ
WScript.Echo logLine

' ファイルへ書き込み
If Not logFile Is Nothing Then
On Error Resume Next
logFile.WriteLine logLine
On Error GoTo 0
End If
End Sub

Private Sub Class_Terminate()
If Not logFile Is Nothing Then
logFile.Close
Set logFile = Nothing
End If
Set fso = Nothing
End Sub
End Class

3. JScriptヘルパー: `Lib\Utils.js`

// ==============================================================================
// Lib\Utils.js
// VBScriptの弱点を補完するJScriptユーティリティ
// ==============================================================================

/

• JSON文字列をVBScriptから扱いやすいように処理するヘルパー
• (VBScript単体ではJSONパースが地獄のように面倒なためJScriptに肩代わりさせる)

/
function ParseJsonToScriptingDictionary(jsonStr) {
try {
// JScriptのevalを活用してJSONオブジェクト化（信頼できる内部データ用）
var jsObj = eval("(" + jsonStr + ")");

// VBScript側で扱いやすいようにScripting.Dictionaryに変換する例
var dict = WScript.CreateObject("Scripting.Dictionary");
for (var key in jsObj) {
if (jsObj.hasOwnProperty(key)) {
dict.Add(key, jsObj[key]);
}
}
return dict;
} catch (e) {
// エラー時はnullを返す
return null;
}
}

---

現場で絶対に踏んではいけない「WSFの地雷」

WSFは強力だが、WSHの古いアーキテクチャに起因する「罠」が存在する。これを理解していないと、本番環境で突然沈黙するスクリプトを生み出すことになる。

1. CDATAセクション (``) の強制

XMLファイル内では、`<` や `&` などの文字がタグや実体参照の開始とみなされ、構文エラーを引き起こす。 VBScriptのコードブロック内（特に比較演算子 `<` や `>` を使う場合）は、必ず `こと。これを忘れると、実行時に「XML解析エラー」で一発レッドカードとなる。