Set objSQLServer = CreateObject("SQLDMO.SQLServer")
Select Case objSQLServer.ServerLoginMode(strDBServerName) Case SQLDMOSecurity_Integrated WScript.Echo "Login Mode: Allow Windows Authentication only." Case SQLDMOSecurity_Mixed WScript.Echo "Login Mode: Allow Windows Authentication or SQL Server Authentication." Case SQLDMOSecurity_Normal WScript.Echo "Login Mode: Allow SQL Server Authentication only." Case SQLDMOSecurity_Unknown WScript.Echo "Login Mode: Security type unknown." End Select