Option Explicit On Error Resume Next Dim SoapClient Set SoapClient = CreateObject("MSSOAP.SoapClient") If Err <> 0 Then WScript.Echo "Failed to create SoapClient object. Have you installed the SOAP Toolkit? " + err.description WScript.Quit 1 End If SoapClient.mssoapinit "http://ws.xara.com/graphicrender/render3d.wsdl" If Err <> 0 Then WScript.Echo "initialization failed " + Err.Description WScript.Quit 1 End If Dim Fonts Fonts = SoapClient.GetFonts() If Err <> 0 Then WScript.Echo Err.Description WScript.Quit 1 End If Dim Min, Max Min = LBound(Fonts) Max = UBound(Fonts) Dim Val Dim Index For Index = Min To Max WScript.Echo "Fonts(" & Index & ") = " & Fonts(Index) Next