LISTING 1: Procedures to Create a Login on the Cablat Server

Sub call_login_adder()
Dim login_name As String
Dim default_database As String
Dim password As String

'Designate login settings for a SQL Server login.
login_name = "cabxli"
default_database = "Northwind"
password = "password"

'Call sub proc to add login.
login_adder login_name, default_database, password

End Sub

Sub login_adder(login_name As String, _
    default_database As String, _
    password As String)
Dim srv1 As SQLDMO.SQLServer
Dim lgn1 As SQLDMO.Login

'Instantiate SQLServer object and
'point it at the cablat server.
Set srv1 = New SQLDMO.SQLServer
srv1.Connect "cablat", "sa", ""

'Instantiate new login and set its name and
'default database properties; set its password.
Set lgn1 = New SQLDMO.login
lgn1.Name = login_name
lgn1.Database = default_database
lgn1.SetPassword "", password

'After creating the login, add it to the
'cablat server.
srv1.Logins.Add lgn1

'Clean up.
Set lgn1 = Nothing
srv1.Disconnect
Set srv1 = Nothing

End Sub