Add(MainForm,2953706,203,91)
{
 Width=424
 Height=587
 link(onCreate,7519843:doWork,[])
}
Add(VBJScript,7519843,252,105)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onWork|
 Script=#0:|22:Sub doWork(Data,Index)|17:strComputer = "."|29:Set wmiServices = GetObject _|66:    ("winmgmts:{impersonationLevel=Impersonate}!//" & strComputer)|0:|43:Set wmiDiskDrives = wmiServices.ExecQuery _|53:    ("SELECT Caption, DeviceID FROM Win32_DiskDrive")|1: |38:For Each wmiDiskDrive In wmiDiskDrives|50:    sys.onWork "Caption: " & wmiDiskDrive.Caption |51:    sys.onWork "DeviceID: " & wmiDiskDrive.DeviceID|34:    strEscapedDeviceID = Replace _|64:        (wmiDiskDrive.DeviceID, "", "\", 1, -1, vbTextCompare)|51:    Set wmiDiskPartitions = wmiServices.ExecQuery _|58:        ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _|54:    strEscapedDeviceID & """} WHERE AssocClass = " & _|41:        "Win32_DiskDriveToDiskPartition")|1: |50:    For Each wmiDiskPartition In wmiDiskPartitions|64:        sys.onWork "DiskPartition: " & wmiDiskPartition.DeviceID|53:        Set wmiLogicalDisks = wmiServices.ExecQuery _|66:            ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _|73:                wmiDiskPartition.DeviceID & """} WHERE AssocClass = " & _|51:                    "Win32_LogicalDiskToPartition")|1: |50:        For Each wmiLogicalDisk In wmiLogicalDisks|58:            sys.onWork "Drive: " & wmiLogicalDisk.DeviceID|12:        Next|8:    Next|22:    sys.onWork "*****"|4:Next|7:End Sub|
 UseName=0
 link(onWork,11718090:doAdd,[])
}
Add(Memo,11718090,315,105)
{
 Left=10
 Top=5
 Width=385
 Height=530
}