List Installed Modems

 Keywords: list modems modem name 

---

Sample Code:

You should be able to get a list of modems using the following code:

;***************************************************************************
;** ListModems()
;** Returns a tab delimited list of all installed modems.
;** 
;** Parameters:
;** NONE
;** 
;** Returns:
;** tab delimited list of all installed modems
;** 
;** 
;***************************************************************************
#DefineFunction ListModems()
Locator = ObjectOpen("WbemScripting.SWbemLocator")
Service = Locator.ConnectServer()
Security = Service.Security_
Security.ImpersonationLevel = 3
modem_collection = Service.InstancesOf("Win32_POTSModem")
hEnum = ObjectCollectionOpen(modem_collection)
list = ""
While 1
  modem = ObjectCollectionNext(hEnum)
  If modem == 0 Then Break
  desc = modem.Description
  deviceType = modem.DeviceType
  list = StrCat(list,@tab,desc,"|",devicetype)
EndWhile
list = StrTrim(list)
ObjectCollectionClose(hEnum)
ObjectClose(modem_collection)
ObjectClose(Security)
ObjectClose(Service)
ObjectClose(Locator)
Return list
#EndFunction

list = ListModems()
modeminfo = AskItemList("List of modems",list,@tab,@unsorted,@single)
Message("Modem name|Type Chosen",modeminfo)

---

Article ID:   W15360