最近一項(xiàng)目中，vbs腳本需要讀取配置文件，本來考慮用ini來做配置文件，但是vbs里沒有現(xiàn)成讀寫ini文件的支持，于是考慮用xml來做配置文件，使用xmldom來讀取。寫成個(gè)class使用起來應(yīng)該方便一些。貼來備忘一下。
    代碼如下:
    Class clsGetProfile
    ' ルートドキュメント
    Private rootDoc
    ' xmlファイル名とセクション名をセットする
    ' 引數(shù)：　「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
    ' キーの対応する値を取得する
    ' 引數(shù)： 「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ファイル名とセクション名をセットする
    ' 引數(shù)：　「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
    ' キーの対応する値を取得する
    ' 引數(shù)： 「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>