[原创]关于SQLServer2000 身份验证与安全控制

zhuyiwen

SQL Server 2000 联机丛书：
SQL Server 身份验证模式

当 SQL Server 2000 在 Windows NT 或 Windows 2000 上运行时，sysadmin 固定服务器角色成员可以指定下面两种身份验证模式之一：

1.Windows 身份验证模式

    只进行 Windows 身份验证。用户不能指定 SQL Server 2000 登录 ID。这是 SQL Server 2000 的默认身份验证模式。不能为在 Windows 98 上运行的 SQL Server 实例指定 Windows 身份验证模式，因为此操作系统不支持 Windows 身份验证。

    当用户通过 Windows NT 4.0 或 Windows 2000 用户帐户进行连接时，SQL Server 通过回叫 Windows NT 4.0 或 Windows 2000 以获得信息，重新验证帐户名和密码。 SQL Server 通过使用网络用户的安全特性控制登录访问，以实现与 Windows NT 4.0 或 Windows 2000 的登录安全集成。用户的网络安全特性在网络登录时建立，并通过 Windows 域控制器进行验证。当网络用户尝试连接时，SQL Server 使用基于 Windows 的功能确定经过验证的网络用户名。SQL Server 于是验证此人是否是如其所说的那个人，然后只基于网络用户名允许或拒绝登录访问，而不要求单独的登录名和密码。

    登录安全集成在 SQL Server 中任何受支持的网络协议上运行。


    说明 如果用户试图通过提供空白登录名称连接到 SQL Server 的实例，SQL Server 将使用 Windows 身份验证。此外，如果用户试图使用特定的登录连接到配置为 Windows 身份验证模式的 SQL Server 实例，则将忽略该登录并使用 Windows 身份验证。

    与 SQL Server 身份验证相比，Windows 身份验证有某些优点，主要是由于它与 Windows NT 4.0 和 Windows 2000 安全系统的集成。Windows NT 4.0 和 Windows 2000 安全系统提供更多的功能，如安全验证和密码加密、审核、密码过期、最短密码长度，以及在多次登录请求无效后锁定帐户。

    由于 Windows NT 4.0 和 Windows 2000 用户和组只由 Windows NT 4.0 或 Windows 2000 维护，因此当用户进行连接时，SQL Server 将读取有关该用户在组中的成员资格信息。如果对已连接用户的可访问权限进行更改，则当用户下次连接到 SQL Server 实例或登录到 Windows NT 4.0 或 Windows 2000 时（取决于更改的类型），这些更改会生效。

2.混合模式

    如果用户在登录时提供了 SQL Server 2000 登录 ID，则系统将使用 SQL Server 身份验证对其进行验证。如果没有提供 SQL Server 2000 登录 ID 或请求 Windows 身份验证，则使用 Windows 身份验证对其进行身份验证。

    当用户用指定的登录名称和密码从非信任连接进行连接时，SQL Server 通过检查是否已设置 SQL Server 登录帐户，以及指定的密码是否与以前记录的密码匹配，自己进行身份验证。如果 SQL Server 未设置登录帐户，则身份验证将失败，而且用户收到错误信息。 提供 SQL Server 身份验证是为了向后兼容性，因为为 SQL Server 7.0 版或更早的版本编写的应用程序可能要求使用 SQL Server 登录和密码。另外，当 SQL Server 实例在 Windows 98 上运行时，必须使用 SQL Server 身份验证，因为在 Windows 98 上不支持 Windows 身份验证模式。因此，SQL Server 在 Windows 98 上运行时使用混合模式（但只支持 SQL Server 身份验证）。

　　尽管建议使用 Windows 身份验证，但对于 Windows NT 4.0 和 Windows 2000 客户端以外的其它客户端连接，可能需要使用 SQL Server 身份验证。

　　 说明 当使用命名管道连接到在 Windows NT 4.0 或 Windows 2000 上运行的 SQL Server 实例时，用户必须有连接到 Windows NT 命名管道 IPC \\<computername>\IPC$ 的权限。如果用户没有连接权限，则不能使用命名管道连接到 SQL Server 实例，除非计算机上的 Windows NT 4.0 或 Windows 2000 guest 帐户已启用（默认情况下禁用），或者给用户帐户授予"从网络访问该计算机"的权限。

==========================================
实例操作
==========================================

　　设置 SQL Server 2000 身份验证模式

　　SQL Server 2000 身份验证模式可以在安装过程中指定或使用 SQL Server 企业管理器指定，如下图。

　　也可以通过修改注册表的方式来改变，如下图，它保存在
　　HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer 节的 LoginMode 中。
　　LoginMode的键值：1 表示Windows 身份验证模式，2 表示混合模式。

注：改变模式后，必须重新启动 SQL Server 2000 才会生效。

================================================

SQL Server 2000 联机丛书：
若要连接到 Microsoft?SQL Server"! 2000 实例，只需给应用程序提供

li08hua

谢谢分享！

huangjingfeng88

谢谢

chaosheng

学习

t小宝

原来很早就有这等好帖了，保存下来慢慢学习，谢谢！

appleboy0028

顶

zhuyiwen

本子程序配合上面贴子。

