none
saber: el usuario en que pc esta logueado en la red de active directory RRS feed

  • Pregunta

  • Hola amigos, necesito saber los usuarios en que PC estan logueados en la red de active directory, cual seria el comando o alguna utilidad.

    Agradeciendo la atencion

    viernes, 25 de mayo de 2012 17:52

Respuestas

  • Hola,

    Con este script puedes volcar a un txt todos los usuarios & host en formato (user,hostname) y mantenerlo actualizado.

    Guárdalo en formato *.vbs y linkalo a la sección script de Users en una GPO sobre la OU donde tengas usuarios (como siempre, pruébalo en una OU con 2-3 usuarios previamente para verificarlo)

    '########################################################################
    '########################################################################
    'Get user & host info and dump to dump to txt file
    'Version 1.0 Get User & Hostname. Dump values to coma delimited File.
    '########################################################################
    '########################################################################


    set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = WScript.CreateObject("WScript.Network")
    Set objSysInfo = Wscript.createObject("ADSystemInfo")


    strDirectory = "Path para dejar registro"    'MODIFICA CON EL PATH DONDE QUIERAS DEJAR EL LOG, LOS USUARIOS DEBEN TENER WRITE ACCESS!!!
    strFile = "Archivo.txt" 'NOMBRE DE ARCHIVO DONDE SE INSERTA LA INFO

    'GET ADSPATH & FULL NAMES
    strHost=objNetwork.Computername
    strDNUser=objSysInfo.username
    Set objUser = GetObject("LDAP://" & strDNUser)
    strUser=objUser.displayname


    'INSERT DE DATOS USER & HOSTNAME

    Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 8,True)
    objTextFile.Writeline(strUser & ";" & strHost )
    objTextFile.close

    '########################################################################
    '########################################################################

     

    Saludos

    Julio Rosua


    viernes, 25 de mayo de 2012 18:40
  • Excelente, hice la prueba y funciono correctamente, gracias

    Saludos

    • Marcado como respuesta victormc viernes, 8 de junio de 2012 0:04
    viernes, 8 de junio de 2012 0:03

