BUG FIX if the objItem.Name is not a string.

amalcao · Jan 12, 2017 · 79fac82 · 79fac82
1 parent 943fe98
commit 79fac82
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/listComPorts.vbs b/listComPorts.vbs
@@ -42,9 +42,11 @@ Function GetComPorts()
         set objRgx = CreateObject("vbScript.RegExp")
         strDevName = objItem.Name
         objRgx.Pattern = "COM[0-9]+"
-        set objRegMatches = objRgx.Execute(strDevName)
-        if objRegMatches.Count = 1 then
-            portList.Add objRegMatches.Item(0).Value, objItem 
+        if vbString = VarType(strDevName) then
+            set objRegMatches = objRgx.Execute(strDevName)
+            if objRegMatches.Count = 1 then
+                portList.Add objRegMatches.Item(0).Value, objItem 
+            end if
         end if
     Next
     set GetComPorts = portList