少し太っているといいのですが。マシンのローカル管理者アカウントのユーザー名とパスワードがハードコードされたプログラムを作成する必要があります (通常のユーザーがプリンシパルコンテキストで validatecredentials を呼び出せるようにするため)
Private Function validateAD(ByVal username As String, ByVal password As String) As Boolean
Dim valid As Boolean = False
Using context As PrincipalContext = New PrincipalContext(ContextType.Machine, Nothing, "administrator", "hardcodedadminpassword")
valid = context.ValidateCredentials(username, password)
End Using
Return valid
End Function
これは明らかに悪い考えなので、セキュアストリングを調べていました。
ただし、データを安全な文字列に変換するには、それを通常の文字列として渡す必要はありません (これは不変であるため、最初のセキュリティ リスクが生じます)。
どこが間違っていますか?