hellsjoke | Bonjour,
Actuellement en stage de fin de cursus de DUT en Informatique , j'ai pour sujet le développement d'une application de gestion de parc informatique pour l'entreprise.
Dans ce projet je dois accéder à des infos systèmes et je le fais par le biais d'un vba qui stocke celles-ci dans un txt exploité par mon appli codée en php.
J'ai pour l'instant réussi a accéder à ces informations mais je bute sur un problème:
Sur ma liste de PC certains ne me donne pas les infos demandées (notamment ceux qui sont connectés en VPN et ceux qui sont éteints ) , cela me donne un code d'erreur : Le serveur distant est inacessible ou n'existe pas (ref : 800A01CE) . Ma question est : y'a-t-il un moyen d'éviter ceci ? J'ai essayé avec un ping mais ça ne prend pas en compte les VPN.
Voici mon code
Code :
- 'On Error Resume Next
- Const ForReading = 1, ForWriting = 2
- nom_pc = "D:\Partages\ressources\Informatique\Applications\nom_pc.txt"
- attenteavantkill=20 ' secondes
- maxtab=2000
- dim tableau(2000,5) ' x,y 0 nompc, 1 username, 2 ram, 3 numero_serie , 4 modele, 5 addr_mac
- Dim oFso, f
- Set oFso = CreateObject("Scripting.FileSystemObject" )
- Set f = oFso.OpenTextFile(nom_pc, ForReading,true)
-
- i=0
- while Not f.AtEndOfStream
- ligne=f.ReadLine
-
- nompc= ligne
- tableau(i,0)= nompc
- strComputer= nompc
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set colSettings = objWMIService.ExecQuery _
- ("Select * from Win32_ComputerSystem" )
- For Each objComputer in colSettings
- Wscript.Echo "System Model: " & objComputer.Model
- RAM = (round((objComputer.TotalPhysicalMemory)/(1024*1024*1024)))
- Wscript.Echo "Total Physical Memory: " & _
- RAM
- Next
- Set colBIOS = objWMIService.ExecQuery _
- ("Select * from Win32_BIOS" )
- For each objBIOS in colBIOS
- Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
- Next
- set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer).ExecQuery _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
- If Err.Number<>0 Then
- wscript.echo " - non accessible -"
- Else
- for each IPConfig in IPConfigSet
- wscript.echo " Adresse MAC " & vbtab & " : " & IPConfig.MACAddress
- Next
- End If
- Wend
- f.Close
|
|
