Во-первых, класса WMPlayer.OCX.7 может и не быть. Во-вторых, где тут закрытие, блокировка лотка? Я бы уж лучше поигрался с IMAPI (
Image Mastering API - Wikipedia,
Image Mastering API (Windows)), хотя бы в свежих версиях обещают её поддержку «искаропки»:
Код:
Option Explicit
Dim objDiscMaster
Set objDiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")
If objDiscMaster.IsSupportedEnvironment Then
If objDiscMaster.Count > 0 Then
With WScript.CreateObject("IMAPI2.MsftDiscRecorder2")
.InitializeDiscRecorder objDiscMaster.Item(0)
WScript.Echo .VendorId, .ProductId
WScript.Sleep 3000
.EjectMedia
WScript.Sleep 3000
.CloseTray
End With
End If
End If
Set objDiscMaster = Nothing
WScript.Quit 0
