IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Erreur de syntaxe : Compiler Error Message: BC30205: End of statement expected


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Décembre 2006
    Messages
    158
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 158
    Par défaut Erreur de syntaxe : Compiler Error Message: BC30205: End of statement expected
    Bonjour à tous,
    mon compilateur n'arrête pas de me renvoyer ce message d'erreur : End of statement expected à la ligne 32 .
    Quelqu'un pourrait me dire où ce trouve l'erreur svp ?
    Bien à vous.
    Source Error:



    Line 30: Dim IPHost As IPHostEntry = Dns.Resolve(Dns.GetHostName())
    Line 31: Dim addressList As IPAddress() = IPHost.AddressList
    --> Line 32: Dim a As IPAddress In addressList
    Line 33: 'Dim dns As Dns
    Line 34: ' Nom de la machine

    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
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
     
    <%@ Page Language="VB" %>
    <%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
    <%@ import Namespace="System.Data" %>
    <%@ import Namespace="System.Data.SqlClient" %>
    <%@ import Namespace="System.Web.Mail" %>
    <%@ import Namespace="System.IO" %>
    <%@ import Namespace="System.DirectoryServices" %>
    <%@ import Namespace="System.Configuration" %>
    <%@ import Namespace="System.Net" %>
    <%@ import Namespace="System" %>
    <script runat="server">
     
        ' Insert page code here
        '
        'Displays all computer names in an Active Directory
        'Written 08/26/02 - John O'Donnell
        Sub Button1_Click(sender As Object, e As EventArgs)
     
     
                 Try
     
            'response.write("Button1_Click")
     
            'lblError.Text = "abc" + 12
             ' Définition des objets
              Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://tamac.local", "faratbi", "faratbi")
              Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap)
              searcher.Filter = "(objectClass=computer)"
              Dim DirEntry As DirectoryEntry
              Dim IPHost As IPHostEntry = Dns.Resolve(Dns.GetHostName())
              Dim addressList As IPAddress() = IPHost.AddressList
              Dim a As IPAddress In addressList
              'Dim dns As Dns
              ' Nom de la machine
              'Dim NomMachine As String = Dns.GetHostName
     
              ' Récupération de la liste des IP de la machine
              'Dim InfoIps As IPHostEntry = Dns.GetHostEntry(NomMachine)
              'Dim MesIp As IPAddress() = InfoIps.AddressList
     
     
            For Each result As SearchResult In searcher.FindAll
                ' On récupère l'entrée trouvée lors de la recherche
                DirEntry = result.GetDirectoryEntry
                    'Response.Write(DirEntry.)
                'On peut maintenant afficher les informations désirées
                'response.write("Login : " + DirEntry.Properties("SAMAccountName").Value)
                    Response.Write("Nom : " + DirEntry.Properties("Name").value)
                    Response.Write("IP : " + DirEntry.Properties("address.Append").a.ToString())
                'response.write("Email : " + DirEntry.Properties("mail").Value)
                'response.write("Tél : " + DirEntry.Properties("TelephoneNumber").Value)
                'response.write("Password : " + DirEntry.Properties("password").Value)
                 'response.write("Ip : {0}", CurrentIp.ToString)
     
            Next
     
     
     
     
     
                 Catch Ex As Exception
                 'lblError.Text =Ex.tostring
                 response.write(Ex.tostring)
     
                 End Try
     
     
                 'End Sub
     
        End Sub
     
    </script>
    <html>
    <head>
    </head>
    <body>
        <form runat="server">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Lister"></asp:Button>
            <!-- Insert content here -->
        </form>
    </body>
    </html>

  2. #2
    Rédacteur/Modérateur


    Homme Profil pro
    Développeur .NET
    Inscrit en
    Février 2004
    Messages
    19 875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2004
    Messages : 19 875
    Par défaut
    Dim a As IPAddress In addressList
    "In addressList" n'a pas de sens dans ce contexte... qu'est-ce que tu cherches à faire exactement ?

  3. #3
    Membre confirmé
    Inscrit en
    Décembre 2006
    Messages
    158
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 158
    Par défaut
    Je cherche à afficher l'adresse ip des machines présente dans active directory, pour afficher le nom des machines ça va il n'y a pas de problème, mais pour afficher l'adresse ip là je bloque complètement et ce depuis plusieurs jours

  4. #4
    Rédacteur/Modérateur


    Homme Profil pro
    Développeur .NET
    Inscrit en
    Février 2004
    Messages
    19 875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2004
    Messages : 19 875
    Par défaut
    ah ok
    Il faut mettre le Dns.Resolve dans la boucle, puisque tu vas devoir l'exécuter pour chaque machine :
    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
    ...
            'lblError.Text = "abc" + 12
             ' Définition des objets
              Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://tamac.local", "faratbi", "faratbi")
              Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap)
              searcher.Filter = "(objectClass=computer)"
              Dim DirEntry As DirectoryEntry
     
            For Each result As SearchResult In searcher.FindAll
                ' On récupère l'entrée trouvée lors de la recherche
                DirEntry = result.GetDirectoryEntry
                    'Response.Write(DirEntry.)
                'On peut maintenant afficher les informations désirées
                    Response.Write("Nom : " + DirEntry.Properties("Name").value)
                  Dim IPHost As IPHostEntry = DirEntry.Properties("Name"))
                  Dim addressList As IPAddress() = IPHost.AddressList
                  Dim a As IPAddress = addressList(0) ' récupère la première adresse
                    Response.Write("IP : " + a.ToString())
            Next
     
    ...
    Sinon, il est sans doute possible de récupérer l'adresse IP directement avec Active Directory, mais comme je connais pas trop je peux pas te dire...

  5. #5
    Membre confirmé
    Inscrit en
    Décembre 2006
    Messages
    158
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 158
    Par défaut
    Salut,
    j'ai apporté les modifications que tu m'as conseillées, mais le problème c'est que j'obtient toujours la même ip pour toutes les machines, ce qui logiquement devrait être impossible.
    Pourrait-il avoir un problème dans la boucle?

    Bien à toi.

  6. #6
    Rédacteur/Modérateur


    Homme Profil pro
    Développeur .NET
    Inscrit en
    Février 2004
    Messages
    19 875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2004
    Messages : 19 875
    Par défaut
    je me suis planté dans le code que j'ai posté, il manque un bout :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    ...
    Dim IPHost As IPHostEntry = Dns.Resolve(DirEntry.Properties("Name"))
    ...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 21
    Dernier message: 21/08/2014, 06h52
  2. Réponses: 1
    Dernier message: 18/03/2013, 11h41
  3. [Débutant] Erreur : End of statement expected
    Par bananekiller dans le forum VB.NET
    Réponses: 1
    Dernier message: 12/06/2012, 15h43
  4. Compiler Error Message: CS1002: ; expected
    Par Obeliks dans le forum ASP.NET
    Réponses: 1
    Dernier message: 26/06/2009, 20h37
  5. Réponses: 0
    Dernier message: 05/02/2009, 12h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo