![]() | |
ConneXionUpdatePolicy Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oPolicy As New ConneXion.Policy Dim oResult As ConneXion.ConneXionResult oPolicy.TAMUserName = "EXEC" oPolicy.TAMPassword = "PSWD" oPolicy.ClientID = "ABBOJO1" oPolicy.PolicySlot = "-6" oPolicy.PolicySection = "001" oResult = oConneXion.FindPolicy(oPolicy) If oResult.Success = False Then txtPolicyResult.Text = "FindPolicy was false. " & oResult.Number & " " & oResult.Description & ". " & oResult.TAMErrorNumber & " " & oResult.TAMDescription Else oPolicy.TAMUserName = "EXEC" oPolicy.TAMPassword = "PSWD" oPolicy.CSR = "AR" oResult = oConneXion.UpdatePolicy(oPolicy) If oResult.Success = False Then txtPolicyResult.Text = "UpdatePolicy is false. " & oResult.Number & " " & oResult.Description & ". " & oResult.TAMErrorNumber & " " & oResult.TAMDescription Else txtPolicyResult.Text = "UpdatePolicy is successful. " & oResult.Description & oResult.TAMDescription End If End If