OfflineModus
This commit is contained in:
@@ -12,7 +12,7 @@ Public Class Login
|
|||||||
Class1.DebugText = LDAP
|
Class1.DebugText = LDAP
|
||||||
' Class1.DebugText &= Environment.UserDomainName & vbCrLf
|
' Class1.DebugText &= Environment.UserDomainName & vbCrLf
|
||||||
'Class1.DebugText &= ReturnLDAP(Environment.UserDomainName) & vbCrLf
|
'Class1.DebugText &= ReturnLDAP(Environment.UserDomainName) & vbCrLf
|
||||||
Class1.CheckDebug()
|
Class1.CheckDebug(True)
|
||||||
Try
|
Try
|
||||||
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
|
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
|||||||
Reference in New Issue
Block a user