' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Set doc = CreateObject("MSXML.DOMDocument") doc.Async = False doc.Load("http://lachica.mobi/servicepoints.xml") Set sps = doc.SelectNodes("//servicePointInformationResponse/servicePoints/servicePoint[name='Døgnposten 5802']") For Each sp In sps strnam = sp.SelectSingleNode("deliveryAddress/streetName").Text strnum = sp.SelectSingleNode("deliveryAddress/streetNumber").Text zip = sp.SelectSingleNode("deliveryAddress/postalCode").Text WScript.Echo strnam & " " & strnum & " " & zip Next Set sps = Nothing Set doc = Nothing