[VBS] Organiser la sortie d'un script dans un tableau excel

Organiser la sortie d'un script dans un tableau excel [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 27-04-2006 à 11:06:31    

Bonjour, j'ai fait un script qui utilise les WMI afin de récupérer divers infos sur les machines de mon réseau.
Voici le script, si vous êtes motivé pour tout lire...  :whistle:  

Code :
  1. On error Resume Next
  3. Const wbemFlagReturnImmediately = &h10
  4. Const wbemFlagForwardOnly = &h20
  6. arrComputers = Array("IP1","IP2" )
  8. For Each strComputer In arrComputers
  9.    WScript.Echo "" & strComputer
  11. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  13. '==Gestion de l'erreur pour une ip non attribuée==
  14. If err.number <> 0 Then
  15.    WScript.Echo "Adresse IP introuvable"
  16. Else
  17. Set colItems = objWMIService.ExecQuery ("Select Name from Win32_ComputerSystem" )
  19. For Each objItem in colItems
  21.    WScript.Echo "" & objitem.Name
  23. Next
  24. '==DOMAINE==
  25. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  26. Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem" )
  27. For Each objComputer in colSettings
  28.     Wscript.Echo "" & objComputer.Domain
  29. Next
  30. '==SYSTEME D'EXPLOITATION==
  31. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  32. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  33. Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
  34. For Each objItem in colItems
  35. Wscript.Echo "" & objItem.Caption
  36. Next
  38. '==ADRESSE MAC==
  39. Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2" )
  40. Set colItems = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration" & " where IPEnabled=TRUE" )
  41. For Each objItem in colItems
  42. Wscript.Echo  "" & objItem.MACAddress
  43. Next
  45. '==RAM TOTALE SUR LA MACHINE==
  46. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  47. Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem" )
  48. For Each objComputer in colSettings
  49.     Wscript.Echo "" & objComputer.TotalPhysicalMemory & "     "
  50. Next
  52. '==LECTEURS (CD/DVD) PRESENTS SUR LA MACHINE==
  53. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  54. Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive" )
  55. For Each objItem in colItems
  56.     '==Type==
  57.     Wscript.Echo "" & objItem.Description
  58.     '==Nom==
  59.     Wscript.Echo "" & objItem.Name
  60. Next
  63. '==PROCESSEUR==
  64. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  65. Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor" )
  66. For Each objItem in colItems
  67.     Wscript.Echo "" &objItem.name
  68. Next
  70. '==RESOLUTION D'ECRAN==
  71. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  72. Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor" )
  73. For Each objItem in colItems
  74.     Wscript.Echo "" & objItem.ScreenWidth & "x" & objItem.ScreenHeight
  75. Next
  77. '==UTILISATEUR LOGGE==
  78. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  79. Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem" )
  80. For Each objComputer in colComputer
  81.     Wscript.Echo "" & objComputer.UserName
  82. Next
  84. '==ESPACE DISQUE==
  86. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  87. Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk WHERE NOT (Size=null) AND
  88. (DeviceID='C:'OR DeviceID= 'D:' OR DeviceID='E:'OR DeviceID='F:'OR DeviceID='G:'OR DeviceID='H:'OR DeviceID='I:'" )
  89. For Each objDisk in colDisks
  90.     '==Lettre==
  91.     Wscript.Echo  objDisk.DeviceID 
  92.     '==Type==
  93.     Wscript.Echo  "" & objDisk.Description
  94.     '==Espace Total==
  95.     Wscript.Echo  "" & objDisk.Size
  96.     '==Espace Libre==
  97.     Wscript.Echo  "" & objDisk.FreeSpace 
  99. Next
  101. '==IMPRIMANTES INSTALLEE SUR LA MACHINE==
  102.    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2" )
  103.    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL",_
  104.                                                           wbemFlagReturnImmediately +wbemFlagForwardOnly)
  106.    For Each objItem In colItems
  107.       WScript.Echo "" & objItem.Caption
  108. Next
  109. WScript.Echo
  111. End If
  112. err.clear
  113. Next


Je voudrais envoyer la sortie du script dans un tableau excel afin de pourvoir l'exploité avec un autre logiciel ensuite. Or quand je tape la commande cscript test.vbs > test.xls (par exemple) ça me renvoit toutes les informations les unes à la suite des autre, ligne par ligne, comme ça :
http://img135.imageshack.us/img135/2462/ex15ux.jpg
 
Et c'est là que j'ai besoin de votre aide, j'aimerais organiser toutes les infos, de cette manière :
http://img135.imageshack.us/img135/7631/ex26mk.jpg
 
Donc sur la première colonne il faudrai qu'il y ai toutes les adresse IP, sur la deuxième les noms de toutes les machines, etc etc... Mais le problème c'est que chaque PC a un nombre différent de lecteur et disque dur, il n'y a pas un nombre fixe...donc ça fait une difficulté en plus :/
Je ne sais pas si c'est faisable mais j'en appel à vous quand même, en espérant que vous pourrez m'aider.
Merciii  :jap:


Message édité par zell45 le 27-04-2006 à 11:08:23

---------------
GuildWars : [Irivine Kinneas G/M | Yuna Llez R/El | Tidus Wong M/En [HCT]] [Ogame/U36/Ally A.M.I]
Reply

Marsh Posté le 27-04-2006 à 11:06:31   

Reply

Sujets relatifs:

Leave a Replay

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