Hello all, I was just wondering if anyone had had the following error
before, and if so, then what did you do to resolve it?
************************************************
System.AccessViolationException: Attempted to read or write protected
memory. This is often an indication that other memory is corrupt.
at evalImpl(tagVARIANT* , tagVARIANT* )
at ARNetToC.API.eval(Object v)
at BMC.ARSystem.Server._Eval(Object v)
at BMC.ARSystem.Server._performLogin(String methodName, String server,
String user, String password, String authentication, String locale,
String charSet, Int32 port, String apiCmdLog, String apiResLog, Boolean
logInitAndTerm)
at BMC.ARSystem.Server.Login(String server, String user, String
password, String authentication, String locale, String charSet, Int32
port)
at BMC.ARSystem.Server.Login(String server, String user, String
password, String authentication)
at BMC.ARSystem.Server.Login(String server, String user, String
password)
************************************************
I am getting this occasionally. Most days it runs fine, but then very
rarely it will start throwing that error on every ticket which I try to
create.
Below is a snippet of my code:
Sub CreateTicket(ByVal id As Integer, ByVal machine_name As String,
ByVal collection_name As String, ByVal submitter_user As String, ByVal
report_location As String)
Dim usrArray() As String = getUsrInfo(submitter_user)
Dim asgGroup() As String = GetGroup(submitter_user, usrArray(8),
usrArray(3))
Dim scheduledDate As Integer = GetSchedDate()
Dim workLog As String = getWorkLog(report_location)
Dim formName As String = <remedy form>
Dim server As BMC.ARSystem.Server
Dim fieldValues As New BMC.ARSystem.FieldValueList
Dim entryID As String = ""
Dim result As String = ""
Dim serverName As String = <server name>
Dim userName As String = <login name>
Dim userPass As String = <password>
server = CreateObject("BMC.ARSystem.Server")
fieldValues = CreateObject("BMC.ARSystem.FieldValueList")
Try
server.Login(serverName, userName, userPass)
fieldValues.Item(x) = <Submitter>
fieldValues.Item(x) = <Status>
fieldValues.Item(x) = <Priority>
fieldValues.Item(x) = scheduledDate
fieldValues.Item(x) = asgGroup(0)
fieldValues.Item(x) = asgGroup(1)
fieldValues.Item(x) = <Category>
fieldValues.Item(x) = <Type>
fieldValues.Item(x) = <Item>
fieldValues.Item(x) = <Problem Description>
fieldValues.Item(x) = workLog
fieldValues.Item(x) = machine_name
fieldValues.Item(x) = usrArray(7)
fieldValues.Item(x) = usrArray(0)
fieldValues.Item(x) = usrArray(1)
fieldValues.Item(x) = usrArray(2)
fieldValues.Item(x) = usrArray(3)
fieldValues.Item(x) = <Other>
fieldValues.Item(x) = usrArray(5) & " " & usrArray(6)
Try
entryID = server.CreateEntry(formName, fieldValues)
If entryID <> "" Then
'Update database record
updateTicket(id, entryID)
End If
Catch ex As Exception
'ERROR!
log(ex.ToString)
server.Logout()
End Try
server.Logout()
Catch ex As Exception
'ERROR!
log(ex.ToString)
End Try
Thanks,
Gary Opela, Jr.
Remedy Engineer, RSP Certified
ITIL V3 Foundations Certified
Avaya Phone Support
CNI/IT Tinker 72 SC
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org
attend wwrug11 www.wwrug.com ARSList: "Where the Answers Are"
