เปลี่ยนค่า Default ของไดเรกทอรี ตอนลงโปรแกรมด้วย VBScript

โดยปกติโปรแกรมส่วนใหญ่ติดตั้งใน Windows จะไปที่พาธ C:Program Files เป็นค่าดีฟอลต์ของ Windows  แต่ถ้าพื้นที่ฮาร์ดดิสก์ (C)   เริ่มมีน้อย เราสามารถเปลี่ยนตำแหน่งที่เก็บโปรแกรมที่จะติดตั้งได้ โดยให้ไปอยู่ที่ไดรฟ์อื่นๆ โดยสามารถแก้ได้ที่ Registry แต่เพื่อความสะดวกไม่ต้องไปยุ่งกับ Registry โดยตรง ก็ใช้วิธีเขียนเป็น VBScript แทนโดยทำได้ดังนี้…

1. เปิด Notepad ขึ้นมา ก็อปปี้ Script ข้างล่างไปปะที่ Notepad

Option Explicit

Set ws = WScript.CreateObject(”WScript.Shell”)
Dim ws, t, p1, p2, n, cn
Dim itemtype

p1 = “HKLMSOFTWAREMicrosoftWindowsCurrentVersion”

n = ws.RegRead(p1 & “ProgramFilesDir”)
t = “Change Default Installation Path Utility”
cn = InputBox(”พิมพ์พาธ Program Files Directory  ลงในช่องว่าง แล้วคลิก OK”, t, n)
If cn <> “” Then
ws.RegWrite p1 & “ProgramFilesDir”, cn
End If

2. บันทึกไฟล์นี้เป็นชื่อ Change Program File Directory.vbs

3. เวลาใช้งานก็ดับเบิลคลิกที่ไฟล์สร้างขึ้นมา จะมีหน้าต่าง Change Default Installation Path Utility ออกมา ให้คุณใส่พาธไดเรกทอรีตามที่คุณต้องการลงในช่องว่างของหน้าต่าง

4. คลิกปุ่ม OK ก็เสร็จเรียบร้อย



ต่อไปนี้ถ้ามีการติดตั้งโปรแกรมใหม่ Windows จะติดตั้งจะไปที่ค่าพาธที่คุณตั้งใหม่เป็นค่าดีฟอลต์

cradit : augie
ที่มา : http://choicepon.wordpress.com/2010/06/03/%E0%B9%80%E0%B8%9B%E0%B8%A5%E0%B8%B5%E0%B9%88%E0%B8%A2%E0%B8%99%E0%B8%84%E0%B9%88%E0%B8%B2-default-%E0%B8%82%E0%B8%AD%E0%B8%87%E0%B9%84%E0%B8%94%E0%B9%80%E0%B8%A3%E0%B8%81%E0%B8%97%E0%B8%AD%E0%B8%A3/