一般来说IIS的验证方式有好几种，比较常见的就是匿名验证，集成Windows验证等等。 但是集成Windows验证每次都会谈个对话框出来，很麻烦，特别是在使用代理的情况下。

于是想能不能用一种Form的方式实现Windows验证呢？ 当然啦，想想而已，本来对WEB开发就不算熟， Windows方面的就更差了。

在网上搜索到了一种方式，利用 advapi32.dll的LogonUser方法是可以验证你输入的用户名密码是不是Windows的有效用户的。

代码如下 ：

'include permissions namespace for security attributes

'include principal namespace for windowsidentity class

'include interopservices namespace for dllImports.

Imports System.Security.Principal

Imports System.Security.Permissions

Imports System.Runtime.InteropServices

'

Public Class LogInUser

_

Private Shared Function LogonUser(ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal

lpszPassword As String, _    ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, ByRef phToken  As Integer) As Boolean

End Function

_

Private Shared Function GetLastError() As Integer

End Function

Public Shared Function LogInThisUser(ByVal username As String, ByVal domainname As String, _

ByVal password As String) As String

Try

'The Windows NT user token.

Dim token1 As Integer

'Get the user token for the specified user, machine, and password using the unmanaged LogonUser method.

'The parameters for LogonUser are the user name, computer name, password,

'Logon type (LOGON32_LOGON_NETWORK_CLEARTEXT), Logon provider (LOGON32_PROVIDER_DEFAULT),

'and user token.

Dim loggedOn As Boolean = LogonUser(username, domainname, password, 3, 0, token1)

'impersonate user

Dim token2 As IntPtr = New IntPtr(token1)

Dim mWIC As WindowsImpersonationContext = _

New WindowsIdentity(token2).Impersonate

Catch e As Exception

'error occurred.. error number unknown.

Return "Err. occurred : " & e.Message

End Try

Dim winUser As WindowsIdentity

Return winUser.GetCurrent.Name

End Function

End Class

不过网上的VB代码，我习惯用的是C#，于是一行一行的转换。结果后来执行的时候就出错了： 提示 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。

开始以为是因为要获取系统用户信息，所以需要的权限比较高或者是会读去受保护的系统信息。 继续搜索这个错误，发现是因为使用了非托管代码，而且我转换LogonUser函数中的最后一个变量  ByRef phToken  As Integer时，转换成了INT,实际上应该是ref InPtr类型，因为引用非托管代码函数参数错误，所以报这个错误。

至于托管代码和非托管代码更详细的差别还得以后慢慢研究了。。