Savoir si un pc ne donne pas de réponse

Savoir si un pc ne donne pas de réponse - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2014 à 17:20:28    

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 :
  1. 'On Error Resume Next
  2. Const ForReading = 1, ForWriting = 2 
  4. nom_pc = "D:\Partages\ressources\Informatique\Applications\nom_pc.txt"
  6. attenteavantkill=20  ' secondes
  7. maxtab=2000
  8. dim tableau(2000,5)  ' x,y   0 nompc,  1 username, 2 ram, 3 numero_serie , 4 modele, 5 addr_mac
  11. Dim oFso, f
  12.   Set oFso = CreateObject("Scripting.FileSystemObject" )
  13.   Set f = oFso.OpenTextFile(nom_pc, ForReading,true)
  14.  
  15.   i=0
  16.   while Not f.AtEndOfStream
  17.       ligne=f.ReadLine
  18.      
  19.          nompc= ligne
  20.          tableau(i,0)= nompc
  22. strComputer= nompc
  23. Set objWMIService = GetObject("winmgmts:" _
  24.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  25. Set colSettings = objWMIService.ExecQuery _
  26.     ("Select * from Win32_ComputerSystem" )
  27. For Each objComputer in colSettings
  28.     Wscript.Echo "System Model: " & objComputer.Model
  29.     RAM = (round((objComputer.TotalPhysicalMemory)/(1024*1024*1024)))
  30.     Wscript.Echo "Total Physical Memory: " & _
  31. RAM
  32. Next
  33. Set colBIOS = objWMIService.ExecQuery _
  34.     ("Select * from Win32_BIOS" )
  35. For each objBIOS in colBIOS
  36.   Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
  37. Next
  39. set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer).ExecQuery _  
  40. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
  41. If Err.Number<>0 Then
  42. wscript.echo " - non accessible -"
  43. Else
  44. for each IPConfig in IPConfigSet
  45. wscript.echo " Adresse MAC " & vbtab & " : " & IPConfig.MACAddress
  46. Next
  47. End If
  50. Wend
  51. f.Close

Reply

Marsh Posté le 22-04-2014 à 17:20:28   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed