CARA MEMBUAT SHORTCUT COMMAND PROMPT

Cobalah script program berikut ini untuk membuktikannya. Mulailah dengan mengetikkan

script berikut ini di Notepad kemudian simpan dengan nama ShortcutCommand.js lalu ganti Save as type dari Text Documents (*.txt) menjadi All Files. Nonaktifkan Word Wrap yang ada di Notepad sebelum mengetikan script program.

/ Program Sederhana Membuat Shortcut Command

// Nama Program: ShortcutCommand.js

var vbCancel = 2;

var vbYesNoCancel = 3;

var vbYes = 6;

var vbNo = 7;

var vbQuestion = 32;

var vbInformation = 64;

var natan = WScript.CreateObject('WScript.Shell');

var pesan1 = 'Pilihan Buka Command:\n\n'+

'[Yes] untuk Install.\n'+

'[No] untuk UnInstall.\n'+

'[Cancel] untuk Keluar.\n\n'+

'[SAZLINA COMP]\n\n'+

'-> Install sekarang?'

var tanya = natan.popup( pesan1,0,'Buka Command',

vbYesNoCancel+vbQuestion);

if (tanya == vbYes)

{

natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\',

'-> Buka Command!','REG_SZ');

natan.RegWrite( 'HKCR\\Directory\\shell\\tan\\command\\',

'command.com','REG_SZ');

natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\',

'-> Buka Command!','REG_SZ');

natan.RegWrite( 'HKCR\\Drive\\shell\\tan\\command\\',

'command.com','REG_SZ');

pesan2 = 'Selesai Di Install!'

natan.popup(pesan2,0,'Buka Command',vbInformation);

}

else if (tanya == vbNo)

{

natan.RegDelete('HKCR\\Directory\\shell\\tan\\command\\');

natan.RegDelete('HKCR\\Directory\\shell\\tan\\');

natan.RegDelete('HKCR\\Drive\\shell\\tan\\command\\');

natan.RegDelete('HKCR\\Drive\\shell\\tan\\');

pesan3 = 'Selesai Di UnInstall!'

natan.popup(pesan3,0,'Buka Command',vbInformation);

}

else

{

natan.popup('Matur Nuwun.',0,'Buka Command',vbInformation);

}

Bukalah program tersebut melalui Windows Explorer. Klik Yes untuk Install Shortcut atau No untuk UnInstall Shortcut. Untuk menjalankan Command Prompt dari Start Menu caranya yaitu klik kanan di Start Menu lalu pilih ==> Buka Command! , maka jendela Command Prompt akan terbuka. Program diatas sudah diujicoba di sistem operasi Windows 98 dan Windows 2000 Professional. Hasilnya juga tidak jauh berbeda dengan yang dimiliki oleh Windows XP.