Public
Sub
Server1()
Set
DMIService =
New
DMIService
Set
oXML = CreateObject(
"msxml2.DOMDocument"
)
oXML.LoadXML DMIService.execute(Webservice,
"Connection_GetSettings"
,
"RMWS_RegistrySoap"
,
""
)
ActiveDocument.Bookmarks(
"Text1"
).
Select
Selection.Text = oXML.SelectSingleNode(
"/Connection_GetSettings/Connection/UserName"
).Text
ActiveDocument.Bookmarks(
"Text2"
).
Select
Selection.Text = oXML.SelectSingleNode(
"/Connection_GetSettings/Connection/Database"
).Text
ActiveDocument.Bookmarks(
"Text3"
).
Select
Selection.Text = oXML.SelectSingleNode(
"/Connection_GetSettings/Connection/Server"
).Text
ActiveDocument.Bookmarks(
"Text4"
).
Select
Selection.Text = oXML.SelectSingleNode(
"/Connection_GetSettings/Connection/Provider"
).Text
End
Sub