Add(VBJScript,5859470,252,133)
{
 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:\." & "ootCIMV2")|77:    for each Driv in objWMIService.ExecQuery("select * from Win32_DiskDrive")|5:     |33:     sys.onPath  Eval(sys.Name)  |4:    |9:    next |13:  End Select |8:End Sub |
 UseName=0
 link(onPath,13715227:doAdd,[])
 link(Name,9246960:Text,[])
}
Add(Memo,13715227,371,133)
{
 Left=5
 Top=5
 Width=380
 Height=125
}
Add(VisualStrings,9246960,252,77)
{
 Lines=#49:Driv.index & "  " & Driv.model & "  " & Driv.Size|
 Width=235
}