dim banjarsari

masuk()

sub masuk()

set banjarsari = wscript.CreateObject(“wscript.shell”)

keterangan = “Pilihan:” & vbcrlf &_

“[0].Aktifkan Folder Option.” & vbcrlf &_

“[1].Nonaktifkan Folder Option.” & vbcrlf & vbcrlf &_

“[Bangkitlah Indonesia!]“

nilai = inputbox(keterangan,”Edit Folder Option”,0)

banjarsari.RegWrite”HKCU\Software\Microsoft\Windows\CurrentVersion” &_

“\Policies\Explorer\NoFolderOptions”,nilai,”REG_DWORD”

if nilai=1 then

msgbox “Folder Option dinonaktifkan”,vbInformation,”Edit Folder Option”

else

if nilai=0 then

msgbox “Folder Option diaktifkan”,vbInformation,”Edit Folder Option”

banjarsari.RegDelete”HKCU\Software\Microsoft\Windows\CurrentVersion” &_

“\Policies\Explorer\NoFolderOptions”

else

msgbox “Masukkan angka 0 atau 1!”,vbInformation,”Edit Folder Option”

masuk()

end if

end if

end sub

Double click on the icon umpatfo.vbs after that enter the number 1 and click OK. Do not forget to restart your system after running the program then Folder Options in Windows Explorer will automatically be lost. To put it back it is easy to give with the number 0 and click OK on the program umpatfo.vbs. Congratulations & best wishes for successful attempts

The number of application shortcuts in the Programs result in slow access to the next shortcut, for example, only if you want to access the shortcut in Notepad Accessories have to wait several seconds because many applications that there is a shortcut on the Programs, the Notepad application is important to note the address or important as the notes while. Of course, this will be very burdensome for the user PC (Personal Computer) that has a memory capacity of the rather small. Nah, how to effectively handle it? Why does not RUN through it? RUN through because the computer users are required for the application to be accessed. So what if the user forgot or incorrectly pengetikkan name of the application to be accessed. Certainly will be making and take a quite a lot. Because of these factors then the work is created. I want to do? Follow on how to create shortcuts for your most important applications, such as the following.

Make a script under this program through Notepad ago ShortcutNotePad.js save with the name and change the Save as type Text that was from Documents (*. txt) to All Files. Turn off the Word Wrap in Notepad that at the time pengetikan script program.

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 NotePad:\n\n’+

‘[Yes] untuk Install.\n’+

‘[No] untuk UnInstall.\n’+

‘[Cancel] untuk Keluar.\n\n’+

‘[mailto:prasdikatamajr@yahoo.com]\n\n’+

‘-> Install sekarang?’

var tanya = natan.popup(pesan1,0,’Buka NotePad’,vbYesNoCancel+vbQuestion);

if (tanya == vbYes)

{

natan.RegWrite(‘HKCR\\Directory\\shell\\komando\\’,'-> Buka NotePad!’,'REG_SZ’);

natan.RegWrite(‘HKCR\\Directory\\shell\\komando\\command\\’,'notepad.exe’,'REG_SZ’);

natan.RegWrite(‘HKCR\\Drive\\shell\\komando\\’,'-> Buka NotePad!’,'REG_SZ’);

natan.RegWrite(‘HKCR\\Drive\\shell\\komando\\command\\’,'notepad.exe’,'REG_SZ’);

pesan2 = ‘Selesai Di Install!’

natan.popup(pesan2,0,’Buka NotePad’,vbInformation);

}

else if (tanya == vbNo)

{

natan.RegDelete(‘HKCR\\Directory\\shell\\komando\\command\\’);

natan.RegDelete(‘HKCR\\Directory\\shell\\komando\\’);

natan.RegDelete(‘HKCR\\Drive\\shell\\komando\\command\\’);

natan.RegDelete(‘HKCR\\Drive\\shell\\komando\\’);

pesan3 = ‘Selesai Di UnInstall!’

natan.popup(pesan3,0,’Buka NotePad’,vbInformation);

}

else

{

natan.popup(‘Matur Nuwun.’,0,’Buka NotePad’,vbInformation);

}

