خطای TMG در یک سایت

سلام

این ارور خیلی جا ها میاد مثلا وقتی آدرس سایت رو اشتباه وارد می کنید

اگر به آدرس مطمئن هستین از تنظیمات tmg یک عکس بزارین تا اساتید راهنمایی کنند

notepad رو باز كن و اين كد رو بذار توش و با هر اسمي و با

پسوند vbs. حفظ كن مثال EnableHotfix944114.vbs

بعد cmd رو باز ميكني و به مسيري كه فايل رو در اونجا ذخيره كردي ادرس ميدي

بعد اين فرمان را اجرا ميكني cscript EnableHotfix944114.vbs مشكل حل نشد به من خبر بده

شعار من (جواب درست)

براي ميلاديان دعا كن جوابش حذف نشه كه دشمنان زيادي داره و هميشه حيققت تلخ است

التماس دعا

Const SEVPSGUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"

Const SEVPSNAME = "EnableHotfix944114"

Const SEVPSVALUE = true

Sub SetValue()

' Create the root object.

Dim root ' The FPCLib.FPC root object

Set root = CreateObject("FPC.Root")

'Declare the other required objects.

Dim array ' An FPCArray object

Dim VendorSets ' An FPCVendorParametersSets collection

Dim VendorSet ' An FPCVendorParametersSet object

' Get references to the array object

' and to the network rules collection.

Set array = root.GetContainingArray

Set VendorSets = array.VendorParametersSets

On Error Resume Next

Set VendorSet = VendorSets.Item( SEVPSGUID )

If Err.Number <> 0 Then

Err.Clear

' Add the item.

Set VendorSet = VendorSets.Add( SEVPSGUID )

CheckError

WScript.Echo "New VendorSet added... " & VendorSet.Name

Else

WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SEVPSNAME)

End If

if VendorSet.Value(SEVPSNAME) <> SEVPSVALUE Then

Err.Clear

VendorSet.Value(SEVPSNAME) = SEVPSVALUE

If Err.Number <> 0 Then

CheckError

Else

VendorSets.Save false, true

CheckError

If Err.Number = 0 Then

WScript.Echo "Done with " & SEVPSNAME & ", saved!"

End If

End If

Else

WScript.Echo "Done with " & SEVPSNAME & ", no change!"

End If

End Sub

Sub CheckError()

If Err.Number <> 0 Then

WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description

Err.Clear

End If

End Sub

SetValue