none
Ajudar para criar script! RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    Senhores boa tarde,

     

    Estou com a seguinte necessidade. tenho uma lista de 700 contas de usuarios, que preciso identificar aonde cada usuario esta logado. ou seja um script que lê um arquivo de contas de usuarios, e retorna com o nome e ip da maquina que o usuario esta logado.

     

     

    grato pelo espaço.

    quarta-feira, 12 de dezembro de 2007 14:29
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Amigo,

     

    Já tivemos um post parecido com esse ... o que você quer é difícil de conseguir...

     

    Veja se ajuda !

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=2437212&SiteID=29

     

    Espero ter ajudado.

     

    Não esqueça classificar a mensagem como "respondido", caso tenha ajudado.

     

    Luiz Espínola
    Microsoft MCSE+S , MCT , MCDBA , Comptia Security+  , IBM CSex

    ITIL Foundation ,Novell CNA ,SUN SCSA Solaris 9 ,Citrix CCA

     

     

    quarta-feira, 12 de dezembro de 2007 16:05
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    -Coloque nos script de logon de usuário.

    -Crie um compartilahmento e altere no script.

    -Vai coletar um  pouco mais que logon

     

     

    'Inventario basico da Estação de Trabalho
    'Romeu - Nexa Tecnologia em Redes - rmavancini@gmail.com

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")

    Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
    Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
    Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
    Set colAdapters = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    Set oNetwork = CreateObject("WScript.Network")


    Dim fso, sf, StrNew, strDay, strMonth, srtYear,strTime, UNC, strComputer, strUser, strManufac, strModel, strSerial, strBVersion
    Dim strMemo, strMac, strIp, strDiskToal, strDiskFree

    UNC = "\\caminho.do.compartilhamento"
    strComputer = oNetwork.ComputerName
    struser = oNetwork.UserName
    systime = Now()
    srtDay = cstr(day(systime))
    strMonth = cstr(month(systime))
    strYear = cstr(year(systime))
    strTime = cstr(Time())
    Const ForAppending = 8

    For Each objComputer in colSettings
     strManufac = objComputer.Manufacturer
     strModel = objComputer.Model
     strMemo = objComputer.TotalPhysicalMemory/1024000
    Next

    For each objBIOS in colBIOS
        strSerial = objBIOS.SerialNumber
        strBVersion = objBIOS.Version
    Next
    n = 1
    For each objNetwork in colAdapters
     strMac = objNetwork.MACAddress
      
     
       If Not IsNull(objNetwork.IPAddress) Then
          For i = 0 To UBound(objNetwork.IPAddress)
          strIp = objNetwork.IPAddress(i)
          Next
       End If
     
       n = n + 1
    Next 

    For each objDisk in colDisks
      strDiskTotal = objDisk.Size/1024
      strDiskFree = objDisk.FreeSpace/1024
    Next

    Set fso = CreateObject("Scripting.FileSystemObject")

    StrNew = UNC & strComputer &".log"

    set sf=fso.OpenTextFile (StrNew, ForAppending, True)
    sf.writeline "Date ="& srtDay &"-"& strMonth &"-"& strYear &"; Time ="& strTime &"; UserID ="& strUser & _
    "; Manufacturer =" & strManufac & "; Model ="& strModel &"; Serial Number ="& strSerial & "; BIOS Version =:"& strBVersion & _
    "; Memoria Fisica Total ="& strMemo &"; MAC ADDRESS ="& strMac & "; IP ADDRESS ="& strIp & _
    "; Disk Size ="& strDiskTotal &"; Free Space ="& strDiskFree

    quarta-feira, 12 de dezembro de 2007 16:46
    |