Here is some sample code.....Not the best code but it may get you going down the right track.
Put this in a new module so that you can use it for any webform in your app.
Function Is_SSO2Authenticated(ByVal objRequest As System.Web.HttpRequest, ByVal ObjUser As System.Security.Principal.IPrincipal, _
Optional ByRef strErrorMsg As String = "") As Boolean
Dim blnReturnValue As Boolean = False
Try
If IsNothing(objRequest.Cookies("MYSAPSSO2")) = True Then
strErrorMsg = "MySAPSSO2 Cookie not found"
Else
If ObjUser.Identity.IsAuthenticated = False Then
strErrorMsg = "User not authenticated."
Else
If ObjUser.Identity.AuthenticationType <> "MYSAPSSO2" Then
strErrorMsg = "Authenticated by other Authentication Modulue."
Else
blnReturnValue = True
End If
End If
End If
Catch ex As Exception
blnReturnValue = False
strErrorMsg = ex.Message
End Try
Return blnReturnValue
End Function
Public Variables that read setting from web.config
Public strAppServerHost As String = ConfigurationSettings.AppSettings("dstR3.AppServerHost")
Public shtSystemNumber As Short = CType(ConfigurationSettings.AppSettings("dstR3.SystemNumber"), Short)
Public shtClient As Short = CType(ConfigurationSettings.AppSettings("dstR3.Client"), Short)
In your page load
Try
blnAuth = Is_SSO2Authenticated(Request, User, strMessage)
If blnAuth = True Then
Dim objIdent As SAP.Web.Security.MySAPSso2Identity
objIdent = User.Identity
With Me.dstR3
.MySAP_SSO2 = objIdent.TicketString
.AppServerHost = strAppServerHost
.SystemNumber = shtSystemNumber
.Client = shtClient
End With
With Me.YourProxy1
.Connection = Me.YourProxy1.Connection.GetConnection(Me.dstR3.ConnectionString)
.Connection.Open()
End With
If Me.YourProxy1.Connection.IsOpen = True Then
' Do Something
Else
' Display No Connection Error
End If
Else
' Display not authorized error
End If
Catch ex As Exception
' Display All other errors
End Try
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.