我编写了一个需要用户使用本地管理员帐户登录的程序。但是每台 PC 的本地管理员帐户名称都不同,因此我无法对用户名进行硬编码。
下面的代码只检索了管理员组中的用户,而不是身份验证。可以帮忙?1.如何验证用户名和密码?2.如何强制用户仅使用本地用户帐户登录。
Dim localMachine As New DirectoryEntry("WinNT://" & "localhost")
Dim admGroup As DirectoryEntry = localMachine.Children.Find("Administrators", "group")
Dim members As Object = admGroup.Invoke("members", Nothing)
For Each groupMember As Object In CType(members, IEnumerable)
Dim member As New DirectoryEntry(groupMember)
MsgBox(member.Name)
Next