Bonjour à tous,
voilà j'ai petit souci, le but de mon application est de récolter toutes les informations sur les machines, qui sont répertoriées dans l'active directory, de les mettre dans une base de données MS SQL Server et de les afficher dans un MxDataGrid.
l'insertion dans la base de données et l'affichage ce passe "sans problème", le hick et ouic'est qu'il m'insert les infos d'une seule machine dans la base de données, et m'affiche les informations de celle-ci dans le MxDataGrid, les autres machines présentent dans l'AD ne sont pas insérées dans la base de données et je ne sais pas pourquoi.
![]()
Si quelqu'un veut bien jeter un coup d'oeil à mon code et me dire quoi cela serait bien aimable.
Bien à vous.
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 <%@ 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" %> <%@ import Namespace="System.Net.DNS" %> <%@ import Namespace="System.ComponentModel" %> <%@ import Namespace="System.Management" %> <%@ import Namespace="System.Runtime.InteropServices" %> <%@ import Namespace="System" %> <%@ import Namespace="ActiveDs" %> <script runat="server"> ' Insert page code here ' Sub Page_Load() 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 DirEntry = result.GetDirectoryEntry 'Dim IPHost As IPHostEntry = Dns.Resolve(DirEntry.Properties("Name").value) 'Dim addressList As IPAddress() = IPHost.AddressList 'Dim a As IPAddress = addressList(0) ' récupère la première adresse SqlDataSourceControl2.ConnectionString="server='(local)'; trusted_connection=true; database='pspintranet'" SqlDataSourceControl2.SelectCommand="INSERT INTO Servers (nom,ServicePack,OsVersion,OsName) VALUES('"& DirEntry.Properties("Name").value &"','" & DirEntry.Properties("operatingSystemServicePack").value &"','" & DirEntry.Properties("operatingSystemVersion").value &"', '" & DirEntry.Properties("operatingSystem").value &"' )" Next SqlDataSourceControl2.ConnectionString="server='(local)'; trusted_connection=true; database='pspintranet'" SqlDataSourceControl2.SelectCommand="Select * from Servers" End Sub </script> <html> <head> </head> <body> <form runat="server"> <wmx:SqlDataSourceControl id="SqlDataSourceControl2" runat="server" DeleteCommand="" UpdateCommand=""></wmx:SqlDataSourceControl> <wmx:MxDataGrid id="MxDataGrid1" runat="server" AllowPaging="True" AllowSorting="True" CellPadding="3" DataKeyField="nom_id" DataSourceControlID="SqlDataSourceControl2" DataMember="Servers" BackColor="White" BorderColor="#CCCCCC" BorderWidth="1px" BorderStyle="None"> <FooterStyle backcolor="White" forecolor="#000066"></FooterStyle> <HeaderStyle backcolor="#006699" font-bold="True" forecolor="White"></HeaderStyle> <ItemStyle forecolor="#000066"></ItemStyle> <PagerStyle mode="NumericPages" horizontalalign="Center" backcolor="White" forecolor="#000066"></PagerStyle> <SelectedItemStyle backcolor="#669999" font-bold="True" forecolor="White"></SelectedItemStyle> </wmx:MxDataGrid> <!-- Insert content here --> </form> </body> </html>
Partager