#bas
If txtName <> "Установка принтера" and txtName <> "Add printer" then sys.onInfo txtName

Add(VBJScript,12014413,371,189)
{
 WorkPoints=#6:doWork|16:doSetDfltPrinter|
 EventPoints=#6:onInfo|
 Script=#22:Sub doWork(Data,Index)|18: Select Case Index|16:   Case "doWork"|36:     Const PRINTERS_AND_FAXES = &H4&|53:     Set objShell = CreateObject("Shell.Application")|59:     Set objFolder = objShell.Namespace(PRINTERS_AND_FAXES)|35:     Set colItems = objFolder.Items|33:     For Each objItem in colItems|29:       txtName = objItem.Name|94:       If txtName <> "Установка принтера" and txtName <> "Add printer" then sys.onInfo txtName|9:     Next|26:   Case "doSetDfltPrinter"|17:     'Msgbox Data|53:     Set WshNetwork = CreateObject("WScript.Network")|38:     WshNetwork.SetDefaultPrinter Data|11: End Select|1: |7:End Sub|
 UseName=0
 link(onInfo,10856750:doAdd,[])
}
Add(Memo,10856750,413,189)
{
 Left=70
 Top=30
 Width=555
 Height=345
 Align=5
 ScrollBars=3
}
Add(Button,10657925,287,189)
{
 Left=5
 Top=30
 Align=2
 Caption="Info"
 link(onClick,12014413:doWork,[])
}
Add(Button,807953,287,224)
{
 Left=5
 Top=30
 Align=2
 Caption="Set Default Printer"
 Data=String(\\\\TEH2_\HPLASERJ)
 link(onClick,12014413:doSetDfltPrinter,[(345,230)(345,202)])
}