I have the following VB code snippet to set a trusted app identifier from OSISoft. This seems to crash the application on the line [Set AppId = gPISDKObj]. If i comment out that line and the next one it seems to run just fine.
Any ideas what could be wrong here? We are using PI SDK version 1.3.
Thanks, Appreciate the help!
Dim srv As Server
Dim pt As PIPoint
Dim gPISDKObj As PISDK.PISDK
Dim sGuid As String
Dim AppId As PISDK.IPIAppIdentity
On Error GoTo HANDLER
Set gPISDKObj = New PISDK.PISDK
sGuid = "********-****-****-************"
Set AppId = gPISDKObj
AppId.Identifier = sGuid
Set srv = gPISDKObj.Servers("PIServer")
'Get pi point
Dim ptatr As PointAttribute
Dim stratr As String
Set pt = srv.PIPoints("OSIDEMO_Clear Fork.Avg 30d Downtime")
For Each ptatr In pt.PointAttributes
stratr = stratr + ptatr.Name + ": " + ptatr.Value + vbCrLf