Good to Know Database

Optisches Laufwerk auswerfen und wieder schließen


Das folgende Visual Basic Script öffnet alle optischen Laufwerke Ihres Systems und schließt diese soweit technisch möglich nach 10 Sekunden wieder. Die optischen Laufwerke in Notebooks können in der Regel nur geöffnet werden, da kein Schließmechanismus vorhanden ist.

Hinweis: Einige Virenscanner erkennen den folgenden VBScript Code als Bedrohung und verhindern die Ausführung.

Option Explicit

' Declaration of variables
Dim objWMPlayer
Dim objCdrom
Dim i

' Create Windows Media Player object
Set objWMPlayer = WScript.CreateObject("WMPlayer.OCX.7")

' Create CD-ROM object
Set objCdrom = objWMPlayer.CdromCollection

' Check if optical drives are available
If objCdrom.Count >= 1 Then
  ' Eject each optical drive
  For i = 0 To objCdrom.Count - 1
    objCdrom.Item(i).Eject
  Next

  ' Wait 10s
  WScript.Sleep(10000)

  ' Close each optical drive
  For i = 0 To objCdrom.Count - 1
    objCdrom.Item(i).Eject
  Next
End If

' Deallocate CD-ROM object
Set objCdrom = Nothing

' Deallocate Windows Media Player object
Set objWMPlayer = Nothing

' Quit Visual Basic Script
WScript.Quit()


Dieser Eintrag wurde am 27.12.2012 erstellt und zuletzt am 09.02.2013 bearbeitet.

Direkter Link zu dieser Seite: http://www.gtkdb.de/index_29_2031.html

[ Zur Startseite ]   [ Zur Kategorie ]


Valid XHTML 1.0 Transitional Valid CSS Valid Atom 1.0

© 2004-2018 by Georg Kainzbauer