Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: list modems modem name
;*************************************************************************** ;** 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