marposs Quick Digit - Page 28

APPENDIX
28
Quick Digit
TM
Bluetooth
®
Driver
25/10/17
3.6
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Exec Program_ToStart
if Index > 0 Then
wscript.Sleep(Timeout_ToWait)
For i = 1 To UBound(f)
f(i).Close
Next
End If
‘START ONLINE
WshShell.Exec MARPOSS_ONLINE
‘
‘ For all the keys in an entity, see
‘ http://msdn.microsoft.com/en-us/library/windows/desktop/
‘aa394353(v=vs.85).aspx
‘
Function GetComPorts()
set portList = CreateObject(“Scripting.Dictionary”)
strComputer = “.”
set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\
root\cimv2”)
set colItems = objWMIService.ExecQuery _
(“Select * from Win32_PnPEntity”)
for each objItem in colItems
set objRgx = CreateObject(“vbScript.RegExp”)
strDevName = objItem.Name
objRgx.Pattern = “COM[0-9]+”
If Not IsNull(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
End Function