
Creating a SQL Login (for a Windows Login or Group)
Creates a SQL login for a given Windows user login or group name.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Dim SQLServer, Login GetSQLServer SQLServer, "ServerName", "", "", True Set Login = CreateObject("SQLDMO.Login") With Login .Name = "LoginName" .Database = "master" 'Type is 0 when creating a login for a Windows user 'and 1 when creating a login for a Windows group. .Type = 1 End With SQLServer.Logins.Add Login Function GetSQLServer(ByRef SQLServer, ServerName, Username, Password, WindowsAccount) Set SQLServer = CreateObject("SQLDMO.SQLServer2") SQLServer.LoginTimeout = 15 If ServerName="" Then ServerName="(local)" If Username="" Then SQLServer.LoginSecure = true SQLServer.Connect ServerName Else SQLServer.LoginSecure = WindowsAccount SQLServer.Connect ServerName, Username, Password End If End Function |