Option Compare Database
Public appAccess As Access.Application

Sub CallSQLDMOSQLServerLogin()
    Dim srvname As String
    Dim suid As String
    Dim pwd As String
   
    ' 设置 SQL Server 的登录参数
    srvname = "(local)"
    'suid = "sa"
    'pwd = ""
   
    ' 调用 SQL Server 登录过程
    SQLDMOSQLServerLogin srvname, suid, pwd
End Sub


Sub SQLDMOSQLServerLogin(srvname As String, suid As String, pwd As String)
    Dim srv1 As SQLDMO.SQLServer
   
    ' 新建一个服务器实例
    Set srv1 = New SQLDMO.SQLServer
   
    ' 调用 SQL Server 登录连接方法
    srv1.Connect srvname, suid, pwd
   
   
    ' 断开连接
    srv1.Disconnect
    Set srv1 = Nothing
End Sub


Sub CallSQLDMOWindowsLogin()
    Dim srvname As String
   
    ' 设置 Windows 登录参数
    srvname = "(local)"
   
    SQLDMOWindowsLogin srvname
End Sub


Sub SQLDMOWindowsLogin(srvname As String)
    Dim srv1 As SQLDMO.SQLServer
   
    ' 新建一个服务器实例
    Set srv1 = New SQLDMO.SQLServer
   
    ' 在调用前，设置 LoginSecure 属性为 True
    ' 使用服务名进行连接
    srv1.LoginSecure = True
    srv1.Connect srvname
   
    ' 断开连接
    srv1.Disconnect
    Set srv1 = Nothing
End Sub

Sub CallChangeServerAuthenticationMode()
    Dim constAuth As Byte
   
    ' 设置 constAuth 参数为：
    '    SQLDMOSecurity_Integrated 为 Windows Authentication 模式
    '    SQLDMOSecurity_Mixed 为 Mixed Authentication 模式
   
    ' 设置 constAuth 的默认值
    constAuth = SQLDMOSecurity_Mixed
   
    ' 调用改变 SQL Server 身份认证模式的方法
    ChangeServerAuthenticationMode constAuth
End Sub

Sub ChangeServerAuthenticationMode(constAuth As Byte)
    Dim srv1 As SQLDMO.SQLServer
   
    ' 指定哪个服务器，默认为 Local (本地服务器)
    srvname = "(local)"
   
    ' 使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接
    Set srv1 = New SQLDMO.SQLServer
    srv1.LoginSecure = True
    srv1.Connect srvname
   
    ' 设置 SecurityMode 属性为 Windows 或混合身份验证模式
    srv1.IntegratedSecurity.SecurityMode = constAuth
    srv1.Disconnect
   
    ' 调用 Stop 方法停止服务器，直到服务器完全停止
    srv1.Stop
    Do Until srv1.Status = SQLDMOSvc_Stopped
    Loop
   
    ' 重新以混合模式启动服务器
    srv1.Start True, srvname
   
    ' 断开连接
    srv1.Disconnect
    Set srv1 = Nothing
End Sub

Sub ToWindowsAuthentication()
    Dim srv1 As SQLDMO.SQLServer
   
    ' 指定哪个服务器，默认为 Local (本地服务器)
    srvname = "(local)"
   
    ' 使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接
    Set srv1 = New SQLDMO.SQLServer
    srv1.LoginSecure = True
    srv1.Connect srvname
   
    ' 设置 SecurityMode 属性为 Windows 身份验证模式
    srv1.IntegratedSecurity.SecurityMode = SQLDMOSecurity_Integrated
    srv1.Disconnect
   
    ' 调用 Stop 方法停止服务器，直到服务器完全停止
    srv1.Stop
    Do Until srv1.Status = SQLDMOSvc_Stopped
    Loop
   
    ' 重新以混合模式启动服务器
    srv1.Start True, srvname
   
    ' 断开连接
    srv1.Disconnect
    Set srv1 = Nothing

End Sub

Sub WindowsToMixedAuthentication()
Dim srv1 As SQLDMO.SQLServer

    ' 指定哪个服务器，默认为 Local (本地服务器)
    srvname = "(local)"
   
    ' 使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接
    Set srv1 = New SQLDMO.SQLServer
    srv1.LoginSecure = True
    srv1.Connect srvname
   
    ' 设置 SecurityMode 属性混合身份验证模式
    srv1.IntegratedSecurity.SecurityMode = SQLDMOSecurity_Mixed
    srv1.Disconnect
   
    ' 调用 Stop 方法停止服务器，直到服务器完全停止
    srv1.Stop
    Do Until srv1.Status = SQLDMOSvc_Stopped
    Loop
   
    ' 重新以混合模式启动服务器
    srv1.Start True, srvname
   
    ' 断开连接
    srv1.Disconnect
    Set srv1 = Nothing

End Sub

Sub CallOpenADPWindowsOrSQLServer()
    Dim srvname As String
    Dim dbname As String
    Dim prpath As String
    Dim prname As String
    Dim suid As String
    Dim pwd As String
    Dim bolWindo

竹笛

精品！

tmtony

“另存为”还保存版权，我一般 copy & paste 据为己有

cg1

不错，有必要加以“另存为”