récupérer l'adresse IP du serveur

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 17 Juil 2003 à 14:47

je n'arrive pas à télécharger la base corrigée : un pb de FireWall. Est ce que tu peux essayer de me l'envoyer zippée stp?
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Rigol'man » 17 Juil 2003 à 14:49

voila c fait ! :o)[%sig%]
Rigol'man
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 17 Juil 2003 à 15:20

Je crois que je ne vais jamais m'en sortir! J'ai intégré ma nouvelle page mais quand je teste...ça ne marche pas! Je ne dois pas être douée, c'est tt.Il y a un message qui me dit que je n'ai pas accés à la vue!!...mais quelle vue?
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Rigol'man » 17 Juil 2003 à 15:25

le code que je t'ai filé va chercher le nom de la boite aux lettres de l'utilisateur connecté dans le carnet d'adresses (NAB). Si tu n'es pas connecté (acces anonymous) ca risque de poser pb !!!! je pense que ca doit venir de ca !!! au choix :1/ forcer l'identification a la base2/ traiter le cas anonymous[%sig%]
Rigol'man
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 17 Juil 2003 à 15:41

Pourtant la personne qui se logge est gestionnaire : ça ne devrait pas poser de pb!
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Rigol'man » 17 Juil 2003 à 15:48

"Il y a un message qui me dit que je n'ai pas accés à la vue!!" ==> a quel moment ce message apparait il ? en cliquant sur le lien ?? en chargeant la page ?la personne est elle deja connectée avant le chargement de la page ?[%sig%]
Rigol'man
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 17 Juil 2003 à 16:06

Rigol'man, tu ne dois plus trop rigoler avec moi et mes soucis!La personne s'identifie pour accéder à la page et ce message apparaît quand la souris passe sur le lien présent sur cette page, au niveau du chemin du lien : nom_serveur/base.nsf/vous n'avez pas accès...
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Rigol'man » 17 Juil 2003 à 16:10

si si je rigole tout le temps quoiqu'il arrive !!!!j'ai la meme chose que toi, "/chemin/base.nsf/vous n'etes pas autorisé a effectuer cette operation" quand je suis pas connecté !!!sinon, quels sont les droits de cette personne sur le carnet d'adresses (names.nsf) ????[%sig%]
Rigol'man
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 17 Juil 2003 à 16:19

C'est où que je peux voir ça?
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Rigol'man » 17 Juil 2003 à 16:21

tu ouvres la base names.nsf sur ton serveur , tu regardes la liste de controle d'acces et tu regardes quels sont les droits accordés a cette personne.Attention : il peut y avoir son nom directement dans la liste mais c rare, sinon, il y a de grandes chances pour que cette personne soit dans un groupe qui lui est dans cette liste ! :o)[%sig%]
Rigol'man
 

Re: récupérer l'adresse IP du serveur

Messagepar Droad » 17 Juil 2003 à 16:38

Veuillez pardonnez mon incruste !Puisque la référence au serveur est inutile dans le contexte sus-mentionné, j'ai simplifié mon agent auparavant posté.Rappel: "Exécuter une fois", "Acces web - Executer en tant qu'utilisateur Web".Dans la page: <a href="NomAgent?openagent">Mail</a> Ptéte que ça marchera mieux.Sub Initialize On Error Goto handle_error Dim session As New NotesSession Dim username As String, nname As NotesName Set nname = New NotesName(session.EffectiveUsername) username = nname.Abbreviated Dim personDoc As NotesDocument, serverDoc As NotesDocument Dim view As NotesView Dim books As Variant, book As NotesDatabase '-- recupérer le doc Person de l'utilisateur books = session.AddressBooks Forall b1 In books Set book = b1 If book.IsPublicAddressBook Then If Not book.IsOpen Then Call book.Open("","") Set view = book.GetView("($NamesFieldLookup)") If Not view Is Nothing Then Set personDoc = view.GetDocumentByKey(username,True) If Not(personDoc Is Nothing) Then Exit Forall End If End If End Forall If personDoc Is Nothing Then Error "8001", username & " n'est référencé dans aucun carnet d'adresse" End If Dim mailfile As String mailfile = personDoc.mailFile(0) '-- remplacer les espaces et les antislashes dans le chemin d'accés à la base Dim i As Integer For i=1 To Len(mailfile) Select Case Mid$(mailfile,i,1) Case " " Mid$(mailfile,i)= "+" Case "\" Mid$(mailfile,i)= "/" End Select Next If Instr(mailfile,".")=0 Then mailfile = mailfile + ".nsf" Dim mailurl As String mailurl = "/"+mailfile Print "Location: " & mailurl Exit Sub handle_error: Print "<font color='red'>" & Error$ & " (ligne " & Erl & ")</font>" Resume donedone:End Sub[%sig%]
Droad
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 18 Juil 2003 à 09:41

Les incrustes ne me dérangent absolument pas!J'ai essayé ce que tu m'as dit et voilà ce qu'il y a comme message d'erreur sur le serveur : Anomalies Lotus NotesLe fichier /mail/login.nsf est inexistant.Poutant le fichier mail\login existe bien. Peut être est ce la structure du chemin?
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Droad » 18 Juil 2003 à 10:10

Argh !Si tu fais un clic droit/propriétés dans la page d'erreur, quelle est l'urlcomplète ?[%sig%]
Droad
 

Re: récupérer l'adresse IP du serveur

Messagepar dandine » 18 Juil 2003 à 10:28

adresse res://C:\WINNT2\System32URL \shdoclc.dll/http_404.htm#http://ntmrs2:81/base.nsfMoi je comprends absolument rien!
dandine
 

Re: récupérer l'adresse IP du serveur

Messagepar Droad » 18 Juil 2003 à 10:56

Scrogneugneu !Bon, procédons pas a pas:si tu tapes l'url http:/serveur/mail/login.nsf, tout se passe bien ?[%sig%]
Droad
 

PrécédentSuivant

Retour vers Développement