使用备用Windows凭据覆盖

如果要检查给定域服务器的用户名和密码凭据是否正确,则可能需要使用 LogonUser PInvoke 更多细节和例子。

Dim adminUser As New List(Of String)(New String() {"admin1", "admin2", "admin3"})
Dim loggedInUser As String = Environment.UserName.ToLower
If Not adminUser.Contains(loggedInUser) Then
    TabControl1.TabPages.RemoveAt(TabControl1.TabPages.IndexOf(Tab_AdminOnly))
End If

这假设您有一个选项卡(Tab_admin only),其中包含您只希望管理员拥有的项。您可以根据需要禁用/删除控件。