SQLServer身份验证管理子程序.doc

:..()DimsrvnameAsStringDimsuidAsStringDimpwdAsString'设置SQLServer的登录参数srvname="(local)"'suid="sa"'pwd=""'()DimsrvnameAsStringDimsuidAsStringDimpwdAsString'设置SQLServer的登录参数srvname="(local)"'suid="sa"'pwd=""'调用SQLServer登录过程SQLDMOSQLServerLoginsrvname,suid,pwdEndSubSubSQLDMOSQLServerLogin(srvnameAsString,suidAsString,pwdAsString)'新建一个服务器实例Setsrv1=',suid,pwd'=NothingEndSubSubCallSQLDMOWindowsLogin()DimsrvnameAsString'设置Windows登录参数srvname="(local)"SQLDMOWindowsLoginsrvnameEndSubSubSQLDMOWindowsLogin(srvnameAsString)'新建一个服务器实例Setsrv1='在调用前,设置LoginSecure属性为True'='=NothingEndSubSubCallChangeServerAuthenticationMode()DimconstAuthAsByte'设置constAuth参数为:'SQLDMOSecurity_Integrated为WindowsAuthentication模式'SQLDMOSecurity_Mixed为MixedAuthentication模式'设置constAuth的默认值constAuth=SQLDMOSecurity_Mixed'调用改变SQLServer身份认证模式的方法ChangeServerAuthenticationModeconstAuthEndSubSubChangeServerAuthenticationMode(constAuthAsByte)'指定哪个服务器,默认为Local(本地服务器)srvname="(local)"'使用集成安全(Windows)方式新建一个SQLServer对象并进行连接Setsrv1=