From 638fce8ed9e484e485cd4085960fc94727021b09 Mon Sep 17 00:00:00 2001
From: jbousquie <jerome@bousquie.fr>
Date: Tue, 29 Nov 2016 12:05:42 +0100
Subject: [PATCH] matos.vbs

---
 matos.vbs | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 matos.vbs

diff --git a/matos.vbs b/matos.vbs
new file mode 100644
index 0000000..8a69f36
--- /dev/null
+++ b/matos.vbs
@@ -0,0 +1,59 @@
+On error resume next
+
+'récupération des infos "matériel"
+'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions
+Dim  o, n, data, strComputer, objWMIService, colItems, objItem, objLogicalDisk
+Dim manufacturer, model, systemType, ram, mac, procSpeed, diskSize, diskFreeSpace, ip, description, ipItem
+Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
+strComputer = "localhost"
+Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
+
+' collecte marque, modele, arch
+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)
+    ram = objItem.TotalPhysicalMemory
+next
+
+' collecte vitesse processeur
+Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
+For Each objItem in colItems
+    procSpeed = objItem.MaxClockSpeed
+Next
+
+Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
+diskSize = objLogicalDisk.Size
+diskFreeSpace = objLogicalDisk.FreeSpace
+
+' collecte mac address
+Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
+mac = "["
+ip = "["
+description = "["
+For Each objItem in colItems
+    if Not IsNull(objItem.IPAddress)  then
+        For Each ipItem in objItem.IPAddress
+            mac = mac & chr(34) & objItem.MACAddress & chr(34) & ","
+            ip = ip & chr(34) & ipItem & chr(34) & ","
+            description = description & chr(34) & objItem.Description & chr(34) & ","
+        next
+    end if
+next
+mac = mac & "]"
+ip = ip & "]"
+description = description & "]"
+
+' emission requête
+Set n = CreateObject("wscript.network")
+o.setproxy 1
+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"
+data = "code=HK9!-uu&action=M&computer=" & n.ComputerName
+data = data & "&manufacturer=" & manufacturer & "&model=" & model & "&systemType=" & systemType
+data = data & "&ram=" & ram & "&procSpeed=" & procSpeed & "&diskSize=" & diskSize & "&diskFreeSpace=" & diskFreeSpace
+data = data & "&mac=" & mac & "&ip=" & ip & "&descr=" & description
+o.send data
+