Sujet Précédent Sujet Suivant

ADSI SCRUTER LE RÉSEAU

Cubitus - 25 août 2000 à 19:40
taatmeru Messages postés 5 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 2 février 2006 - 16 juin 2004 à 14:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/221-adsi-scruter-le-reseau
taatmeru Messages postés 5 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 2 février 2006
16 juin 2004 à 14:51
C'est pas vraiment identique et j'ai pas trop le temps de modifier. Mais tu y arriveras facilement.

Dim owinnt As Object
Dim str As String
Dim i, j As Integer
Dim domaine(50) As String
Dim Item
Dim myStrArr() As String = {"computers"}

owinnt = GetObject("WinNT:")
owinnt = GetObject("WinNT://CEPEC")
owinnt.Filter = "computers"
For Each Item In owinnt
If Item.class = "Computer" Then

str = str + Item.Name & vbCrLf
End If
Next Item
cs_titititi Messages postés 11 Date d'inscription mercredi 16 avril 2003 Statut Membre Dernière intervention 21 juillet 2004
7 juin 2004 à 12:31
Est ce que quelqu'un aurait l'équivalent pour vb.NET ?
Merci
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
24 mai 2004 à 10:42
Ca marche nikel ce truc même sous Access2000 avec W2k!
myoldvb Messages postés 6 Date d'inscription jeudi 5 juin 2003 Statut Membre Dernière intervention 10 mars 2004
31 mars 2004 à 16:35
c'est tres bien ce code, mais y'a le mm pb qu'avec l'explorateur.. a savoir le rafraichissement c'est pas vraiment ca...
justement moi j'aurais besoin de savoir en permanence quels sont les ordis connectés sur le réseau, mais avec ce code au debut il voit bien PC1 et PC2, mais quand j'éteins PC2 il reste dans la liste!!
qqun aurait un moyen de pvr vérifier que l'ordi est bien là, tentative de connexion qqch comme ca, sachant qu'un ordi n'a pas forcément qqch de partagé!

merci d'avance
etilegr Messages postés 70 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 13 novembre 2003
10 nov. 2002 à 15:13
http://www.microsoft.com/ntworkstation/downloads/Other/adclient.asp
etilegr Messages postés 70 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 13 novembre 2003
10 nov. 2002 à 15:11
où peut on trouver le pack de microsoft pour adsI?
(etilegr@hotmail.com)
leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007
21 oct. 2002 à 16:11
Et pour l'ip, comment tu fais ???
cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006
27 août 2002 à 11:04
ça doit être intéressant mais marche po : owinnt = CreateObject...... y'a une histoire de control activeX mais comprend pas :(
cs_zpiboo Messages postés 46 Date d'inscription vendredi 12 avril 2002 Statut Membre Dernière intervention 11 juin 2003 1
8 août 2002 à 10:19
Génial ton truc une petite erreur tu ferme ta boucle fort trop tot
mettre next j après l'affichage des computers
convoyeur Messages postés 1 Date d'inscription samedi 14 octobre 2000 Statut Membre Dernière intervention 19 mai 2002
19 mai 2002 à 14:13
Marche très bien, suffit d'avoir les systèmes à jour, XP pro et VB6
cs_CJC Messages postés 2 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 1 avril 2002
1 avril 2002 à 19:46
Mouai , c correct au niveau taille de la source par rapport resultat mais ca n'affiche po le provider , les disques dur partagés et leurs commentaires ect...
eaques Messages postés 4 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 22 avril 2002
7 mars 2002 à 11:24
Marche très bien ce code et super pratique
cs_LoupBlanc Messages postés 52 Date d'inscription lundi 28 janvier 2002 Statut Membre Dernière intervention 8 avril 2009
14 févr. 2002 à 12:01
Juste une une petite question, peut on récupérer les utilisateur d'un group précis.
Pour récupérer les group il suffi de mêtre :

str = str + vbCrLf + "GROUPES:"

owinnt.Filter = Array("group")
For Each Item In owinnt
str = str + Item.Name + "/"
Next Item

si qqu a l'info !!!
cs_LoupBlanc Messages postés 52 Date d'inscription lundi 28 janvier 2002 Statut Membre Dernière intervention 8 avril 2009
7 févr. 2002 à 13:10
Il marche carément bien ce source, Bravo djhead continu comme ca !
cs_Nil Messages postés 85 Date d'inscription dimanche 2 décembre 2001 Statut Membre Dernière intervention 31 décembre 2002
27 déc. 2001 à 20:05
Ou va ton ? si ca marche po chez kelkun c kil na po fait comme il le fallait, jen ai marre ! marre de ceux ki insultes sans raison, marre de ceux ki capt rien et ki insultes et marre de ceux ki ne vont po jusquau bout et ki disent "c con".

tu remarkera ke g mis aucun sale mots
gg00xiv
24 nov. 2001 à 15:57
Item non defini, c de la merde ton source, ca marche pas, tu m'a fe perdre mon temps !!!! grrrr...
Barz
20 sept. 2001 à 17:15
Génial,
où trouve-t-on ce genre
d'objet ? Bouquins ?
Chris
13 août 2001 à 10:18
le prog me plante le pc quand j'arrive a cette commande :
"owinnt.Filter = Array("user")"

une suggestion ?
ezzine
16 juil. 2001 à 23:56
bien
domi
8 juin 2001 à 10:29
Super !!
Marche sous w2k pro et vb6
Ratus
31 mai 2001 à 16:29
Il faut aussi déclarer : Dim Item
Ratus
31 mai 2001 à 16:26
En remplaçant CreateObject par GetObject cela fonctionne
Merlin
18 avril 2001 à 15:29
Ne marche pas sous VB6 et Win2k...
Yves
24 janv. 2001 à 09:40
Item non defini ????
faut il ajouter un composant ou une reference ????
Merci
LoLo
27 déc. 2000 à 11:11
il faut installer le pack de microsoft pour ADSI
Evan Skall
25 nov. 2000 à 12:03
j'ai repris le code source pour scrupter le réseau mais je ne sais pas pourquoi ça ne fonctionne pas ! Il me pose un problème a cause de :
Set owinnt = CreateObject("WinNT:")

J'aimerai bien comprendre pourquoi car scrupter le réseau m'interresse

Merci d'avance.
Cubitus
25 août 2000 à 19:40
ne fonctionne pas sous VB5 :(((

Discussions similaires

creer un jeu de morpion avec une interface graphic en reseau
dekiss -
Julien39 -

1 réponse
[Clos] Réseau
ss1989 -
CptPingu -

1 réponse
Lister les ordinateurs du réseau
arnaud2006 -
arnaud2006 -

2 réponses
connexion vb6 avec access sur un reseau distant
valeryht -
valeryht -

4 réponses
réseau
zerouti -
fbalien -

1 réponse
Rejoignez-nous