const HKEY_LOCAL_MACHINE = &H80000002

REG_KEY="SYSTEM\CurrentControlSet\Services\lanmanserver\parameters"
REG_KEY_IE="HKLM\SOFTWARE\Microsoft\Internet Explorer"
REG_KEY_OE="HKLM\SOFTWARE\Microsoft\Outlook Express"
REG_KEY_IE_SETTING="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"

set sh = Wscript.CreateObject("Wscript.Shell")
set WMIRegObject = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\Root\default:StdRegProv")

valueArray=sh.RegRead("HKLM\"&REG_KEY&"\NullSessionPipes")

First=1
arrayExpression=""
for each elem in valueArray
	if ( elem <> "LLSRPC" )  Then
		if(First <> 1) Then
			arrayExpression = arrayExpression & "\0" &  elem
		Else
			First=0
			arrayExpression = arrayExpression & elem 
		End If
	End If
Next

newArray=split(arrayExpression,"\0")

WMIRegObject.SetMultiStringValue HKEY_LOCAL_MACHINE, REG_KEY, "NullSessionPipes", newArray 

ieValueString=sh.RegRead(REG_KEY_IE&"\Version")
oeValueString=sh.RegRead(REG_KEY_OE&"\MediaVer")

if ( ieValueString = "5.00.3700.1000" AND oeValueString = "5,50,4807,1700" ) Then
    ieSettingsValueString=sh.RegRead(REG_KEY_IE_SETTING&"\MinorVersion")
    if( InStr(ieSettingsValueString, "Q823353") = 0 )  Then
        strlen= len(ieSettingsValueString)
        if(Instr(strlen, ieSettingsValueString,";") <> strlen) Then
            ieSettingsValueString = ieSettingsValueString & ";"
        End If
        ieSettingsValueString = ieSettingsValueString & "Q823353;"
        sh.RegWrite REG_KEY_IE_SETTING&"\MinorVersion", ieSettingsValueString, "REG_SZ"
    End If
End If