Supression port COM

Supression port COM - Logiciels - Windows & Software

Marsh Posté le 27-01-2016 à 14:34:41    

Bonjour à tous,
 
Voilà j'ai pas mal galérer à trouver alors je poste pour peut être pouvoir en aider d'autres.
 
Problème initial :
La où je travail, des collègues font des tests sur les carte Arduino.
A chaque fois que l'on connecte un Arduino ou autre périphérique pouvant réaliser la même opération (j'ai vu des problème avec des périphériques bluetooth par exemple) windows lui attribut un port COM.
 
Cependant plus on branche de périphériques différent plus le numéro du port attribué est grand exemple on peut ce retrouver avec quelque chose du style: Arduino UNO R3 COM24
 
Hors certain logiciel ne reconnaisse que jusqu'au port COM9
 
Si il ne s'agissait de gérer qu'un seul ordinateur la solution est simple : http://www.thewindowsclub.com/show [...] es-windows
 
Dans mon cas il s'agit de régler se problème régulièrement sur 15 postes.
 
Il a donc fallut mettre en place un script.
 
Solution:
En se promenant un peu sur google on parle d'un outils devcon.exe utilisé pour manager les périphériques.
 
j'ai donc télécharger le fameux devcon.exe
 
Puis dans le même dossier que ce dernier j'ai créer un petit script .bat que voici:
 

Code :
  1. @ECHO OFF
  2. DEVCON Find * | FINDSTR /R "COM[0-9]"> "DevicesExist.txt"
  4. FOR /F "tokens=1 delims=: " %%A IN ('DEVCON FindAll * ^| FINDSTR /R "COM[0-9]"') DO (
  5.         TYPE "DevicesExist.txt" | FIND "%%~A" >NUL
  6.        IF ERRORLEVEL 1 %Debug% DEVCON remove "@%%~A"
  7. )


 
permettant donc de supprimer tout les périphériques attribués a des port COMx et qui ne sont pas actuellement présent sur l'ordinateur (afin d'éviter de supprimer ce qui est encore utile :)
 
J'ai aussi fait la version .vbs (attention ça pique les yeux, pas dutout aboutie en therme d'optimisation mais ça fonctionne ):
 

Code :
  1. strSourceDevcon = "devcon.exe"
  2. device = 0
  3. count = 1
  5. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  6. Set WshShell = CreateObject("WScript.Shell" )
  7. Const ForReading = 1, ForWriting = 2
  8. Const TwoSeconds = 2000
  9. Set pcd = objFSO.OpenTextFile("presentcomdevice.txt", ForWriting,true)
  10. Set acd = objFSO.OpenTextFile("allcomdevice.txt", ForWriting,true)
  11. Set del = objFSO.OpenTextFile("deldevice.txt", ForWriting,true)
  12. Set loggs = objFSO.OpenTextFile("loggs.txt", ForWriting,true)
  14. strTempFile1 = objFSO.GetTempName
  16. aux = "cmd.exe /c devcon find * >" & strTempFile1
  18. WshShell.Run aux, 0
  20. Wscript.Sleep TwoSeconds
  22. Set objTextFile = objFSO.OpenTextFile(strTempFile1, ForReading)
  24. ' chercher les peripherique COM presents
  25. Do Until objTextFile.AtEndOfStream
  26.     strNextLine = objTextFile.Readline
  27. set objRE = New RegExp
  28. With objRE
  29.  .Pattern    = "COM[0-9]"
  30.  .IgnoreCase = False
  31.  .Global     = False
  32. End With
  33. If objRE.Test( strNextLine ) Then
  34.  strComDevice = strNextline
  35.  device = device + 1
  36.  pcd.writeline(strComDevice)
  37.  count = count + 1
  38. End If
  40. Set objRE = Nothing
  41. Loop
  42. objTextFile.Close
  44. ' affichage des stats
  45. wscript.echo (device & " PRESENT COM device(s) find" )
  47. Wscript.Sleep TwoSeconds
  49. device = 0
  50. count = 1
  52. strTempFile2 = objFSO.GetTempName
  54. aux = "cmd.exe /c devcon findall * >" & strTempFile2
  56. WshShell.Run aux, 0
  58. Wscript.Sleep TwoSeconds
  60. Set objTextFile = objFSO.OpenTextFile(strTempFile2, ForReading)
  62. ' chercher tout les peripheriques COM
  63. Do Until objTextFile.AtEndOfStream
  64.     strNextLine = objTextFile.Readline
  65. set objRE = New RegExp
  66. With objRE
  67.  .Pattern    = "COM[0-9]"
  68.  .IgnoreCase = False
  69.  .Global     = False
  70. End With
  71. If objRE.Test( strNextLine ) Then
  72.  strComDevice = strNextline
  73.  device = device + 1
  74.  acd.writeline(strComDevice)
  75.  count = count + 1
  76. End If
  78. Set objRE = Nothing
  79. Loop
  80. objTextFile.Close
  81. wscript.echo (device & " COM device(s) find in ALL" )
  83. Wscript.Sleep TwoSeconds
  85. device = 0
  86. pass = 0
  87. Set objTextFile1 = objFSO.OpenTextFile("allcomdevice.txt", ForReading)
  89. ' supprimer les peripherique COM caches
  90. Do Until objTextFile1.AtEndOfStream
  91. strLine1 = objTextFile1.Readline
  93. Set objTextFile2 = objFSO.OpenTextFile("presentcomdevice.txt", ForReading)
  94. Do Until pass = 1 or objTextFile2.AtEndOfStream
  95.  strLine2 = objTextFile2.Readline
  96.  TestComp = StrComp(strLine1, strLine2, Text)
  97.  IF TestComp = 0 Then
  98.   pass = 1
  99.   loggs.writeline(strLine1 & "pass" )
  100.  End If
  101. Loop
  102. objTextFile2.Close
  103. IF pass <> 1 Then
  104.  del.writeline (strLine1)
  105.  device = device + 1
  106.  arrAux = split(strLine1, ":" )
  107.         remove = arrAux(0)
  108.  Set arrAux = Nothing
  109.  aux = "cmd.exe /c devcon remove @" & remove
  110.  wscript.echo ("Removing @" & remove)
  111.  WshShell.Run aux, 0
  113.  Wscript.Sleep TwoSeconds
  114. End If
  115. pass = 0
  116. Loop
  117. objTextFile1.Close
  118. wscript.echo (device & " COM device(s) deleted" )


Message édité par eagleenergy le 28-01-2016 à 08:08:16
Reply

Marsh Posté le 27-01-2016 à 14:34:41   

Reply

Sujets relatifs:

Leave a Replay

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