SQLServer身份验证管理子程序

核心提示： Sub ChangeServerAuthenticationMode(constAuth As Byte) Dim srv1 As SQLDMO.SQLServer ' 指定哪个服务器，默认为 Local (本地服务器) srvname = "(local)"

Sub ChangeServerAuthenticationMode(constAuth As Byte)
Dim srv1 As SQLDMO.SQLServer
' 指定哪个服务器，默认为 Local (本地服务器)
srvname = "(local)"
' 使用集成安全(Windows)方式新建一个 sql server(WINDOWS平台上强大的数据库平台) 对象并进行连接
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(WINDOWS平台上强大的数据库平台) 对象并进行连接
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(WINDOWS平台上强大的数据库平台) 对象并进行连接
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