Set Sh = CreateObject("WScript.Shell")

ValueName = _
	"HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\" _
	& "CurrentVersion\Runonce\^SetupICWDesktop"
On Error Resume Next 
Value = Sh.Regread(Valuename)
Select Case Err.Number
Case 0
	' This means th key is there
	msg = "ICW registry key found." & vbCrLf
	msg = msg & "key is: " & ValueName & vbCrLf
	Sh.RegDelete ValueName
	If Err.Number = 0 Then
		msg = msg & "Registry key deleted successfully." & vbCrLf
		msg = msg & "Value was: " & Value
		msg = msg & "Run this script again to verify removal." & vbCrLf
	Else
		msg = "Error encountered trying to delete registry key: " _
			& vbCrLf
		msg = msg & "Error was " & Err.Number & vbCrLf & Err.Description
	End If		
Case -2147024894
	msg = "The Internet Connection Wizard key is already removed."
Case Else
	msg = "Error encountered trying to read registry key: " & vbCrLf
	msg = msg & ValueName & vbCrLf
	msg = msg & "--------------------------------" & vbCrLf
	msg = msg & "Error was " & Err.Number & vbCrLf & Err.Description
End Select
WScript.Echo msg


OeStubPathKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}\Stubpath"
' delete it to stop OE from showing up.