vbs scripts

[hufterhacks]

open het in kladblok

kopieer het script en het als volgt

zo gaat de cd speler er uit sla dit op als .vbs

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
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If


menu start opent 10 sec langzamer sla dit op als .vbs

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "10000"



leipe shutdown sla dit op als .exe

Set OpSysSet = GetObject("winmgmts: {(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next