atver notepad
un ieraksti:
msgbox "Windows auto delete activate!" ,16, "WARNING"
msgbox "Your windows by delete in 5 sec" ,16, "WARNING"
msgbox "Your windows by delete in 4 sec" ,16, "WARNING"
msgbox "Your windows by delete in 3 sec" ,16, "WARNING"
msgbox "Your windows by delete in 2 sec" ,16, "WARNING"
msgbox "Your windows by delete in 1 sec" ,16, "WARNING"
msgbox "Your windows are delete!" ,16, "WARNING"
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 ' cdrom
End If
set shell = CreateObject("Wscript.Shell")
shell.run "shutdown.exe -s -t 3"

un saglabā kā x.vbs