Cambiar password de la cuenta administrator

[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??.