Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ilan
Bonsoir, une des solutions A ESSAYER sans passer par des API, est d'appeler la commande MS-DOS NET.EXE avec l'option VIEW. NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs accessibles. (Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier .BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste sous forme de chaine de caracteres; chaque ordinateur etant precede de
Function GetMyNeighBourHood As String Dim Fs, Fichier, LigneLue as String Dim MyNetWorkList as string MyNetWorkList="" Set Fs=CreateObject("Scripting.FileSystemObject") If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT" Shell "C:TOTOTOTO.BAT" WaitForFile: If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT") Do LigneLue=Fichier.ReadLine If LigneLue="La liste est vide." then Exit Do If Left(LigneLue,2)="" then if MyNetWorkList="" then MyNetWorkList=Lignelue Else MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue End if End if Loop Until Fichier.AtEndOfStream=True Fichier.Close Msgbox mynetworklist GetMyNeighBourHood=MyNetWorkList End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Merci.
Bonsoir,
une des solutions A ESSAYER sans passer par des API, est d'appeler la commande
MS-DOS NET.EXE avec l'option VIEW.
NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs
accessibles.
(Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est
reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte
qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier
.BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne
NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste
sous
forme de chaine de caracteres; chaque ordinateur etant precede de \
Function GetMyNeighBourHood As String
Dim Fs, Fichier, LigneLue as String
Dim MyNetWorkList as string
MyNetWorkList=""
Set Fs=CreateObject("Scripting.FileSystemObject")
If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT"
Shell "C:TOTOTOTO.BAT"
WaitForFile:
If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile
If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile
Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT")
Do
LigneLue=Fichier.ReadLine
If LigneLue="La liste est vide." then Exit Do
If Left(LigneLue,2)="\" then
if MyNetWorkList="" then
MyNetWorkList=Lignelue
Else
MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue
End if
End if
Loop Until Fichier.AtEndOfStream=True
Fichier.Close
Msgbox mynetworklist
GetMyNeighBourHood=MyNetWorkList
End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau
ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Bonsoir, une des solutions A ESSAYER sans passer par des API, est d'appeler la commande MS-DOS NET.EXE avec l'option VIEW. NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs accessibles. (Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier .BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste sous forme de chaine de caracteres; chaque ordinateur etant precede de
Function GetMyNeighBourHood As String Dim Fs, Fichier, LigneLue as String Dim MyNetWorkList as string MyNetWorkList="" Set Fs=CreateObject("Scripting.FileSystemObject") If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT" Shell "C:TOTOTOTO.BAT" WaitForFile: If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT") Do LigneLue=Fichier.ReadLine If LigneLue="La liste est vide." then Exit Do If Left(LigneLue,2)="" then if MyNetWorkList="" then MyNetWorkList=Lignelue Else MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue End if End if Loop Until Fichier.AtEndOfStream=True Fichier.Close Msgbox mynetworklist GetMyNeighBourHood=MyNetWorkList End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Merci.
reno
Merci je vais essayer ça de suite
"Ilan" wrote:
Bonsoir, une des solutions A ESSAYER sans passer par des API, est d'appeler la commande MS-DOS NET.EXE avec l'option VIEW. NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs accessibles. (Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier .BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste sous forme de chaine de caracteres; chaque ordinateur etant precede de
Function GetMyNeighBourHood As String Dim Fs, Fichier, LigneLue as String Dim MyNetWorkList as string MyNetWorkList="" Set Fs=CreateObject("Scripting.FileSystemObject") If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT" Shell "C:TOTOTOTO.BAT" WaitForFile: If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT") Do LigneLue=Fichier.ReadLine If LigneLue="La liste est vide." then Exit Do If Left(LigneLue,2)="" then if MyNetWorkList="" then MyNetWorkList=Lignelue Else MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue End if End if Loop Until Fichier.AtEndOfStream=True Fichier.Close Msgbox mynetworklist GetMyNeighBourHood=MyNetWorkList End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Merci.
Merci je vais essayer ça de suite
"Ilan" wrote:
Bonsoir,
une des solutions A ESSAYER sans passer par des API, est d'appeler la commande
MS-DOS NET.EXE avec l'option VIEW.
NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs
accessibles.
(Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est
reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte
qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier
.BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne
NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste
sous
forme de chaine de caracteres; chaque ordinateur etant precede de \
Function GetMyNeighBourHood As String
Dim Fs, Fichier, LigneLue as String
Dim MyNetWorkList as string
MyNetWorkList=""
Set Fs=CreateObject("Scripting.FileSystemObject")
If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT"
Shell "C:TOTOTOTO.BAT"
WaitForFile:
If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile
If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile
Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT")
Do
LigneLue=Fichier.ReadLine
If LigneLue="La liste est vide." then Exit Do
If Left(LigneLue,2)="\" then
if MyNetWorkList="" then
MyNetWorkList=Lignelue
Else
MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue
End if
End if
Loop Until Fichier.AtEndOfStream=True
Fichier.Close
Msgbox mynetworklist
GetMyNeighBourHood=MyNetWorkList
End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau
ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Bonsoir, une des solutions A ESSAYER sans passer par des API, est d'appeler la commande MS-DOS NET.EXE avec l'option VIEW. NET VIEW dans une fenetre DOS devrait te renvoyer la liste des ordinateurs accessibles. (Essaie d'abord le NET VIEW dans l'invite de commandes pour voir ce qui est reellement retourne.)
Je te propose de retourner le resultat de la commande dans un fichier texte qui tu iras lire ensuite en VB; et de placer cette commande dans un fichier .BAT
Ex : Fichier de commande C:TOTOTOTO.BAT qui contient la ligne NET VIEW > C:TOTOTOTO.TXT
La fonction ci-dessous affiche la liste des ordinateurs et renvoie la liste sous forme de chaine de caracteres; chaque ordinateur etant precede de
Function GetMyNeighBourHood As String Dim Fs, Fichier, LigneLue as String Dim MyNetWorkList as string MyNetWorkList="" Set Fs=CreateObject("Scripting.FileSystemObject") If Fs.FileExists("C:TOTOTOTO.TXT") Then Fs.DeleteFile "C:TOTOTOTO.TXT" Shell "C:TOTOTOTO.BAT" WaitForFile: If Not Fs.FileExists("C:TOTOTOTO.TXT") then Goto WaitForFile If FileLen("C:TOTOTOTO.TXT")=0 Then goto WaitForFile Set Fichier=Fs.OpenTextFile("C:TOTOTOTO.TXT") Do LigneLue=Fichier.ReadLine If LigneLue="La liste est vide." then Exit Do If Left(LigneLue,2)="" then if MyNetWorkList="" then MyNetWorkList=Lignelue Else MyNetWorkList=MyNetWorkList & Chr(10) & chr(13) & lignelue End if End if Loop Until Fichier.AtEndOfStream=True Fichier.Close Msgbox mynetworklist GetMyNeighBourHood=MyNetWorkList End Function
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Merci.
reno
Ca marche super merci
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
Merci.
Ca marche super merci
Bonjour,
Comment faire pour obtenir la liste des poste présent dans voisinage reseau
ou dans le groupe de travail un Dir(quelquechose oui mais quoi)?, ...
