复制代码 代码如下:

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>

【vbscript 读取xml格式的配置文件】相关文章：

★ 获取屏幕分辨率的VBS代码

★ 用vbs实现在启动 Windows 资源管理器时打开特定文件夹

★ SendKeys clip.exe 发送中文的代码

★ vbs获取当前路径的代码

★ VBScript 文件操作代码小结

★ vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

★ 用vbs发送带附件的邮件

★ VBS读取注册表的两种方法

★ Hardware_Info.vbs 获取硬件信息的VBS代码

★ VBS教程：VBscript语句-功能介绍