Hi, Previously I got same problem ,finally I got solution for the same. Private Sub Form_Load() If MsgBox("This utility will modify your browser security setting ..Do u wisht to continue ?", vbYesNo, "Internet Message") = vbYes Then Set WshShell = CreateObject("Wscript.Shell") WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1200", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1400", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1405", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1406", "0", "REG_DWORD" 'MsgBox "Done" End If End End Sub To Understand this code, Please go through this URLs. I hope it could solve your Problem. Srinivasa Rao Muvvala Sr. Software Engineer The Boston Group [EMAIL PROTECTED]
|