VBScript: Eject-Lade

Angel_ · 22 november 2009, 03:39

Hallo iedereen

Deze vind ik zelf een handige,
vooral interessant voor laptops.
Je kan er de CD & DVD lade van je PC mee openen.
Voor mensen die niet bekend zijn met VBScript,
geef ik de werkwijze op.

Rechtsklik op een leeg gedeelte van het bureaublad.
Kies voor Nieuw en klik op Tekstdocument.
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject

_______________________________________________________
Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .vbs
Bijvoorbeeld: Eject-Lade.vbs
Klik op Opslaan.
Op je bureaublad word er een bestand geplaatst,
met de gegeven naam en de extensie .vbs

Je kan het bestandje bijvoorbeeld,
in het Snelstart-gedeelte van je taakbalk slepen.
Nu kan je met één muisklik de lade van je PC openen.

Angel

stegisoft · 22 november 2009, 11:01

En hoe ga je dat sluiten?

Angel_ · 22 november 2009, 23:03

Hey Stegisoft

Met een Laptop kan je dat doorgaans niet automatisch sluiten.
(In ieder geval met mijn Laptops niet.)
Ik heb wel een Scriptje liggen,
waarmee je het zou kunnen openen & sluiten,
maar dat moet ik nog uittesten op een Desk-PC.
Als het werkt zal ik het Posten.

Angel

Angel_ · 24 december 2009, 18:17

Als je een Desktop gebruikt,
heeft het sluiten van de CD-Lade door middel van een
knop op je Bureaublad niet echt veel zin.
Open je de CD-Lade met zo'n Bureaubladknop,
dan ben je toch genoodzaakt om een disk te plaatsen,
of weg te nemen.
Hierbij is een duwtje tegen de Lade,
of een druk op de Eject-knop een kleine moeite.
Toch plaats ik hier nog een leuk Scriptje, waarmee je:

A De lade terug kan sluiten.(Desktop)

B Mits een kleine verandering kan dienen, om de lade
te openen, en automatisch weer te sluiten na een bepaalde
tijd, die door de Gebruiker kan ingesteld worden.(Desktop)
(Is eigenlijk meer iets voor Toy-land)

Als je achter de regel: WScript.Sleep een 0 plaatst,
kan het Script dienen om de lade te sluiten,
na deze geopend te hebben met het Scriptje,
dat ik aan het begin van dit Topic geplaatst heb.(Eject-Lade)

Plaats je bijvoorbeeld het getal 10000 achter de regel:
WScript.Sleep dan zal bij aanklikken van het Pictogram,
de lade geopend worden, en na 10 Seconden,
automatisch weer sluiten.(Desktop)

1000 -> 1 sec
20000 -> 20 sec

Hier is het...

Rechtsklik op een leeg gedeelte van het bureaublad.
Wijs Nieuw aan en klik op Tekstdocument
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
WScript.Sleep 0
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing

_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .vbs
Bijvoorbeeld: OpenSluitLade.vbs
Klik op Opslaan
Op je bureaublad word er een bestand geplaatst,
met de gegeven naam en de extensie .vbs

Zoals het Script nu staat zal de lade na openen,
onmiddellijk weer sluiten (WScript.Sleep 0)
Op die manier kan het gebruikt worden,
om de lade terug te sluiten, nadat je ze geopend hebt,
met het script aan het begin van dit Topic (Eject-Lade)

Om het VBScript-bestand vlot te kunnen openen,
als je de inhoud wilt bewerken,
geef ik hier nog een Registertweak op,
waarmee je Open met kladblok aan het rechtsklik menu
kunt toevoegen:

Rechtsklik op een leeg gedeelte van het bureaublad.
Wijs Nieuw aan en klik op Tekstdocument
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\Open met Kladblok\command]
@="notepad.exe %1"

_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .reg
Bijvoorbeeld: Open met kladblok.reg
Klik op Opslaan
Op je bureaublad word er een bestand geplaatst,
met de gegeven naam en de extensie .reg
Klik op het bestand en in het Popup venstertje op Ja
De inhoud van het bestand,
word nu aan het Register toegevoegd.

Angel

Angel_ · 30 december 2009, 14:50

Met dit Scriptje kan je een knop maken,
waarmee het mogelijk is de lade van je PC te openen,
en ook weer te sluiten. ( Desktop )
Je hebt dus geen twee knoppen meer nodig.

Rechtsklik op een leeg gedeelte van het bureaublad.
Wijs Nieuw aan, en klik op Tekstdocument
Druk tweemaal op Enter.
Markeer en kopieer nu de volgende (Vetgedrukte) tekst,
en plak deze in het tekstdocument (Kladblok).
_______________________________________________________

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
msgbox" Lade sluiten"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing

_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...
Typ in het tekstvak achter Bestandsnaam:
de naam die je aan het bestand wilt geven en
eindig met .vbs
Bijvoorbeeld: Open + Sluit lade.vbs
Klik op Opslaan

Om het Pictogram netjes in het snelstart gedeelte van je taakbalk te krijgen,
doe je het volgende:
Rechtsklik op het Pictogram en kies voor Knippen
Open de map Mijn documenten (In Vista: Documenten).
Rechtsklik op een leeg gedeelte van de map, en kies voor Plakken
Klik nu op het Pictogram en houd de linker muisknop ingedrukt,
terwijl je het Icoon naar het snelstart gedeelte van je taakbalk sleept.
Plaats het hier naar keuze.
Wil je een ander Pictogram gebruiken,
rechtsklik dan op het Icoon en kies voor Eigenschappen
Klik onder het tabblad Snelkoppeling op de knop Ander pictogram...
Nu kan je in de lijst op zoek gaan naar een geschikt Icoon.
Klik op de knop Bladeren... als je op zoek wilt gaan, naar nog andere Picto's.
De popup tekst van het Pictogram kan je aanpassen,
door in het rechtsklik menu voor Naam wijzigen te kiezen.

Angel

stegisoft · 30 december 2009, 23:29

Ik heb het getest en beiden cdrom en dvdrom gingen open.
Klik je op sluiten dan gaan ook beiden dicht.

Wat vindt je van deze:

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
msgbox" Lade openen"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
msgbox" Lade sluiten"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing