Shulou(Shulou.com)06/03 Report--

This article is about how to add administrator users to vbs. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

Set wsnetwork=CreateObject ("WSCRIPT.NETWORK")

Os= "WinNT://" & wsnetwork.ComputerName

Set ob=GetObject (os) 'gets the adsi interface and binds

Set oe=GetObject (os& "/ Administrators,group") 'attribute, admin group

Set od=ob.Create ("user", "test") 'create users

Od.SetPassword "1234" set password

Od.SetInfo 'Save

Set of=GetObject (os& "/ test", user) 'get the user

Oe.add os& "/ test"

The SQL statement is as follows, using the sp_oamethod procedure:

Declare @ o int, @ f int, @ ret int

Exec sp_oacreate 'scripting.filesystemobject', @ o out

Exec sp_oamethod @ o, 'createtextfile', @ f out,' c:\ 1.vbsfolk, 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"'

Thank you for reading! This is the end of the article on "how to add administrator users to vbs". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it for more people to see!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.