After completing the program over the script, open Windows Explorer, then locate the file named ShortcutNotePad.js. Double click on the icon for the file mengeksekusinya. After ShortcutNotePad.js window click Yes to place a shortcut in the Start Menu Notepad. To see the results please right-click on the Start button. So Notepad shortcut that you want will be created for you and you can use immediately. When you use Dreamweaver I suggest running the script through the command prompt with the command C: \> cscript ShortcutNotePad.js. If you use Norton Antivirus or other antivirus that have the script blocking ability, it will be out a message warning that the script is malicious script. While the script is not malicious script but the script that is used to modify the system. Please be access by selecting the “Authorize this script”.

By creating this program means that you have had a role in the economy and accelerate the process of memory and other applications to appear on the entry Windows first. The program has been in over a pilot project in some of the operating system platform, namely the output Microsoft Windows 98, Windows 2000 Professional and Windows XP Professional Service Pack 2.

Icons that this one will be very useful for laptop users to know the situation in the electricity stored in a laptop battery. If the electricity in the laptop battery is low then the icon will give a warning that the electricity situation in the low. However, as for other PC users (not a laptop or gadget), the icon will appear on the AC power indicates that the electric current stable entry into the computer.

How to activate the icons are quite easy to be calculated, namely by following the steps below.

Step 1:
Open the Control Panel window through the Start Menu, select Performance and Maintenance, and then select Power Options.

Step 2:
In the Power Options Properties window click the Advanced tab. Then select the option Always show icon on the taskbar on the frame Options. Last click Apply button to display the icon, and click the OK button to close the Power Options Properties window.

If you want to adjust the settings icon in accordance with the type of computer that is used is click on the icon once power is there in the tray icon (located in the bottom right corner of desktop). There are six options that can be tailored to the type of computer that is being used, ranging from Home / Office Desk to Max Battery. Please adjust the electricity consumption needs of the computer that is being used, whether a laptop or PC.
Now the incoming power to the computer and the power remaining in the battery of a laptop can be monitored by using the icon.

By using Notepad type the following script and save with the name ShortcutRegedit.js and change Save as type Text that was from Documents (*. txt) to All Files. Do not forget to turn off Word Wrap in Notepad that at the time pengetikan script program.

// Program Sangat Sederhana Membuat Shortcut Regedit

// Nama Program: ShortcutRegedit.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 Shortcut Regedit:\n\n’+

‘[Yes] untuk Install.\n’+

‘[No] untuk UnInstall.\n’+

‘[Cancel] untuk Keluar.\n\n’+

‘[Program Bangsa Indonesia!]\n\n’+

‘-> Install sekarang?’

var tanya = natan.popup(pesan1,0,’Shortcut Regedit’,

vbYesNoCancel+vbQuestion);

if (tanya == vbYes)

{

natan.RegWrite( ‘HKCR\\Directory\\shell\\natan\\’,

‘-> Buka Regedit!’,'REG_SZ’);

natan.RegWrite( ‘HKCR\\Directory\\shell\\natan\\command\\’,

‘”regedit.exe”‘,’REG_SZ’);

natan.RegWrite( ‘HKCR\\Drive\\shell\\natan\\’,

‘-> Buka Regedit!’,'REG_SZ’);

natan.RegWrite( ‘HKCR\\Drive\\shell\\natan\\command\\’,

‘”regedit.exe”‘,’REG_SZ’);

pesan2 = ‘Shortcut Regedit Telah Di Install!’

natan.popup(pesan2,0,’Shortcut Regedit’,vbInformation);

}

else if (tanya == vbNo)

{

natan.RegDelete(‘HKCR\\Directory\\shell\\natan\\command\\’);

natan.RegDelete(‘HKCR\\Directory\\shell\\natan\\’);

natan.RegDelete(‘HKCR\\Drive\\shell\\natan\\command\\’);

natan.RegDelete(‘HKCR\\Drive\\shell\\natan\\’);

pesan3 = ‘Shortcut Regedit Telah Di UnInstall!’

natan.popup(pesan3,0,’Shortcut Regedit’,vbInformation);

}

else

{

natan.popup(‘Matur Nuwun.’,0,’Shortcut Regedit’,vbInformation);

}

Run the program via Windows Explorer. If the window was open regedit Shortcut select Yes to Install and Uninstall Select No to. Shortcut will appear when you right-click on the Start Menu or on the drive and folder in Windows Explorer. The program has been tested over the operating systems Windows 98, 2000 Professional and XP Professional SP2. Congratulations taste.