2009-10-20 1 views

Répondre

0
Public Shared Function Authenticate (account As String, password As String, serverName As String, authenticationType As String) As String 

    Dim sessionManager As New SessionMgr 
    Dim enterpriseSession As EnterpriseSession 

    Try 

    enterpriseSession = sessionManager.Logon(account, password, serverName, authenticationType) 

    'any client computer, 120 minutes, 1000 logons 
    Return enterpriseSession.LogonTokenMgr.CreateLogonTokenEx("", 120, 1000) 

    Catch ex As Exception 
    Throw ex 

    End Try 


End Function 
Questions connexes