Cambiar password de la cuenta administrator

[Skalitiko]

Hola a todos.

Necesito averiguar si existe alguna manera de cambiar la contraseña de la cuenta administradora de un pc, desde Visual Basic.

Si alguien pudiera orientarme en como lograr esto, le estaria muy agradecido.

De antemano,
Muchas Gracias

[MaxExtreme]

¡Je! VB hace maravillas, pero un lenguaje no permite esas cosas.

Yo hice uno que lo sacaba a "fuerza bruta", llamando a la API he intentando logearme, pero es demasiado lento como para hacer algo serio.

Hay herramientas ya creadas que lo hacen mucho mejor y rápido.

[Eternal Idol]

Para cambiar la clave podes usar NetUserSetInfo pasando 0 al primer parametro (local), el nombre del usuario en el segundo, 1 en el tercero (level), la estructura USER_INFO_1 con la nueva clave en el cuarto (buff) y 0 o un puntero a un DWORD en el ultimo parametro.

Tambien NetUserChangePassword para hacerlo mas facil (sabiendo la clave actual).

[MaxExtreme]

Iniciado por Eternal Idol

Para cambiar la clave podes usar NetUserSetInfo pasando 0 al primer parametro (local), el nombre del usuario en el segundo, 1 en el tercero (level), la estructura USER_INFO_1 con la nueva clave en el cuarto (buff) y 0 o un puntero a un DWORD en el ultimo parametro.

Tambien NetUserChangePassword para hacerlo mas facil (sabiendo la clave actual).

Entendí que la quería cambiar sin saber la anterior.

[Eternal Idol]

Iniciado por MaxExtreme

Entendí que la quería cambiar sin saber la anterior.

Sino me equivoco teniendo los privilegios adecuados se puede con la primera funcion que cite

[MaxExtreme]

Iniciado por Eternal Idol

Sino me equivoco teniendo los privilegios adecuados se puede con la primera funcion que cite

Si es de administador, supongo que tendrá que usar la de super-administrador reiniciando Windows en modo seguro... Aunque dudo que quiera usar alguien el ordenador con esa cuenta ..

O hacer una de esas virguerías para ejecutar programas con privilegios de System.

[Eternal Idol]

Iniciado por MaxExtreme

Si es de administador, supongo que tendrá que usar la de super-administrador reiniciando Windows en modo seguro... Aunque dudo que quiera usar alguien el ordenador con esa cuenta ..

O hacer una de esas virguerías para ejecutar programas con privilegios de System.

Mmm habria que probarlo pero creo que con la cuenta de Administrador comun y corriente se puede hacer.

[Skalitiko]

Primero que nada gracias por responder, pero no me queda muy claro lo de la estructura USER_INFO_1, ya que todos su parametros son del tipo long.

El código que tengo es el siguiente:

Private Declare Function NetUserSetInfo Lib "netapi32.dll" (ByVal ServerName As String, ByVal Username As String, ByVal Level As Long, UserInfo As Any, ParmError As Long) As Long

Public Type USER_INFO_1
usri1_name As Long
usri1_password As Long
usri1_password_age As Long
usri1_priv As Long
usri1_home_dir As Long
usri1_comment As Long
usri1_flags As Long
usri1_script_path As Long
End Type

Public Sub CambiaElPutoNombre()
Dim Ret As Long
Dim U As USER_INFO_1
U.usri1_password = StrPtr("Mellevalapelona1")

Ret = NetUserSetInfo(0, "Administrator", 1, U, 0&)

End Sub

se supone que si todo funciona, la función NetUserSetInfo retorna 0, pero con este código no se da el caso, no se si tenmdre que declarar constantes para el manejo de esta API o NO??.

[Eternal Idol]

Si nos decis el valor de ret tal vez sepamos que significa.

VB no es lo mio pero los parametros que tiene que recibir la funcion son estos:
1. Puntero a cadena UNICODE (o cero como en este caso)
2. Puntero a cadena UNICODE
3. DWORD (LONG de VB segun creo recordar)
4. Puntero a la estructura (USER_INFO_1 en este caso)
5. Puntero a DWORD (o cero como en este caso)

La estructura esta definida toda como LONG porque eso es lo que ocupa un puntero en x86 (4 bytes) hay varios campos que deben tener punteros a Unicode, entre ellos el del password.

Te dejo el ejemplo en C, tal vez te sirva:

Código:

  USER_INFO_1 ui;
  ZeroMemory(&ui, sizeof(USER_INFO_1));
  ui.usri1_password = L"nuevaclave";
  NetUserSetInfo(0, L"Administrador", 1, (LPBYTE)&ui, 0);

[Skalitiko]

como tengo el codigo la función retorna 53

[Eternal Idol]

Esto seguramente te ayudara:

http://gethelp.devx.com/techtips/nt_.../10min0300.asp