Simptomi
Razmotrite sledeći scenario:
-
Usluga uloge veb uloge usluge certifikata instalira se na serveru zasnovanom Windows Server 2008 R2.
-
Imate klijentski računar koji radi Internet Explorer 10 ili noviju verziju.
-
Pokušavate da pristupite stranici "Veb unošenje usluga certifikata" koja se hostuje na serveru zasnovanom Windows Server 2008 R2.
U ovom scenariju primljena je sledeća greška u programu Internet Explorer:
Ovaj veb pregledač ne podržava generaciju zahteva za certifikat
Uzrok
Provera verzije pregledača neispravno identifikuje verziju programa Internet Explorer kao "IE 1".
Zaokrenite posao
Podržana zaokreta za ovaj problem su sledeći:
-
Konfigurišite prikaz kompatibilnosti u programu Internet Explorer.
-
Premestite funkcionalnost stranice veb ugostite Windows Server 2012.
-
Izmenite datoteku Certsbrt.inc zamenjujući redove od 44 do 70 sledećim sadržajem. Certsbrt.inc se nalazi u sledećoj fascikli:
%WINDIR%\system32\certsrv\en-us
'
' If there is no '.' in the UserAgent string, this will return the next character if any
' as the version number. ' We extract the string until a '.' and then convert it
' into integer. If -1 is returned from this function then it isn't MSIE
'
Function GetInternetExplorerVersionNumber(sHttpUserAgent)
Dim nMSIE
GetInternetExplorerVersionNumber = -1 nMSIE = InStr(sHttpUserAgent, "MSIE")
If 0 <> nMSIE Then
numChar = InStr(Mid(sHttpUserAgent, nMSIE + 5), ".") - 1
If -1 = numChar Then ' no '.' in the string
numChar = 1
End If
If nMSIE + 5 + numChar - 1 <= Len(sHttpUserAgent) Then
GetInternetExplorerVersionNumber = CInt(Mid(sHttpUserAgent, nMSIE + 5, numChar))
End If
End If
End Function
'
' We define a Old MSIE based browser
' if it has the string MSIE that is followed by a version number that is less than 4
' NOTE:
' IsOldMSIE = False does not imply MSIE >= 4.
'
' i.e. Not IsOldMSIE("abc") = True
' Not IsOldMSIE("MSIE") = True
'
Function IsOldMSIE(sHttpUserAgent)
Dim nMSIE
Dim sMSIEVersion
IsOldMSIE = False
nMSIE = InStr(sHttpUserAgent, "MSIE")
If nMSIE <> 0 AND (nMSIE+5 < Len(sHttpUserAgent)) Then
nVersion = GetInternetExplorerVersionNumber(sHttpUserAgent)
If -1 <> nVersion Then
IsOldMSIE = nVersion < NEW_MSIE_VERSION
End If
End If
End Function
Više informacija
Redovi od 44 do 70 u neobjedinjenoj Certsbrt.inc datoteci na serveru zasnovanom na sistemu Windows Server 2008 R2 su sledeći. Ovo su linije koje treba da se zamene.
'
' We define a Old MSIE based browser
' if it has the string MSIE that is followed by a version number that is less than 4
' NOTE:
' IsOldMSIE = False does not imply MSIE >= 4.
'
' i.e. Not IsOldMSIE("abc") = True
' Not IsOldMSIE("MSIE") = True
'
Function IsOldMSIE(sHttpUserAgent)
Dim nMSIE
Dim sMSIEVersion
nMSIE = InStr(sHttpUserAgent, "MSIE")
If nMSIE=0 Then
IsOldMSIE = False
ElseIf nMSIE+5 < Len(sHttpUserAgent) Then
sMSIEVersion = Mid(sHttpUserAgent, nMSIE+5, 1)
IsOldMSIE = CInt(sMSIEVersion) < NEW_MSIE_VERSION
Else
IsOldMSIE = False
End If
End Function
