Foro de elhacker.net

Option Explicit
' declaración de variables
Dim usuario
Dim dominio
' nombre del contenedor, en el que debe crearse la cuenta de usuario
Const contenedor = "Innovature-PC" ' ordenador o dominio
Const clase = "Computer" ' o Domain
' acceso a objeto domain
Set dominio = GetObject("WinNT://" & contenedor & "," & clase)
' creau cuenta usuario
Set usuario=dominio.Create("user","usuario23")
' definir propiedades
' nombre completo
usuario.FullName = "Pedro"
' descripcion del usuario
usuario.Description = "Usuario de escala mayor"
' carpeta del usuario
usuario.HomeDirectory = "c:\carpetaprivada"
' cuenta expira en un año
usuario.AccountExpirationDate = Now( ) + 365
' referencia al script a ejecutar al registrarse en el sistema
usuario.LoginScript = "usuario23.bat"
' crear clave
usuario.SetPassword "usuario123"
' obligar al usuario a cambiar la clave una ves registrado
usuario.PasswordExpired = 1
' escribir los valores
usuario.SetInfo
' mostrar un mensage
WScript.Echo "La cuenta de usuario fue creada."

 Public Sub ms_eliminar_usuarios_ftp(ByVal str_usuario_ftp As String)
        ' borrarusuario.vbs
        ' ================================================
        ' declaracion de variables
        Dim contenedor
        ' acceso al objeto dominio
        contenedor = GetObject("WinNT://" & mf_obtener_admin_windows())
        ' borrar usuario
        contenedor.Delete("user", "" & str_usuario_ftp)
        ' mostrar mensage
        'Script.Echo "El usuario usuario23 fue borrado." 
    End Sub

'Function que nos devuelve el Usuario con el que se ha abierto la aplicación.
    Public Function mf_obtener_admin_windows() As String
        Dim str_ary() As String
        str_ary = Split(Principal.WindowsIdentity.GetCurrent.Name, "\")
        Return str_ary(0)
    End Function