Enebled Registry Editor ตรงไหนอ่ะคับ

[danya]

ถามเป็นครั้งที่สองครับ แหะๆ :D

เพราะครั้งแรก ไม่มีใครตอบ หุหุ

[mangmo]

ระบบจะขึ้นข้อความ "registry editing has been disabled by your administrator" มา
ให้ทำการ Copy โค้ดดังนี้น่ะค่ะ


Option Explicit

Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Restart to take effect the change"
enab = "Enabled"
disab = "Disabled"
jobfunc = "Registry Editor are now "

t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

ไปวางใน Notepad แล้วเซฟเป็นไฟล์ *.vbs น่ะค่ะ (ชื่ออะไรก็ได้ แต่นามสกุล vbs) ดับเบิลคลิกไฟล์ที่ได้ รีสตาร์ท เพราะถ้าคุณเป็นWindows XP จะอิมพอร์ทไฟล์ *.reg ไม่ได้ แต่วินโดวส์รุ่นเก่ากว่าจะได้ (ไม่แน่ใจวินโดวส์สองพัน)

ปล.ถ้าหากได้ผลยัง ช่วยบอกด้วยน่ะค่ะ ^^

[danya]

ครับผมขอบคุณมากครับ เดี่ยวจะลองดู แต่ยังไม่อยาก Restart แหะๆ เล่ยที่มหาลัยอ่ะ เดี่ยวพรุงนี้ มารายงานผลครับ ( ไว้Restart คืนนี้ครับ หุหุ )

[mangmo]

ครับผมขอบคุณมากครับ เดี่ยวจะลองดู แต่ยังไม่อยาก Restart แหะๆ เล่ยที่มหาลัยอ่ะ เดี่ยวพรุงนี้ มารายงานผลครับ ( ไว้Restart คืนนี้ครับ หุหุ )

คร้า ^^

[ฟ้าสางที่บางกอก]

นู๋ผึ้งเขียนโค๊ดมาเองเลยนะนี่ เก่งจัง อิอิ

[danya]

ได้แล้ววววว

ขอบคุณมากๆๆ เยยค้าบบผม น่ารักจัง อิอิ

[mangmo]

ได้แล้ววววว

ขอบคุณมากๆๆ เยยค้าบบผม น่ารักจัง อิอิ

คร้า ดีใจด้วยน่ะค่ะ ^^