cd vysunúť skript

O

osnova

Guest
Vie niekto, jeden vbs skript alebo program, ktorý bude dajte mi vysunúť konkrétneho CD?Ive nájde taký, ktorý bude katapultovat všetky disky, ale nie ten, ktorý bude chrlit konkrétne jeden.

 
Vložte tento script do prázdny textový súbor a zmeniť koncovku na. Vbs:

Nastaviť oWMP = CreateObject ( "WMPlayer.OCX.7")
Nastaviť colCDROMs = oWMP.cdromCollection
colCDROMs.Item (0). Vysunúť

Vložte číslo disku, ktorý chcete vyňať
).Eject.

(0 pre D: \, 1 pre E: \ a tak ďalej ...) v colCDROMs.Item (n).

Vysunúť.

 
to havent pracoval
čo sa deje
i skopírovanej rovnaké v notepadu
a zmenil (n) na 2, pretože môj disk F
ale mám chybu.

riadok 3
char 1
chybe neplatné volanie procedúry alebo argument
Kód 800A0005

binu g

 
Pravdepodobne budete potrebovať novšie verzie programu Windows Media Player.
Mám Windows Media Player 9 verzia s Windows XP SP2 a funguje to dobre.

 
OK
Existuje nejaký spôsob, ako to môže fungovať aj vo Win2003
alebo akýkoľvek modifikovaný skript môže fungovať?

binu g

 
Mali by ste nainštalovať Windows Media Player, alebo skúste nájsť wmp.ocx
vo vašom systéme Windows adresára a re-registrovať sa
týmto príkazom: "regsvr32 wmp.ocx"
Mal by pracovať ...

 
Mám stále rovnakú chybu,
i re-registrovať wmp.ocx.
to máš úspešne zaregistrovaný.pozdravy
binu g

 
Skúste re-registrovať aj wmp.dll
s "regsvr32 wmp.dll"
akú verziu máte o tento súbor?Baňa je 9.0.0.3250

Nainštalujte si poslednú verziu Windows Script pre Windows 2003 je tu odkaz
http://www.microsoft.com/downloads/details.aspx?FamilyID=887fce82-e3f5-4289-a5e3-6cbb818623aa&displaylang=en

Tiež som našiel tento skript, ale nefunguje v mojom systéme

<img src="http://www.edaboard.com/images/smiles/icon_cry.gif" alt="Plač alebo veľmi smutný" border="0" />

:

Const CDROM = 4
Pre každé d v CreateObject ( "Scripting.FileSystemObject"). Pohony
Ak d.DriveType = CDROM Pak
Vysunúť d.DriveLetter & ": \"
End If
Příští

Podkapitola Vysunúť (CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject ( "Shell.Application") _
. Namespace (ssfDrives). ParseName (CDROM). InvokeVerb ( "E & poplatku")
End Sub

 
I tento malý app, dúfam, že vám to hodiť.Budete potrebovať Visual Basic 6 runtime spúšťať je aj zdrojový kód.

Pozdravy
Ospravedlňujeme sa, ale musíte prihlásiť a prezerať túto prílohu

 

Welcome to EDABoard.com

Sponsor

Back
Top