WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WMI
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

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
  list = StrCat(list,@tab,desc)
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)


Example 2: Gets Modem and Port Info

;This code requires WinBatch 2004b or newer
Locator = ObjectCreate("WbemScripting.SWbemLocator")
Service = Locator.ConnectServer()
Security = Service.Security_
Security.ImpersonationLevel = 3
modem_collection = Service.InstancesOf("Win32_POTSModem")

ForEach Modem in modem_collection  
	name = modem.description
	port = modem.attachedto
	Message(name,port)
next

modem_collection=0
Security=0
Service=0
Locator=0

Article ID:   W15360
File Created: 2004:10:07:07:41:26
Last Updated: 2004:10:07:07:41:26