czjt1234

' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit

Set oWshNetwork = CreateObject("WScript.Network")
Set oWshCollection = oWshNetwork.EnumPrinterConnections()
For i = 0 to oWshCollection.Count - 1 Step 2
    wsh.Echo oWshCollection.Item(i) & " = " & oWshCollection.Item(i + 1)
Next
复制代码