none
script usuarios conectados a PC RRS feed

Todas las respuestas

  • mediante este codigo lo puedo conseguir pero solo en local. No em busca en dominio.

    Dim PC
    PC=inputbox("Dime el PC y te dire el usuario")
    strComputer = PC
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colComputer = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
    For Each objComputer in colComputer
    Wscript.Echo objComputer.UserName
    Next

    me podeis aportar algo? Gracias!
    lunes, 22 de octubre de 2007 13:22
  • He modificado un poco el codigo pero no logro que me muestre los usuarios de un PC en DOMINIO.

    [CODE]strComputer = inputbox("Dime el PC y te dire el usuario:")
    If strComputer = "" then WScript.Quit
    set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "")
    set colOS = objWMI.ExecQuery("Select * from Win32_ComputerSystem")

    For Each objItem In colOS
        if strUsers <> "" then
            strUsers = strUsers & ", " & objItem.UserName
        else
            strUsers = objItem.UserName
        End If
    Next
    wscript.echo "The following user(s) are logged on to " & strComputer & ":" & strUsers[/CODE]


    que puede ser?
    viernes, 2 de noviembre de 2007 11:01