none
Cómo saber a que computadora se ha logueado un usuario RRS feed

  • Pregunta

  • Hola a todos, necesito sacar una lista de computadoras a las que se ha logueado un usuario. Esto lo he logrado mediante la herramienta adminsitrative center de windows 2008 R2 pero quisiera saber si hay algun script para hacerlo más rápido ya que son mas de 5000 usuarios.

    Gracias por su ayuda

    martes, 31 de mayo de 2011 5:06

Respuestas

  • Hola Luis

    Te indico el siguiente enlace:

    http://technet.microsoft.com/en-us/library/ff730963.aspx

    Saludos


    Ismael Borche - LATAM Forum Support Engineer
    Microsoft Corporation
    • Marcado como respuesta luismendeze viernes, 3 de junio de 2011 4:43
    jueves, 2 de junio de 2011 18:21
  • Gracias amigos de hecho lo resolví con el siguiente Vbscript. Gracias por su ayuda.

     

    On error resume next
    const ConForReading=1
    Const ForAppending =8

    Const ADS_SCOPE_SUBTREE=2
    const ArgSource = "C:\pruebas\script\buscar computadoras\buscarcompupornombre\archivo.txt"
    const Destino2="C:\pruebas\script\buscar computadoras\buscarcompupornombre\compusnoencontradas.txt"
    const Destino="C:\pruebas\script\buscar computadoras\buscarcompupornombre\resultados.txt"

    Set objConnection=CreateObject("ADODB.Connection")
    Set objCommand = CreateObject ("ADODB.Command")
    objConnection.Provider="ADsDSOObject"
    objConnection.open "Active Directory Provider"
    Set objCommand.ActiveConnection=objConnection
    objCommand.Properties("Page Size")=10000
    objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set oLogfile = CreateObject("Scripting.FileSystemObject")
    Set olnputFile =oLogFile.OpenTextFile(ArgSource,conForReading)


    set objFSO=CreateObject("Scripting.FileSystemObject")
    set objFile=objFSO.OpenTextFile(Destino,ForAppending)
    set objtels=objFSO.OpenTextFile(Destino2,ForAppending)

    While olnputFile.AtEndOfStream <> True
    strText=olnputFile.ReadLine
    samacount=strText & "*" ' This asterisk is veeeryyy important, because is a wild card


    prueba="select name from 'LDAP://dc=gob,dc=mx' where objectCategory='computer' " & _
    "and Name='" & samacount & "'"

    objCommand.CommandText=prueba
    set objRecordSet=objCommand.Execute
    if objRecordSet.RecordCount=0 then
    objFile.Writeline(strText)
    else

    bandera=1
    totalchain=""
    objRecordSet.movefirst
    do until objRecordSet.eof
    if bandera=1 then
    'objFile.Writeline(strText & "," & objRecordSet.fields("name").value)
    totalchain=strText & "," & objRecordSet.fields("name").value

    bandera=bandera+1
    else
    'objFile.Writeline("," & objRecordSet.fields("name").value
    totalchain=totalchainl & "," & objRecordSet.fields("name").value

    end if

    objRecordSet.movenext
    loop

    objFile.Writeline(totalchain)



    end if

    wend
    objFile.close
    olnputFile.close
    wscript.echo "operation ended"

    • Marcado como respuesta luismendeze viernes, 3 de junio de 2011 4:43
    viernes, 3 de junio de 2011 4:43

Todas las respuestas

  • Hola Luis

    Te indico el siguiente enlace:

    http://technet.microsoft.com/en-us/library/ff730963.aspx

    Saludos


    Ismael Borche - LATAM Forum Support Engineer
    Microsoft Corporation
    • Marcado como respuesta luismendeze viernes, 3 de junio de 2011 4:43
    jueves, 2 de junio de 2011 18:21
  • Gracias amigos de hecho lo resolví con el siguiente Vbscript. Gracias por su ayuda.

     

    On error resume next
    const ConForReading=1
    Const ForAppending =8

    Const ADS_SCOPE_SUBTREE=2
    const ArgSource = "C:\pruebas\script\buscar computadoras\buscarcompupornombre\archivo.txt"
    const Destino2="C:\pruebas\script\buscar computadoras\buscarcompupornombre\compusnoencontradas.txt"
    const Destino="C:\pruebas\script\buscar computadoras\buscarcompupornombre\resultados.txt"

    Set objConnection=CreateObject("ADODB.Connection")
    Set objCommand = CreateObject ("ADODB.Command")
    objConnection.Provider="ADsDSOObject"
    objConnection.open "Active Directory Provider"
    Set objCommand.ActiveConnection=objConnection
    objCommand.Properties("Page Size")=10000
    objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set oLogfile = CreateObject("Scripting.FileSystemObject")
    Set olnputFile =oLogFile.OpenTextFile(ArgSource,conForReading)


    set objFSO=CreateObject("Scripting.FileSystemObject")
    set objFile=objFSO.OpenTextFile(Destino,ForAppending)
    set objtels=objFSO.OpenTextFile(Destino2,ForAppending)

    While olnputFile.AtEndOfStream <> True
    strText=olnputFile.ReadLine
    samacount=strText & "*" ' This asterisk is veeeryyy important, because is a wild card


    prueba="select name from 'LDAP://dc=gob,dc=mx' where objectCategory='computer' " & _
    "and Name='" & samacount & "'"

    objCommand.CommandText=prueba
    set objRecordSet=objCommand.Execute
    if objRecordSet.RecordCount=0 then
    objFile.Writeline(strText)
    else

    bandera=1
    totalchain=""
    objRecordSet.movefirst
    do until objRecordSet.eof
    if bandera=1 then
    'objFile.Writeline(strText & "," & objRecordSet.fields("name").value)
    totalchain=strText & "," & objRecordSet.fields("name").value

    bandera=bandera+1
    else
    'objFile.Writeline("," & objRecordSet.fields("name").value
    totalchain=totalchainl & "," & objRecordSet.fields("name").value

    end if

    objRecordSet.movenext
    loop

    objFile.Writeline(totalchain)



    end if

    wend
    objFile.close
    olnputFile.close
    wscript.echo "operation ended"

    • Marcado como respuesta luismendeze viernes, 3 de junio de 2011 4:43
    viernes, 3 de junio de 2011 4:43