Вход OpenWrt: как узнать “Wi-Fi deauthentication”

Взгляните на сценарий ниже. Это сообщает относительно соединений печати, в настоящее время присваиваемых. Это должно дать, Вы достаточно для получения Вас запустили ре: Ваш собственный сценарий, я думал бы.

OPTION EXPLICIT

Dim oNetwork            ' WScript.Network object
Dim colPrinters         ' A collection of the users printer connections
Dim x               ' The canonical scratch variable of doom!

On Error Resume Next

Set oNetwork = CreateObject("WScript.Network")
Set colPrinters = oNetwork.EnumPrinterConnections

' Iterate thru the collection of printers
for x = 1 to colPrinters.count Step 2
    WScript.Echo "Printer: '" & colPrinters(x) & "' on port '" & colPrinters(x - 1) & "'"
next

set oNetwork = Nothing
set oShell = Nothing