Agregar y eliminar usuarios desde otra Pc

[aeff]

saludos!!

bueno, mira, te voy a dar una idea, claro, para esto debes hacer un programita ¿¿no???,
es un método bastante "loco" pero da resultados!!!

con Windows XP, viene una aplicación llamada Net.exe, la cual te permite añadir usuarios, grupos etc... en la PC, sus commandos son mas o menos estos:

para añadir usuario... net.exe user /add "nombre de usuario" "password"
para eleiminar usuario... net.exe user /del "nombre de usuario"

-> por ejemplo: net.exe user /add AEFF lapasswordloca

ahora, para agregar este usuario o cualquier usuario a un grupo determinado, podemos hacerlo de la siguiente forma:

-> por ejemplo: net.exe localgroup /add Administradores AEFF

es decir, la estrucura del comando es la siguiente: net.exe localgroup /add "grupo" "usuario"

nota: cada vez que creas un usuario por defecto es miembro de "Usuarios" o restringido como gustes decirle, por eso te recomiendo que cada vez que añadas uno lo quites del grupo de "Usuarios" y lo coloques en el de los adminsitradores, si es que quieres que sea administrador:

-> por ejemplo, ya creado el usuario "AEFF" ¿ok?:
1- [b]net.exe localgroup /add Administradores AEFF [ /b] lo pongo administrador
2- net.exe localgroup /del Usuarios AEFF lo quito de usuarios <restringidos>

...

ahora, ya te explique como hacer para crear el usuario ... ahora viene la parte de hacerlo remotamente...

primero que todo, debes tener en la PC remota un programa que responda a tus órdenes, es decir, un programa que le mandes a crear el usuarios tu mismo cuado tu quieras y que le digas el Nombre del usuario, la password y el grupo:

para eso, haces dos aplicaciones, una Cliente y una Servidor, la Servidor estará en la PC remota y la Cliente es la que enviará los comandos a la Servidor.

Para este fin tienes en Delphi unos cuantos componentes, para la Servidor usas el TServerSocket de la paletta "Internet" y para la cliente el TClientSocket de esa misma paletta,

*explicarte como es que funcionan estos componentes ya es otra historia, te recomiendo que hagas otro hilo en el club...*

entonces, lo que harás con la aplicación Cliente enviarle a la Servidor una cadena que tendrá el nombre de usuario, la password y el grupo, y cuando la servidor reciva esta cadena, la desglosa, en una variable colocas el username, en otra la password y en otra el grupo, y lo que te queda es crearlo, para esto usas al aplicacion Net.exe, de la forma siguiente:

Código Delphi [-]
...
    uses ShellApi;
 ...

var
   vUserName, vPassword, vGrupo: string;
begin
  ... le asignas a las variables sus respectivos valores, y luego...
  ShellExecute(0, nil, 'Net.exe', PChar('user /add ' + vUserName + ' ' + vPassword), nil, SW_HIDE);  
  ShellExecute(0, nil, 'Net.exe', PChar('localgroup /add ' + vGrupo + ' ' + vUserName), nil, SW_HIDE);  
  ShellExecute(0, nil, 'Net.exe', PChar('localgroup /del Usuarios' + vUserName), nil, SW_HIDE);  
 ...

bueno, eso es casi todo el trabajo...

*** espero que te sirva al menos de idea igual que a mi, porque si no se ejecutan estos comandos en una session administradora no se añaden los usuarios *** asi que tienes que pillar al administrador y soltarle la aplicación Servidor en su sessión... bueno,

suerte!!

saludos!