Todas las respuestas

  • Hola,

    Con este script puedes volcar a un txt todos los usuarios & host en formato (user,hostname) y mantenerlo actualizado.

    Guárdalo en formato *.vbs y linkalo a la sección script de Users en una GPO sobre la OU donde tengas usuarios (como siempre, pruébalo en una OU con 2-3 usuarios previamente para verificarlo)

    '########################################################################
    '########################################################################
    'Get user & host info and dump to dump to txt file
    'Version 1.0 Get User & Hostname. Dump values to coma delimited File.
    '########################################################################
    '########################################################################


    set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = WScript.CreateObject("WScript.Network")
    Set objSysInfo = Wscript.createObject("ADSystemInfo")


    strDirectory = "Path para dejar registro"    'MODIFICA CON EL PATH DONDE QUIERAS DEJAR EL LOG, LOS USUARIOS DEBEN TENER WRITE ACCESS!!!
    strFile = "Archivo.txt" 'NOMBRE DE ARCHIVO DONDE SE INSERTA LA INFO

    'GET ADSPATH & FULL NAMES
    strHost=objNetwork.Computername
    strDNUser=objSysInfo.username
    Set objUser = GetObject("LDAP://" & strDNUser)
    strUser=objUser.displayname


    'INSERT DE DATOS USER & HOSTNAME

    Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 8,True)
    objTextFile.Writeline(strUser & ";" & strHost )
    objTextFile.close

    '########################################################################
    '########################################################################

     

    Saludos

    Julio Rosua


    viernes, 25 de mayo de 2012 18:40
  • Excelente, hice la prueba y funciono correctamente, gracias

    Saludos

    • Marcado como respuesta victormc viernes, 8 de junio de 2012 0:04
    viernes, 8 de junio de 2012 0:03
  • quería saber si el script va sobre escribiendo el archivo o genera nuevos

    gracias

    lunes, 23 de junio de 2014 18:20
  • Estimado Julio,

    Te agradecería que puedas habilitarme un manual o un link de ayuda de como ingresar el sctipt en la GPO, eh tratado de hacerlo segun los conocimientos que poseo, pero no ha dado resultado, gracias

    viernes, 7 de agosto de 2015 14:34
  • Encontre este script que te registra Fecha, Nombre del Equipo, Usuario Ip. Linkalo a la sección script de Users en una GPO sobre la OU donde tengas usuarios.

    Option Explicit

    Dim strShare, strLogFile, objFSO, objNetwork, strUserName, strComputer
    Dim objLogFile, objWMIService, colItems, objItem, strIP

    strShare = "\\192.168.20.7\logPCAnywhere\"
    strLogFile = "Conexiones.txt"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("Wscript.Network")

    strUserName = objNetwork.UserName
    strComputer = objNetwork.ComputerName

    ' Open shared log file for appending.
    Set objLogFile = objFSO.OpenTextFile(strShare & "\" _
        & strLogFile, 8, True, 0)

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _
        & strComputer & "\root\cimv2")

    ' Retrieve IP address of computer.
    Set colItems = objWMIService.ExecQuery _
        ("SELECT IPAddress " _
        & "FROM Win32_NetworkAdapterConfiguration " _
        & "WHERE IPEnabled='True'")
    For Each objItem In colItems
        strIP = Join(objItem.IPAddress, ",")
    Next

    ' Log date/time, user name, computer name, and IP address.
    objLogFile.WriteLine CStr(Now()) & "," & strComputer _
        & "," & strUserName & "," & strIP
    objLogFile.Close

    miércoles, 4 de noviembre de 2015 17:43
  • Hola buen dia solo tengo una duda, la linea de abajo se tiene que poner la direccion en donde se va alojar el registro o como no se si me puedas ayudar con un ejemplo gracias

    strDirectory = "Path para dejar registro"    'MODIFICA CON EL PATH DONDE QUIERAS DEJAR EL LOG, 

    miércoles, 27 de julio de 2016 22:14
  • Encontre este script que te registra Fecha, Nombre del Equipo, Usuario Ip. Linkalo a la sección script de Users en una GPO sobre la OU donde tengas usuarios.

    Option Explicit

    Dim strShare, strLogFile, objFSO, objNetwork, strUserName, strComputer
    Dim objLogFile, objWMIService, colItems, objItem, strIP

    strShare = "\\192.168.20.7\logPCAnywhere\"
    strLogFile = "Conexiones.txt"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("Wscript.Network")

    strUserName = objNetwork.UserName
    strComputer = objNetwork.ComputerName

    ' Open shared log file for appending.
    Set objLogFile = objFSO.OpenTextFile(strShare & "\" _
        & strLogFile, 8, True, 0)

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _
        & strComputer & "\root\cimv2")

    ' Retrieve IP address of computer.
    Set colItems = objWMIService.ExecQuery _
        ("SELECT IPAddress " _
        & "FROM Win32_NetworkAdapterConfiguration " _
        & "WHERE IPEnabled='True'")
    For Each objItem In colItems
        strIP = Join(objItem.IPAddress, ",")
    Next

    ' Log date/time, user name, computer name, and IP address.
    objLogFile.WriteLine CStr(Now()) & "," & strComputer _
        & "," & strUserName & "," & strIP
    objLogFile.Close

    hola buen aporte pero no me funciona agregue el scrip a la GPO de mi OU y no me fuciona modifique la ip de conexion  y la ruta de la carpeta compartida algotra cosa que toque modificar en el script?

    viernes, 20 de enero de 2017 13:24
  • Estoy intentando enlazar el script con mi OU, pero al momento de iniciar sesión el cliente me da error por "permisos denegados" en la linea 26, es justamente donde esta este fragmento de codigo:

    Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 8,True)

    ¿Qué puedo hacer?

    miércoles, 5 de abril de 2017 8:18