Serveur CAS et application ASP

**derzy971** · 08/06/2009, 18h05

Bonjour,
je ne sais pas si je suis sur le bon forum (si non je vous pris de m'excuser).
J'ai mis en place un portail intranet et un serveur C.A.S et je souhaiterais pouvoir sans changer le code source des applications, être authentifié par le serveur C.A.S dès que je me suis authentifié via le portail.
J'aimerais savoir si quelqu'un a déjà eu à faire cela ?
Sinon, je suis preneur pour toutes idées.

merci d'avance

**Immobilis** · 11/06/2009, 21h17

Salut,

Je suis pas vrament certain que ce soit une question de langage.

C'est plutôt de l'administration système, non?

A+

**derzy971** · 15/06/2009, 20h34

Bonjour,
j'ai mis en place un serveur CAS pour une authentification SSO, maintenant je voudrais cassifier mes applications ASP. J'ai fait pour cela une page de test simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
<html>
<head>
<title>Test ASP</title>
</head>
<body>
<%@ Page aspcompat=true %>
<%
'adresse du serveur C.A.S
Dim casServer="https://10.168.14.51:8443/cas/"
'nom de mon serveur
Dim myServer=Request.ServerVariables("SERVER_NAME")
'definition de url
Dim myUrl=Request.ServerVariables("URL")
'variable pour la concatenation de myServer et myUrl pour faciliter l'ecriture
Dim myPage
Dim url
Dim http
'permet de savoir si on est dans une connexion securisee ou non
Dim type=Request.ServerVariables("HTTPS")
if type="ON" then
myPage="https://" & myServer & myUrl
else
myPage="http://" & myServer & myUrl
end if
'Response.Write(adress)
 
'permet de verifier si qu'on est pas connecté
Dim userid=Session("uid")
if userid="" then
	Dim ticket=Request("ticket")
	'd'abord on verifie qu'il n'y a pas de ticket
	if ticket="" then
		'permet de definir l'url pour la redirection vers CAS avec le nom de la page d'appel
		'c'est-a-dire l'url qui a apres login?service=
		url=casServer & "login?service=" & myPage
		'permet d'etre rediriger sur le serveur cas
		Response.Redirect(url)
	else
		'permet d'envoyer et de recevoir du xml, c'est un echange de donnees 
		'au format xml entre le serveur et le client
		http=Server.CreateObject("MSXML2.ServerXMLHTTP")
		'permet de creer l'url pour la validation du ticket par le serveur C.A.S
		'on met serviceValidate car on utilise la version 2.0 de C.A.S
		url=casServer & "serviceValidate?ticket=" & ticket & "&service=" & myPage
		'url=casServer & "serviceValidate?service=" & myServer & "&ticket=" & ticket
		'url=casServer & "serviceValidate?service=" & myPage
		http.open("GET", url, false)
		http.send()
		'split permet de decouper une chaine par rapport a un separateur
		'ici http.responseText
		'vbLf permet un saut de ligne
		Dim reponse=split(http.responseText,vbLf)
		'permet de liberer la memoire
		http=Nothing
			'si la connexion a reussi
			if (reponse(0)="yes") then
				'on recupere le userid
				userid=reponse(1)
				Session("uid")=reponse(1)
			else
				response.write("echec authentification")
			end if
	end if
else
response.write("authentification reussi")	
end if
 
%>
</body>
</html>

La connexion au serveur se déroule parfaitement, mais lors de la redirection vers la page, j'ai des erreurs.
J'ai pourtant une url valide : http://10.168.14.51/test2.aspx?ticke...CKzOedySrq-cas et j'ai vérifié manuellement, le ticket est bon.
En local, j'ai les erreurs :

Le composant 'MSXML2.ServerXMLHTTP' ne peut pas être créé. Les composants de threads cloisonnés ne peuvent être créés que sur des pages avec une directive de page <% @ Page aspcompat=true %>
Lorsque j'ajoute <% @ Page aspcompat=true %>, j'ai une autre erreur qui apparaît : System.Runtime.InteropServices.COMException:L'autorité de certification n'est pas valide ou correcte

Pourriez-vous m'aider à résoudre mon problème ?

Merci d'avance

**Immobilis** · 15/06/2009, 21h44

Salut,

Les directives sont les premières choses à mettre dans une page. Il faut les placer avant tout autre code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
<% @ Page aspcompat=true %>
<html>

A+

**derzy971** · 15/06/2009, 22h00

j'obtiens sur la page d'erreur cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Trace de la pile: 
 
 
[COMException (0x80072f0d): L'autorité de certification n'est pas valide ou correcte
]
   Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn) +776
   Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn) +367336
   ASP.test2_aspx.__Render__control1(HtmlTextWriter __w, Control parameterContainer) +661
   System.Web.UI.Control.RenderChildrenInternal(HtmlTextWriter writer, ICollection children) +98
   System.Web.UI.Control.RenderChildren(HtmlTextWriter writer) +20
   System.Web.UI.Page.Render(HtmlTextWriter writer) +26
   System.Web.UI.Control.RenderControlInternal(HtmlTextWriter writer, ControlAdapter adapter) +25
   System.Web.UI.Control.RenderControl(HtmlTextWriter writer, ControlAdapter adapter) +121
   System.Web.UI.Control.RenderControl(HtmlTextWriter writer) +22
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +2558

Quelqu'un pour m'aider

**Immobilis** · 15/06/2009, 22h12

J'ai un peu de mal à comprendre si tu fais de l'ASP3 vbscript ou du .Net C#. Tu peux le préciser?

**derzy971** · 15/06/2009, 22h33

je fais de ASP vbscript, mais je suis débutant

j'ai modifié la ligne if (reponse(0)="yes") par if (len(reponse(0))>0)
mais je ne suis pas sur ensuite que userid et Session("uid") soit affecté

Serveur CAS et application ASP

ASP

Vue hybride

Discussions similaires

Partager

Partager