Silly question, are you actually logging into the system prior to the
create entry?
Dim myARServer As New BMC.ARSystem.Server
If ARS_Login(myARServer, txtServer.Text, txtLoginName.Text,
txtPassword.Text) = False Then
'HCF - Hault Catch Fire, Login Failed!
CheckARSError(myARServer)
Else
'Login Succesful!
Dim myFieldList_Logging As New BMC.ARSystem.FieldValueList
myFieldList_Logging.Add(2, txtLoginName.Text.ToString(),
BMC.ARSystem.Constants.AR_DATA_TYPE_CHAR)
myFieldList_Logging.Add(7, "New",
BMC.ARSystem.Constants.AR_DATA_TYPE_CHAR)
myFieldList_Logging.Add(8, "People Import",
BMC.ARSystem.Constants.AR_DATA_TYPE_CHAR)
myFieldList_Logging.Add(... ...)
Dim szRequestID As String = ""
Dim szFormDef_Logging As String = "IFX:INTF:People Feed-History"
Try
szRequestID = myARServer.CreateEntry(szFormDef_Logging,
myFieldList_Logging)
Catch ex As Exception
CheckARSError(myARServer)
End Try
End If
Private Function CheckARSError(ByVal lclARS As BMC.ARSystem.Server)
As Integer
If lclARS.LastReturnCode <> 0 Then
' Ka boom!
' Output all messages!
Dim x As Integer
x = 0
While (x < lclARS.LastStatus.Count)
txtStatus.Text += vbTab &
lclARS.LastStatus.Item(x).MessageText
txtStatus.Text += vbCrLf & vbTab &
lclARS.LastStatus.Item(x).AppendedText
txtStatus.Text += vbCrLf & vbTab & "ARERR: " &
lclARS.LastStatus.Item(0).MessageNumber.ToString & vbCrLf
x += 1
End While
End If
CheckARSError = lclARS.LastReturnCode
End Function
HTH
Thanks-n-advance;
HDT Platform Incident / Problem Manager & Architect
Robert Molenda
IT OS PA
Tel: +1 408 503 2701
Fax: +1 408 503 2912
Mobile: +1 408 472 8097
[EMAIL PROTECTED]
Quality begins with your actions.
________________________________
From: Action Request System discussion list(ARSList)
[mailto:[EMAIL PROTECTED] On Behalf Of Lammey, Peter A.
Sent: Friday, September 14, 2007 5:43 AM
To: [email protected]
Subject: Running into issues when using the Remedy .NET API script
against ARS 7.01 / ITSM 7.02
We are in the process of developing and testing a .NET API script
against our ARS 7.01 / ITSM 7.02 and some of the commands seem to work
but when we run the script the command returns "Error(623)
Authentication failed" error. When attempting this command:
EntryId = objARSystem.CreateEntry(pRemedySchema, FieldValues)
Here are all the versions of the Remedy .NET API and the programs that
we are using:
BMC.arnettoc.dll 7.0.0.0
BMC.ARSystem.dll 7.0.2391.24945
Visual Basic .NET 2005
Windows Server 2003
However we can successfully connect with the following string:
Call objArSystemPub.Login(pRemedyServer, pRemedyUID, pRemedyPWD,
"")
Call
objArSystemPub.SetServerPort(Microsoft.VisualBasic.Conversion.Int(pRemed
yPort), Microsoft.VisualBasic.Conversion.Int(pRemedyRPCProgramNum))
Is there is any .NET API expertise out there that can help us with this?
Our Remedy AR System is version 7.01 patch 002 and our ITSM version is
7.02 patch 005.
Thanks
Peter Lammey
ESPN MIT Technical Services & Applications Management
860-766-4761
__20060125_______________________This posting was submitted with HTML in
it___
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org ARSlist:"Where the
Answers Are"
