[amel27]

возможно ли вообще на T13, T12 обратиться к WMI »

из этой темы следует, что скорее всего нет

diskpart умеет разбивать, передвигать, но для того, чтобы знать что куда двигать и что на компьютере из накопителей есть - нужна логика управления »

а в чем логика управления?

[dany2k]

Передвинуть буквы CD-ROM(ов) из пула свободных букв (Z,X,Y,W,V)
Если на компьютере 1 диск-драйв и на этом драйве 1 системная праймари-партиция и есть неразмеченное место - создать Extended партицию.
Если на компьютере 1 диск-драйв и на этом драйве 1 системная праймари-партиция и нет неразмеченного места - ничего не делать
Если два и более диск-драйва - выбрать неразмеченный дискдрайв где нет системной праймари-партиция, создать на выбранном драйве партицию.

Выборка диск-драйвов производится среди подключеных через IDE/SCSI, т.е. отметаем флэш-диски, HDD-USB

Через WMI - все это реализовать можно без проблем (уже есть написанный скрипт), только вот силы как я понял частично потрачены зря....

Через FSO.Drives количество физических диск-драйвов не увидеть, там только вернутся все буквы логических устройств, да и отмести HDD-USB - не получится (определяется как обычный HDD)

Ладно если нельзя на T12,T13 обратитья к WMI, тогда будем через vbs запускать diskpart и анализировать StdOUT, если конечно других вариантов больше нет...
Или есть?


Пробую сейчас анализировать из текстового файла StdOUT diskpart'а, возникли 2 проблемы:

1) не могу поймать перевод строки, чтоб загнать в массив: alines = Split(alines, vbNewline)
Пробовал: VbCrLf, VbCr, chr(13) - не сплитится и все-тут.
2) На T12,T13 - вместо русских букв вылезают кракозябры (как я понял кодировка CP866), как анализировать эти кракозябры??
Быть может тогда имеет смысл использовать diskpart от английской винды, но заработает ли он в русской устанавливаемой WindowsXP ?

[amel27]

1. на Win2003 vbCrLf, на WinXP (RUS) vbLf
2. на WinXP (RUS) работает следующий вызов (на Win2003 не работает):

Код:

CMD /C "chcp 1251|(echo list disk|diskpart)"

[dany2k]

>>на WinXP (RUS) vbLf

С этим разделителем split работает.
Как я понял - это аналог chr(10)


>>CMD /C "chcp 1251|(echo list disk|diskpart)"

Что-то не прокатывает chcp 1251 - все-равно кракозябры выводятся в коносоль...

[amel27]

Что-то не прокатывает chcp 1251 - все-равно кракозябры выводятся в коносоль... »

- для CMD-скриптов никакой перекодировки не требуется, там "родной" является OEM, в ней и выводит diskpart;
- Вами заявлена категория WSH, для которой "родной" является ANSI, поэтому для консольных команд потребуется перекодировка 866->1251, предложенный вызов diskpart делает это ДО передачи в скрипт, пример на VBS:

Код:

Dim oShell, oExec, sInput
Set oShell = CreateObject("WScript.Shell")

Set oExec = oShell.Exec("CMD /C ""chcp 1251|(echo list disk|diskpart)""")

Do While True
  If oExec.StdOut.AtEndOfStream Then Exit Do
  sInput = sInput & oExec.StdOut.ReadAll()
  WScript.Sleep 100
Loop

WScript.Echo sInput