Webservice setup and overview - Revision history

Admin: /* Alternative example using Chilkat */

2019-02-21T15:55:11Z

Alternative example using Chilkat

← Older revision		Revision as of 15:55, 21 February 2019
Line 227:		Line 227:

	'''Same but using the IP Address parameter'''		'''Same but using the IP Address parameter'''


	~~'WD:~~
	~~'300: WeightDown in progress, please stand by~~
	~~'301: TurnOff in progress, please stand by~~
	~~'Status=>200<= =>200: Host is waiting for a update (updatepending) - on 192.168.88.60~~

	~~'OR WD pending:~~
	~~'302: Another maintenance service is already running, please come back later -> 192.168.88.60~~

	~~'WU:~~
	~~'Status=>200<= =>200: Host has been set to go online, please check the status later - 192.168.88.60~~

	~~'Trying to manipulate sequence~~
	~~'500: REQUESTWEIGHTDOWN (Updatepending) is already set on 192.168.88.60~~
	~~'500: updatepending is not set on 192.168.88.60~~

	~~'Status Manual Turn Off~~
	~~'500: Host is entirely disabled (192.168.88.60/hh-ibe01)~~
	~~'Status Manual WeightDown~~
	~~'500: Service has weightdown set set (Link:hh-ibe01:7000/INV-ID:689)~~




	~~'https://www.example-code.com/vbscript/http_soapPost11.asp~~
	~~'https://www.example-code.com/vb6/xml_UpdateAttrAt.asp~~
	~~'https://www.example-code.com/vbscript/http_soapPost11.asp~~
	~~'https://www.example-code.com/vbscript/xml_newChild2.asp~~



	Dim fso, outFile, strLVSCmd, strLVSHost,strLVSPort,strLVSClientIP		Dim fso, outFile, strLVSCmd, strLVSHost,strLVSPort,strLVSClientIP

Admin: /* Alternative example using Chilkat */

2019-02-21T15:54:46Z

Alternative example using Chilkat

@@ Line 224: / Line 224: @@
   End If
   outFile.Close
 *'''Note: The webservice requires mylvsmon to run'''

Admin: /* Alternative example using Chilkat */

2019-01-31T15:48:54Z

Alternative example using Chilkat

← Older revision		Revision as of 15:48, 31 January 2019
Line 191:		Line 191:
	Set outFile = fso.CreateTextFile("output.txt", True)		Set outFile = fso.CreateTextFile("output.txt", True)
	set http = CreateObject("Chilkat_9_5_0.Http")		set http = CreateObject("Chilkat_9_5_0.Http")
	success = http.UnlockComponent("~~HTCHKR.CBX082020_6dEBfWwVo76i~~")		success = http.UnlockComponent("any code to test")
	If (success <> 1) Then		If (success <> 1) Then
	outFile.WriteLine(crypt.LastErrorText)		outFile.WriteLine(crypt.LastErrorText)

Admin at 15:48, 31 January 2019

2019-01-31T15:48:32Z

← Older revision		Revision as of 15:48, 31 January 2019
Line 184:		Line 184:

	<br>		<br>

			=Alternative example using Chilkat=
			'https://www.example-code.com/vbscript/http_soapPost11.asp
			Dim fso, outFile
			Set fso = CreateObject("Scripting.FileSystemObject")
			Set outFile = fso.CreateTextFile("output.txt", True)
			set http = CreateObject("Chilkat_9_5_0.Http")
			success = http.UnlockComponent("HTCHKR.CBX082020_6dEBfWwVo76i")
			If (success <> 1) Then
			outFile.WriteLine(crypt.LastErrorText)
			outFile.WriteLine("unlock failed.")
			WScript.Quit
			End If
			set soapXml = CreateObject("Chilkat_9_5_0.Xml")
			soapXml.Tag = "soap:Envelope"
			success = soapXml.AddAttribute("soap:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")
			success = soapXml.AddAttribute("xmlns:soap","http://schemas.xmlsoap.org/soap/envelope/")
			success = soapXml.AddAttribute("xmlns:soapenc","http://schemas.xmlsoap.org/soap/encoding/")
			success = soapXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
			success = soapXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
			success = soapXml.UpdateAttrAt("Body\|REQUESTWEIGHTSTATUS",1,"xmlns","urn:lvs")
			''outFile.WriteLine(soapXml.GetXml())
			set req = CreateObject("Chilkat_9_5_0.HttpRequest")
			req.HttpVerb = "POST"
			req.SendCharset = 0
			req.AddHeader "Content-Type","text/xml; charset=utf-8"
			req.AddHeader "SOAPAction","urn:lvs#REQUESTWEIGHTSTATUS"
			req.Path = "/cgi-bin/lvs.cgi"
			success = req.LoadBodyFromString(soapXml.GetXml(),"utf-8")
			'http.SessionLogFilename = "httpSessionLog.txt"
			' resp is a Chilkat_9_5_0.HttpResponse
			Set resp = http.SynchronousRequest("ws.hhlvs.intern",80,0,req)
			If (http.LastMethodSuccess = 0) Then
			outFile.WriteLine(http.LastErrorText)
			Else
			set xmlResponse = CreateObject("Chilkat_9_5_0.Xml")
			success = xmlResponse.LoadXml(resp.BodyStr)
			outFile.WriteLine(xmlResponse.AccumulateTagContent("s-gensym3","nothing"))
			End If
			outFile.Close


	*'''Note: The webservice requires mylvsmon to run'''		*'''Note: The webservice requires mylvsmon to run'''

