Class clsGetProfile ' ルートドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数：　「1」ファイル名 NOT NULL ' 戻り値：なし Public Sub setProfile(strFileName) Set data_xml = CreateObject("Microsoft.XMLDOM") data_xml.async = False data_xml.load(strFileName) Set rootDoc = data_xml.documentElement End Sub ' キーの対応する値を取得する ' 引数： 「1」キー名　 NOT NULL ' 「2」セクション名 NOT NULL ' 戻り値：キーの対応する値 Public Function getItem(strSectionName, itemName) Set sectionNode = rootDoc.selectSingleNode(strSectionName) getItem = sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class ' 使用サンプル ' クラスインスタンスを生成する 'Dim config : Set config = New clsGetProfile ' 配置ファイル名とセクション名をセットする 'Call config.setProfile("Config.xml") ' きーの対応する値をゲットする 'WScript.Echo config.getItem("MessageDefine", "INFO.001") 'WScript.Echo config.getItem("MessageDefine", "INFO.003") 'WScript.Echo config.getItem("MessageDefine", "ERROR.009") 'WScript.Echo config.getItem("MessageDefine", "ERROR.012") Class clsGetProfile ' ルートドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数：　「1」ファイル名 NOT NULL ' 戻り値：なし Public Sub setProfile(strFileName) Set data_xml = CreateObject("Microsoft.XMLDOM") data_xml.async = False data_xml.load(strFileName) Set rootDoc = data_xml.documentElement End Sub ' キーの対応する値を取得する ' 引数： 「1」キー名　 NOT NULL ' 「2」セクション名 NOT NULL ' 戻り値：キーの対応する値 Public Function getItem(strSectionName, itemName) Set sectionNode = rootDoc.selectSingleNode(strSectionName) getItem = sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class ' 使用サンプル ' クラスインスタンスを生成する 'Dim config : Set config = New clsGetProfile ' 配置ファイル名とセクション名をセットする 'Call config.setProfile("Config.xml") ' きーの対応する値をゲットする 'WScript.Echo config.getItem("MessageDefine", "INFO.001") 'WScript.Echo config.getItem("MessageDefine", "INFO.003") 'WScript.Echo config.getItem("MessageDefine", "ERROR.009") 'WScript.Echo config.getItem("MessageDefine", "ERROR.012")

<?xml version="1.0" encoding="UTF-8"?> <Configuration> <!--メッセージ定義 --> <MessageDefine> <Info.001 value="処理開始。"/> <Info.002 value="処理終了。"/> <Info.003 value="処理異常終了。"/> <Info.004 value="処理中止。"/> </MessageDefine> <!-- その他配置 --> <OtherSection> <host value="192.168.0.241"/> <user value="root"/> </OtherSection> <WindowsLogToolConfig> <host value="192.168.0.188"/> <port value="3306"/> </WindowsLogToolConfig> </Configuration>