PrimaryTestingDelay Property of the IFPCEEConfigurationStorageServerConnection Interface

HRESULT put_PrimaryTestingDelay(
	long lPrimaryTestingDelay
);
HRESULT get_PrimaryTestingDelay(
	long* plPrimaryTestingDelay
);

Parameters

plPrimaryTestingDelay

Pointer to a variable that is set on return to a 32-bit integer specifying the time (in minutes) after which an array member will start testing for connectivity with the primary Configuration Storage server when using the alternate Configuration Storage server.

lPrimaryTestingDelay

A 32-bit integer that specifies the time (in minutes) after which an array member will start testing for connectivity with the primary Configuration Storage server when using the alternate Configuration Storage server.

Return Value

These property methods return S_OK if the call is successful; otherwise, they return an error code.

Property PrimaryTestingDelay As Long

Property Value

A 32-bit integer that specifies the time (in minutes) after which an array member will start testing for connectivity with the primary Configuration Storage server when using the alternate Configuration Storage server.

Example Code

Sub SetPrimaryTestingDelay(css, userName, domain, password, newValue)
	' Declare the objects needed.
	Dim root		' The FPCLib.FPC root object
	Dim isaArray	' An FPCArray object
	Dim cssCn		 ' An FPCConfigurationStorageServerConnection object
	Dim currentValue  ' An Integer
	' Create the root object.
	Set root = CreateObject("FPC.Root")
	' Connect to the Configuration Storage server.
	root.ConnectToConfigurationStorageServer css, userName, domain, password
	' Get references to the array object 
	' and the connection object.
	Set isaArray = root.GetContainingArray()
	Set cssCn = isaArray.ConfigurationStorageServerConnection
	' Change the value of the property if necessary.
	currentValue = cssCn.PrimaryTestingDelay
	WScript.Echo "Current primary testing delay: " & currentValue
	If newValue <> currentValue Then
		cssCn.PrimaryTestingDelay = newValue
		WScript.Echo "Saving the new value " & newValue & " ..."
		isaArray.Save
		WScript.Echo "Done!" 
	End If
End Sub