29/3/2009 - internet explorer açılış (başlangıç) sayfası kilitlenmesine işte

aşağıdaki komutları .vbs olarak kaydedip çalıştırın


Kod:

Option Explicit
Dim WSHShell, RegKey, ValueA, Result
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_CURRENT_USERSoftwarePoliciesMicrosoftInte  rnet ExplorerControl Panel"
ValueA = WSHShell.RegRead (regkey & "HomePage")

If ValueA = 0 Then 'Change Homepage is Enabled.
Result = MsgBox("Ability to Change Homepage is currently [Enabled]." & _
vbNewLine & "Would you like to Disable?" & _
vbNewLine & "Will lock and Gray it out." & _
vbNewLine & "May need to Log-off for effect.", 36)
If Result = 6 Then 'clicked yes
WSHShell.RegWrite regkey & "HomePage", 1
End If
Else 'Change Homepage is Disabled
Result = MsgBox("Ability to Change Homepage is currently [Disabled]." & _
vbNewLine & "Would you like to Enable?", 36)
If Result = 6 Then 'clicked yes
WshShell.RegDelete "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelHomePage"
'Delete Key cause it don't exist normally
End If
End If