Discussion :

[Aquellito]

Bonjour à tous,

Mon problème est le suivant :

J'ai une connexion entre mon intranet et un WebService qui marche bien en VBS (Ce WebService est une application liée à AD permettant de gérer les utilisateurs, les profils et les territoires de mon intranet).
Le script VBS récupère donc le login courant, le profil et son territoire associé.
Le problème est que je doit l'exécuter et me servir des variables obtenues par ce script pour la confidentialité de mon intranet. J'aurais voulu savoir si quelqu'un savait comment récupérer ces informations depuis ce script vers ma page ASP ou s'il fallait que j'adapte directement ce code en ASP.

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
option explicit 
 
Dim CA : Set CA = CreateObject("Speig.Identity.Client.CheckAuthorizations_COM") 
WScript.echo "Objet instancié" 
CA.SetWSSecurityProviderLocation("localhost")
WScript.echo
 
WScript.echo "GetCurrentUserLogin : " & CA.GetCurrentUserLogin()
 
WScript.echo "IsCurrentUserAuthorized : " & CA.IsCurrentUserAuthorized("INDUS")
WScript.echo "GetCurrentUserTerritory : " & CA.GetCurrentUserTerritory("INDUS")
 
Set CA = nothing
WScript.echo
WScript.echo "Objet détruit"

Merci,

Axel

[Immobilis]

Salut,

Faut tester

Code :

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

Set CA = Server.CreateObject("Speig.Identity.Client.CheckAuthorizations_COM")

dans une page ASP.

Si y'a pas d'erreur ben il vaut mieux recoder.

A+

[Aquellito]

Le problème est que les méthodes IsCurrentUserAuthorized et GetCurrentUserTerritory, je les trouves pas en ASP. C'est là qu'est l'os.
Il n'y aurais pas moyen de récupérer ces valeurs là dans ma page ASP à ton avis?

[TekP@f]

Salut,

Ces fonctions n'existent pas en ASP. Il est donc normal de ne pas les trouver en ASP.
Vérifie si ces fonctions sont bien déclarées dans le WebService, et si oui, si ta DLL est à jour.

T'as un message d'erreur ? Si oui lequel ?
Sinon, adapter les fonctions en ASP, ça doit être possible. Mais il faut savoir ce que font exactement ces 2 fonctions.

[Aquellito]

Bonjour,

En effet tu as raison j'étais à côté de la plaque, les fonctions étaient déclarées dans la DLL.
J'ai réussi à bien instancié mon objet cette fois pour que les fonctions soient reconnues.

Code :

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

1
2
3
4
5
6
7
8
 
<%
Dim CA : Set CA = CreateObject("Speig.Identity.Client.CheckAuthorizations_COM")
CA.SetWSSecurityProviderLocation("localhost")
login = CA.GetCurrentUserLogin()
droit = CA.IsCurrentUserAuthorized("INDUS")
profils = CA.GetCurrentUserTerritory("INDUS")
%>

Merci à tous pour votre aide