strDBServerName = "."
Set objSQLServer = CreateObject("SQLDMO.SQLServer")objSQLServer.LoginSecure = TrueobjSQLServer.Connect strDBServerName
objSQLServer.Shutdown