SQLServer身份验证管理子程序

核心提示： ·教你配置OSPF动态路由协议的身份验证·Solaris 10实现安全Kerberos身份验证·配置用于身份验证和授权的RADIUS服务·ASP.NET中的窗体身份验证·ASP.NET中的Windows身份验证·sql server(

·教你配置OSPF动态路由协议的身份验证
·Solaris 10实现安全Kerberos身份验证
·配置用于身份验证和授权的RADIUS服务
·ASP.NET中的窗体身份验证
·ASP.NET中的Windows身份验证
·sql server(WINDOWS平台上强大的数据库平台) 2000 身份验证与安全控制(
·sql server(WINDOWS平台上强大的数据库平台) 2000 身份验证与安全控制(
·电子商务身份验证解决方案
·apache(Unix平台最流行的WEB服务器平台)中实现身份验证和访问控制(1)
·设置Exchange 2003 OWA 基于窗体身份

Sub LoginDemo(srvname As String, suid As String, pwd As String)
Dim srv1 As SQLDMO.SQLServer
Dim lgn1 As SQLDMO.Login
' 新建一服务器实例
Set srv1 = New SQLDMO.SQLServer
' 以 sql server(WINDOWS平台上强大的数据库平台) 方式连接 sql server(WINDOWS平台上强大的数据库平台)
srv1.Connect srvname, suid, pwd
' 新建登录对象
Set lgn1 = New SQLDMO.Login
' 添加默认 sql server(WINDOWS平台上强大的数据库平台) 登录 msdn6
lgn1.Name = "UserX"
lgn1.Database = "NorthwindCS"
lgn1.SetPassword "", "password"
srv1.Logins.Add lgn1
'重新新建登录对象
Set lgn1 = New SQLDMO.Login
' 添加基于 Windows 组 SQL_users 的登录对象
lgn1.Name = "MYDESK\UserSQL"
lgn1.Database = "NorthwindCS"
lgn1.Type = SQLDMOLogin_NTGroup
srv1.Logins.Add lgn1
' 在添加登录后，列出登录列表
Debug.Print "添加 2 个新登录后的登录列表:"
For Each lgn1 In srv1.Logins
Debug.Print DecodeLoginType(lgn1.Type), lgn1.Name
Next lgn1
' 删除刚新建的登录
srv1.Logins.Remove "MYDESK\UserSQL"
srv1.Logins.Remove "UserX"
' 列出登录列表
Debug.Print vbCr & "删除 2 个新登录后的登录列表:"
For Each lgn1 In srv1.Logins
Debug.Print DecodeLoginType(lgn1.Type), lgn1.Name
Next lgn1
' 断开连接
srv1.Disconnect
Set srv1 = Nothing
End Sub


Function DecodeLoginType(lgn_type As Byte) As String
Select Case lgn_type
Case 0
DecodeLoginType = "SQLDMOLogin_NTUser"
Case 1
DecodeLoginType = "SQLDMOLogin_NTGroup"
Case 2
DecodeLoginType = "SQLDMOLogin_Standard"
Case Else
DecodeLoginType = "超出范围"
End Select
End Function