Admin: /* Webservice functions */

2015-09-07T15:47:19Z

Webservice functions

← Older revision		Revision as of 15:47, 7 September 2015
Line 117:		Line 117:
	=Webservice functions=		=Webservice functions=

	~~The above samples are~~ required to be setup ~~additional mySQL data~~, see more details here:<br>		Note: Additional steps were required to setup webservices, see more details here:<br>

	*[[SQL database setup#Webservice prepare\|Webservice prepare]]		*[[SQL database setup#Webservice prepare\|Webservice prepare]]

Admin: /* Return Codes */

2015-09-07T15:46:16Z

Return Codes

← Older revision		Revision as of 15:46, 7 September 2015
Line 143:		Line 143:

	=Return Codes=		=Return Codes=
	*The LVS-WFE Webservice ~~retruns~~ the following codes:		*The LVS-WFE Webservice returns the following codes:
	*Log Categories		*Log Categories
	**2nn = Success		**2nn = Success

Admin: /* Requirements and functions */

2015-09-07T15:45:56Z

Requirements and functions

← Older revision		Revision as of 15:45, 7 September 2015
Line 115:		Line 115:
	<br><br>		<br><br>

	=~~Requirements and~~ functions=		=Webservice functions=

	The above samples are required to be setup additional mySQL data, see more details here:<br>		The above samples are required to be setup additional mySQL data, see more details here:<br>

Admin: /* Sample request from a Windows client using cscript with SoapLite */

2015-09-07T15:45:16Z

Sample request from a Windows client using cscript with SoapLite

← Older revision		Revision as of 15:45, 7 September 2015
Line 104:		Line 104:
	'wscript.echo wso.WHATISMYIP(strBLA).result 'Sample for an alternative parameter		'wscript.echo wso.WHATISMYIP(strBLA).result 'Sample for an alternative parameter
	wscript.echo wso.WHATISMYIP().result		wscript.echo wso.WHATISMYIP().result
	Sample script (test-lite.vbs):		Sample script output (test-lite.vbs):
	C:\Users\Administrator\Documents\lvs>c:\Windows\SysWOW64\cscript.exe test-lite.vbs //nologo		C:\Users\Administrator\Documents\lvs>c:\Windows\SysWOW64\cscript.exe test-lite.vbs //nologo
	'''200 192.168.2.221'''		'''200 192.168.2.221'''

Admin: /* Sample request from a Windows client using cscript with MSXML */

2015-09-07T15:44:56Z

Sample request from a Windows client using cscript with MSXML

← Older revision		Revision as of 15:44, 7 September 2015
Line 77:		Line 77:
	xmlDoc.Load objDispatch		xmlDoc.Load objDispatch
	WScript.Echo xmlDoc.selectSingleNode("//WHATISMYIPResponse").text		WScript.Echo xmlDoc.selectSingleNode("//WHATISMYIPResponse").text
	Sample script (test.vbs):		Sample script output (test.vbs):
	C:\Users\Administrator\Documents\lvs>'''cscript test.vbs //Nologo'''		C:\Users\Administrator\Documents\lvs>'''cscript test.vbs //Nologo'''
	'''200 192.168.2.221'''		'''200 192.168.2.221'''

Admin: /* Sample request from a Windows client using perl */

2015-09-07T15:44:43Z

Sample request from a Windows client using perl

← Older revision		Revision as of 15:44, 7 September 2015
Line 47:		Line 47:
	$result->faultstring;		$result->faultstring;
	}		}
	Sample script (test.pl):		Sample script output (test.pl):
	C:\Users\Administrator\Documents\lvs>'''perl test.pl'''		C:\Users\Administrator\Documents\lvs>'''perl test.pl'''
	'''200 192.168.2.221'''		'''200 192.168.2.221'''