mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
285 B
15 lines
285 B
Dim rehydrator
|
|
|
|
Set rehydrator = CreateObject("UPnP.UPnPRehydrator.1")
|
|
|
|
Dim devices
|
|
|
|
Set devices = rehydrator.FindByDeviceType("upnp:devType:All", FD_ANY)
|
|
|
|
Dim args(1)
|
|
|
|
for each device in devices
|
|
for each service in device.Services
|
|
service.InvokeAction "Mute", args
|
|
next
|
|
next
|