Re: jmeno disku ze skriptu

Radek Šafránek <safranek@fg.cz>:

> Mam VBS skript, kde uzivatel zada treba do input boxu nebo jako
> parametr na cmd radce pismenko sve cd/dvd mechaniky a skript si
> zjisti jmeno vlozeneho disku.
> ...
> Na VBS ale netrvam, pokud to pujde na win (w2k/xp) resit jinak.
> Cygwin mam, ale zatim to neni moc muj "salek kafe".

Bez VBS by to pod w2k/xp slo pomoci prikazu DIR nebo VOL. U obojiho se
vypise jmenovka v textu "Svazek v jednotce E je BACKUP." Pak by urcite slo
pomoci prikazu SET z toho textu ten string vydolovat (zacatek je vzdy na
stejne pozici a na konci je vzdy jedna tecka). Funkcni to bude jen na CZ
woknech.
Chces priklad?


No ale pomoci VBS to urcite bude jednodussi, staci kouknout do VBS helpu...
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
Je potreba validace legalnich windows, jinak hledej soubor "scrdoc56en.exe",
pripadne muzu poslat, ma to 1,4 MB.

Takze zkus tohle:

Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("d:"))
msgbox d.VolumeName

A ani nemusis uzivatele zadat o jmeno disku, muzes si projit disky v
pocitaci a zjistit ktery z nich je CD-ROM...


Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
  dType = fso.GetDrive(Drive).DriveType
  if dType = 4 then
    msgbox "První CD-ROM jednotka je " & Drive
    Exit for
  End if
Next



-pp21-