Show Network Icon When Connected

---open Notepad > type & save the below lines with a filename xxx.vbs & run it----

On Error Resume Next

set ws = WScript.CreateObject("WScript.Shell")

start = "HKLM\SYSTEM\CurrentControlSet"

classGUID = ws.RegRead(start & "\Enum\Root\MS_NDISWANIP\0000\ClassGUID")
netID = ws.RegRead(start & "\Control\Class\" & classGUID & "\0000\NetCfgInstanceID")

ws.RegWrite start & "\Control\Network\" & classGUID & "\" & netID & "\Connection\ShowIcon", 1, "REG_DWORD"

MsgBox "Show icon in Notification Area when connected is set.", 4096,"Finished"

Reinstall / Repair IE and OE

---open Notepad > type & save the below lines with a filename xxx.vbs & run it----

'run_ie_reinstall.vbs - Runs the Internet Explorer Setup
'© Doug Knox - 4/10/2002
'Downloaded from www.dougknox.com

X = MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!")

Y = MsgBox("Do you want to reinstall Outlook Express?", vbYesNo, "Prompt!")

Set WshShell = WScript.CreateObject("WScript.Shell")

If X = 6 Then
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\IsInstalled", 0, "REG_DWORD"
End If

If Y = 6 Then
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}\IsInstalled", 0, "REG_DWORD"
End If

If X = 6 OR Y = 6 Then
WshShell.Run ("rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %windir%\Inf\ie.inf")
Else
MsgBox "You chose not to reinstall IE or OE. No changes were made." & vbCR & vbCR & "Copyright 2003 - Doug Knox",vbOkOnly, "User Cancelled"
End If

Disable / Enable Internet & Folder Options

---open Notepad > type & save the below lines with a filename xxx.vbs & run it----

'Downloaded from www.dougknox.com
'Fix Internet Options Restrictions
'© Doug Knox - rev 05/21/2003

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, p2, itemtype
itemtype = "REG_DWORD"

Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
p1 = "HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
p2 = "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"

'Create/modify the registry key value for NoBrowserOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
p1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
p2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"

'Create/modify the registry key value for NoFolderOptions with value 0
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
WSHShell.RegWrite p2, 0, itemtype

MsgBox "Done. You may need to log off/log on or reboot for the change to take effect.",4096,"Finished!"