Script consulta usuario directorio activo

' ****************************************************************************
' programa : da_user_report_3.exe
' pide dominio y usuario
' fecha : 07/03/2011
' autor : WaldoFigueroa Cobos'
' NOTA : DEBGE GUARDARSE COMO ARCHIVO *.VBS (VISUALBASIC SCRIPT)
' ****************************************************************************

' RUTINA QUE REGRESA LOS DATOSDEL USUARIO O CUENTA DE USUARIO
Dim messFinal, vcountUsers
Sub ListUsers(strDomain,strUser)
Set objComputer = GetObject("WinNT://" & strDomain )
objComputer.Filter = Array( "User" )
ForEach objUser In objComputer
If strUser = "*" Then
vcountUsers = vcountUsers + 1
WScript.Echo ""
WScript.Echo "REGISTRO : " & vcountUsers
WScript.Echo "USUARIO : " &objUser.Name
WScript.Echo "NOMBRE USUARIO : " & objUser.Fullname
WScript.Echo "DESCRIPCION : " & objUser.Description
WScript.Echo "CUENTA DESHABILITADA : " & objUser.AccountDisabledWScript.Echo "CUENTA BLOQUEADA : " & objUser.IsAccountLocked
WScript.Echo "PROFILE : " & objUser.Profile
WScript.Echo "SCRIPT LOGEO : " & objUser.LoginScript
WScript.Echo"DIRECOTORIO PREDETERMINADO : " & objUser.HomeDirectory
'WScript.Echo "CORREO : " & objUser.Profile
WScript.Echo ""
messFinal = "Reporte de usuarios Terminado"
End IfIf objUser.Name = strUser Then
WScript.Echo ""
WScript.Echo ""
WScript.Echo ""
WScript.Echo ""
WScript.Echo "USUARIO : " & objUser.Name
WScript.Echo "NOMBREUSUARIO : " & objUser.Fullname
WScript.Echo "DESCRIPCION : " & objUser.Description
WScript.Echo "CUENTA DESHABILITADA : " & objUser.AccountDisabled
WScript.Echo "CUENTA BLOQUEADA : "& objUser.IsAccountLocked
WScript.Echo "PROFILE : " & objUser.Profile
WScript.Echo "SCRIPT LOGEO : " & objUser.LoginScript
WScript.Echo "DIRECOTORIO PREDETERMINADO : " &...