Add(MainForm,12968386,84,189)
{
 Height=307
 link(onCreate,6585714:doEvent1,[])
}
Add(VBJScript,5859470,189,203)
{
 WorkPoints=#6:doPath|
 EventPoints=#6:onPath|
 DataPoints=#4:Name|
 Script=#23:Sub doWork(Data, Index)|20:  Select Case Index |18:    Case "doPath" |63:  Set objWMIService = GetObject("winmgmts:\\." & "\root\CIMV2")|77:    for each Driv in objWMIService.ExecQuery("select * from Win32_DiskDrive")|5:     |27:     sys.onPath  sys.Name  |4:    |9:    next |13:  End Select |8:End Sub |
 UseName=0
 link(onPath,13715227:doAdd,[])
 link(Name,9246960:Text,[])
}
Add(Memo,13715227,308,203)
{
 Left=5
 Top=5
 Width=380
 Height=125
}
Add(VBJScript,12252437,189,322)
{
 WorkPoints=#6:doPath|
 EventPoints=#6:onPath|
 Script=#23:Sub doWork(Data, Index)|20:  Select Case Index |18:    Case "doPath" |63:  Set objWMIService = GetObject("winmgmts:\\." & "\root\CIMV2")|78:    for each Driv in objWMIService.ExecQuery("select * from Win32_DiskDrive") |5:     |64:  sys.onPath  Driv.index & "  " & Driv.model & "  " & Driv.Size |0:|9:    next |13:  End Select |8:End Sub |
 UseName=0
 link(onPath,16035036:doAdd,[])
}
Add(Hub,6585714,140,203)
{
 link(onEvent1,5859470:doPath,[])
 link(onEvent2,12252437:doPath,[(178,216)(178,328)])
}
Add(Memo,16035036,308,322)
{
 Left=5
 Top=135
 Width=380
 Height=130
}
Add(VisualStrings,9246960,189,147)
{
 Lines=#49:Driv.index & "  " & Driv.model & "  " & Driv.Size|
 Width=235
}
Add(PointHint,704616,168,119)
{
 Info=#23:так не работает почему?|
 Transparent=0
 VAlign=0
 Width=435
 Height=144
}
Add(PointHint,6753576,168,287)
{
 Info=#12:так работает|
 Transparent=0
 VAlign=0
 Width=435
 Height=144
}