jerome/winlog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ajout collecte mac adress, ip, description

Browse Source
This commit is contained in:
jbousquie 2016-11-23 16:47:24 +01:00
parent 424d284900
commit df2118977a
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
logout.vbs
View File

@ -2,21 +2,38 @@ On error resume next
'audit des déconnexions active directory 'audit des déconnexions active directory
'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions 'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions
Dim o, n, data, secopt Dim o, n, data, secopt, strComputer, objWMIService, colItems, objItem
Dim manufacturer, model, systemType, mac, ip, description
Set o = CreateObject("WinHttp.WinHttpRequest.5.1") Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
strComputer = "localhost" strComputer = "localhost"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' collecte marque, modele, arch
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems For Each objItem in colItems
manufacturer = trim(objItem.Manufacturer) manufacturer = trim(objItem.Manufacturer)
model = trim(objItem.Model) model = trim(objItem.Model)
systemType = trim(objItem.SystemType) systemType = trim(objItem.SystemType)
next next
' collecte mac address
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
if Not IsNull(objItem.IPAddress) then
mac = objItem.MACAddress
ip = objItem.IPAddress(0)
description = objItem.Description
end if
next
' emission requête
Set n = CreateObject("wscript.network") Set n = CreateObject("wscript.network")
o.setproxy 1 o.setproxy 1
o.Option(4) = 13056 'pour forcer à ignorer toutes les erreurs de certificats o.Option(4) = 13056 'pour forcer à ignorer toutes les erreurs de certificats
o.open "POST", "https://winlog.iut.local/", False o.open "POST", "https://winlog.iut.local/", False
o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
data = "code=HK9!-uu&action=D&username="+LCase(n.Username)+"&computer="+n.ComputerName+"&manufacturer="+manufacturer+"&model="+model+"&systemType="+systemType data = "code=HK9!-uu&action=D&username=" + LCase(n.Username) + "&computer=" +n.ComputerName
data = data + "&manufacturer=" + manufacturer + "&model=" + model + "&systemType=" + systemType
data = data + "&mac=" + mac + "&ip=" + ip + "&descr=" + description
o.send data o.send data