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

ajout collecte marque, modele, type systeme

Browse Source
This commit is contained in:
jbousquie 2016-11-23 11:21:54 +01:00
parent 3e7c27807f
commit cfd3e9e59b
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
logout.vbs
View File

@ -1,9 +1,22 @@
Dim o, n, data On error resume next
'audit des déconnexions active directory
'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions
Dim o, n, data, secopt
Set o = CreateObject("WinHttp.WinHttpRequest.5.1") Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
strComputer = "localhost"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
manufacturer = trim(objItem.Manufacturer)
model = trim(objItem.Model)
systemType = trim(objItem.SystemType)
next
Set n = CreateObject("wscript.network") Set n = CreateObject("wscript.network")
o.setproxy 1 o.setproxy 1
o.open "POST", "http://winlog.dometud.iut-rodez.local/", False o.Option(4) = 13056 'pour forcer à ignorer toutes les erreurs de certificats
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 = "action=D&username="+n.Username+"&computer="+n.ComputerName data = "code=HK9!-uu&action=D&username="+LCase(n.Username)+"&computer="+n.ComputerName+"&manufacturer="+manufacturer+"&model="+model+"&systemType="+systemType
o.send data o.send data