на vbs можно закрыть дверцу сидюка, тока для этого надо зарегить библиотеку AutoItX3.dll, скрипт для открытия:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.CDTray "d:", "open"
для закрытия:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.CDTray "d:", "close"

Букву диска заменить на свою