Add(MainForm,14836145,406,266)
{
 Width=645
 Height=420
}
Add(VBJScript,12014413,511,266)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onInfo|
 Script=#22:Sub doWork(Data,Index)|0:|32: Const PRINTERS_AND_FAXES = &H4&|49: Set objShell = CreateObject("Shell.Application")|55: Set objFolder = objShell.Namespace(PRINTERS_AND_FAXES)|31: Set colItems = objFolder.Items|29: For Each objItem in colItems|24: sys.onInfo objItem.Name|5: Next|1: |7:End Sub|
 UseName=0
 link(onInfo,10856750:doAdd,[])
}
Add(Memo,10856750,553,266)
{
 Left=70
 Top=30
 Width=555
 Height=345
 ScrollBars=3
}
Add(Button,10657925,469,266)
{
 Left=5
 Top=30
 Caption="Info"
 link(onClick,12014413:doWork,[])
}