Tom's Guide > Forum > Programmation > Comment creer un script d'autologin externe pour un intranet sous xoops(cms)

Comment creer un script d'autologin externe pour un intranet sous xoops(cms)

Forum Programmation : Comment creer un script d'autologin externe pour un intranet sous xoops(cms)

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

Bonjour,

je fais un intranet pour mon collège sous xoops et je cherche un script d'autologin,car dans notre college nous avon ausi un serveur novell qui gere l'espace de nos eleves et profs.Donc à chaque allumage du pc l'eleve/prof doit saissir son login et son mot de passe.Ensuite il peux aller sur son dossier perso pour ouvrir ou sauvegarder ce fichiers sur qui sont stocker sur le serveur.

Mais si il veux aller sur l'intranet pour voire ce messages ou tout simplement le consulter il faut ce loguer encore une fois.Donc pour eviter ca je penser creer un script qui ce lance automatiquement de qui ce logue a la demarage de son ordi.Il faut quand meme preciser ca veut pas dire il utilise tjr le meme pc.Donc je penser de mettre le script dans leur dossier perso et de le lancer avec le script de demarrage de novell.Qui me permet deja de lancer differente applications.

Je deja trouver un script qui permet parament de ce connecter sur le site de gmx.net mais bien sur il marche pas chez moi,autrement j'aurais pas fais ce poste.

Voici le script:
---------------------------------------------------------------------------------------
im Kennung
Dim Passwort
loggin="<username>"
Password="<Mot de passe>"

Dim MeinIE
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4

Set MeinIE = CreateObject("InternetExplorer.Application" )

Do While MeinIE.Busy
Loop

MeinIE.Visible = 1
MeinIE.Navigate "http://www.gmx.net"
Do While MeinIE.ReadyState <> 4
Loop
Set oDoc = MeinIE.Document
oDoc.all.id.value=login
oDoc.all.p.value=mot de passe
oDoc.all.login.Submit

Set oDoc = Nothing
Set oArea = Nothing
Set oRng = Nothing
---------------------------------------------------------------------------------------

Donc si vous avez la gentillese de maider ca serrait tres sympa!

Cordialment

silver74

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Tom's Guide > Forum > Programmation > Comment creer un script d'autologin externe pour un intranet sous xoops(cms)
Aller à :

Il y a 351 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens