Functionality: Enter the login id and password using the XML file

Functionality: Enter the login id and password using the XML file:-

-------------------------------------------------------------------------

Public Function LoginUserInfo()

If fso.FileExists("C:\Login_AES.xml") Then

'Creates object for "Msxml2.DOMDocument"

'Set xmlDoc = CreateObject("Msxml2.DOMDocument")

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

xmlDoc.load("C:\Login_AES.xml")

Set ENVnode = xmlDoc.getElementsByTagName("ENV")

Set IDnode = xmlDoc.getElementsByTagName("ID")

Set PSWDnode = xmlDoc.getElementsByTagName("PSWD")

ENVlength=ENVnode.length

IDlength=IDnode.length

PSWDlength=PSWDnode.length

Counter=1 'Loop to retrive xml items.
for Counter=0 to ENVlength-1

ENVitem=ENVnode.item(Counter).Text

IDitem=IDnode.item(Counter).Text

PSWDitem= PSWDnode.item(Counter).Text

If (LEnv = ENVitem) Then

Environment.Value("ENV") = ENVitem

Environment.Value("UserID")=IDitem

Environment.Value("PSWD") = PSWDitem

ENV = Envitem

UserID = IDitem

PSWD = PSWDitem

Exit For

End If

Next

End If

End Function