Monitorando LOGON com vbs

Eu uso aqui no trabalho e funciona muito bem! Um amigo usou o mesmo script e colocou como script de logon e logoff.
Nas configurações de segurança de pastas concedo permissão ao usuário para somente alterar, e desmarco a opção excluir!

‘Inventario basico da Estação de Trabalho
‘Romeu –

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 IPConfigSet = objWMIService.ExecQuery (“Select IPAddress from Win32_NetworkAdapterConfiguration “)

Set oNetwork = CreateObject(“WScript.Network”)

‘Basta alterar o caminho UNC para onde vc queira armazenar os logs.
UNC = “\\caminho\invent$\”

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

For Each strIPConfig in IPConfigSet
If Not IsNull(strIPConfig.IPAddress) Then
For i=LBound(strIPConfig.IPAddress) _
to UBound(strIPConfig.IPAddress)
‘WScript.Echo strIPConfig.IPAddress(i) &” – i=”& i
strIP0 = strIPConfig.IPAddress(0)
‘strIP1 = strIPConfig.IPAddress(1)

Next
End If
Next

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

Set fso = CreateObject(“Scripting.FileSystemObject”)

StrNew = UNC & strIP0 &”.log”

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

Anúncios

1 comment so far

  1. Barbara on

    Gente do céu! Sou leiga no assunto. Onde eu coloco esse texto todo? Onde os arquivos são salvos pra eu checar posteriormente? Vi na internet um meio de receber notificação por e-mail mas só acontece se tiver internet. Eu preferiria ter um relatório no pc que não dependa de internet.
    Obrigada!


Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

%d blogueiros gostam disto: