Code Snippet
'Inventario basico da Estação de Trabalho
'Romeu Malacarne Avancini - 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
'aqui você coloca o caminho do compartilhamento.
UNC = "\\servidor\LAST_LOGON$\"
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
