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 ExportTypes ExportTypes = SoapClient.GetExportTypes() If Err <> 0 Then WScript.Echo Err.Description WScript.Quit 1 End If Dim Min, Max Min = LBound(ExportTypes) Max = UBound(ExportTypes) Dim Val Dim Index For Index = Min To Max WScript.Echo "ExportTypes(" & Index & ") = " & ExportTypes(Index) Next