复制代码 代码如下:

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>