![]() | |
ConneXionDeletePolicy Method |
Namespace: ConneXion
Dim oConneXionPolicy As New ConneXion.ConneXion Dim oPolicy As New ConneXion.Policy Dim oResult As ConneXion.ConneXionResult oPolicy.TAMUserName = "EXEC" oPolicy.TAMPassword = "PSWD" oPolicy.LicenseKey = "1234567 1" oPolicy.TAMCentralAgency = "DEMOAG1" oPolicy.ClientID = "ABBOJO1" oPolicy.PolicySlot = "-6" oPolicy.PolicySection = "001" oResult = oConneXionPolicy.DeletePolicy(oPolicy) If oResult.Success = False Then txtPolicyResult.Text = "DeletePolicy is false. " & oResult.Number & " " & oResult.Description & ". " & oResult.TAMErrorNumber & " " & oResult.TAMDescription Else txtPolicyResult.Text = "DeletePolicy is successful. " & oResult.Description & oResult.TAMDescription End If