vbscript adalah salah satu bahasa pemograman yang relatif mudah dan tidak membutuhkan software tambahan melainkan anda hanya membutuhkan notepad atau sejenisnya. dan selain itu VBS dapat dijalankan dihampir semua system operasi (OS). kali ini saya akan mencoba memberikan script untuk membuka cd/dvd rom anda dengan VBS.pertama-tama anda buka notepad dan tuliskan code berikut:
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
lalu anda simpan dengan ekstensi .VBS ingat VBS bukan txt seperti default extensi dari notepad. dan sekarang coba jalankan. mudah bukan
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
lalu anda simpan dengan ekstensi .VBS ingat VBS bukan txt seperti default extensi dari notepad. dan sekarang coba jalankan. mudah bukan
0 komentar:
Posting Komentar