Questo per creare un'utente:
strComputer = "nome_computer"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin2")
objUser.SetPassword "09iu%4et"
objUser.SetInfo
Questo serve per cancellare un'utente:
strComputer = "nome_computer"
Set objGroup = GetObject("WinNT://" & strComputer & "/Adminstrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
objGroup.Remove(objUser.ADsPath)
Questo invece per aggiungerlo:
strComputer = "nome_computer"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/kenmyer,user")
objGroup.Add(objUser.ADsPath)
Bye Bye
---------------------------------------------------
Roberto Gelmini - MCAD - MCDBA - MCP
http://www.robertogelmini.com
---------------------------------------------------