The WinOps Blog

Public Const XML_FILE     = "xmlconfigfile.xml"
Public Const NODE_BIT     = "/Config/Bitlocker"

'--------------------------------------------------------------------
' Function Name - ReadXML()
'--------------------------------------------------------------------
Function ReadXML()
Dim xmlDoc,oNode
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.Async = "false"
        If (xmlDoc.Load(XML_FILE)) Then
        '--Bitlocker--
        Set oNode = xmlDoc.DocumentElement.selectSingleNode(NODE_BIT & "/EnableBitlocker")
            If oNode.text = "True" then
            oEnableBitlocker = True  
            end if
        End If
    Set oNode = Nothing
    Set xmlDoc = Nothing       
end function

'--------------------------------------------------------------------
' Function Name - WriteXML()
'--------------------------------------------------------------------
Function WriteXML()
Dim xmlDoc
Dim oNode
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.Async = "false"
        If (xmlDoc.Load(XML_FILE)) Then
        '--Bitlocker--
        Set oNode = xmlDoc.DocumentElement.selectSingleNode(NODE_BIT & "/EnableBitlocker")
            if oEnableBitlocker = True then
            oNode.text = "True"
            else
            oNode.text = "False"
            end if
        xmlDoc.save(XML_FILE)
        End If
    Set oNode = Nothing
    Set xmlDoc = Nothing       
end function