ryochanさん、おはようございます。

＞OLEobject lo_fso
＞OLEobject lo_drive
＞Long ll_drive
＞
＞lo_fso = create oleobject
＞lo_fso.connecttonewobject(\"Scripting.FileSystemObject\")
＞lo_drive = create oleobject
＞
＞for ll_drive = 1 to lo_fso.drives.count
＞　lo_drive = lo_fso.drives.item[ll_drive]
＞　st_1.text += lo_drive.DriveLetter + \"~r~n\"
＞next
＞もしくは（ダメなら）
＞for ll_drive = 0 to lo_fso.drives.count - 1
＞　lo_drive = lo_fso.drives.item(ll_drive)
＞　st_1.text += lo_drive.DriveLetter + \"~r~n\"
＞next
＞destroy lo_drive
＞destroy lo_fso
＞
＞配列の添字は0始点かどうか自信がないので
＞（PowerScriptの配列形式[]は必ず1始点ですが）
＞後者の場合でダメなら1からcountまでループさせてみてください。
＞

ryochanさんのコードを試してみたのですが
lo_drive = lo_fso.drives.item(ll_drive)
で外部オブジェクト プロパティ item のアクセスエラーになってしまいます。
VB等ではこれでOKなんですがPBは・・・
お忙しいところコメントありがとうございました。