تکه کد های جالب

[mehran_337]

این کد شاید واسه خیلی ها جالب باشه . تمام مشخصات چاپگرهای موجود حتی در شبکه رو نمایش می ده

LOCAL wshNetwork As "WScript.Network" &&WshNetwork

LOCAL Printers As Object &&WshCollection

LOCAL i As Integer



wshNetwork = CreateObject("WScript.Network")

Printers = wshNetwork.EnumPrinterConnections



For i = 1 To Printers.Count - 1 Step 2

    ? "Printer Name: " 

    ?? Printers.Item(i)

    ? "Port: " 

    ?? Printers.Item(i - 1)

Endfor



? "Total of Installed Printers: " 

?? INT(Printers.Count / 2)



Printers = .null.

wshNetwork = .null.