salut a tous
dans l'entreprise on a un reseau lan,et je voudrait creer un prog en visual
basic 6.0
pour visualiser toute les station ce qui me permetterai de connaitre les
adresses ip libre et celle qui sont prise.
Le probleme est que je nul en prog et sur le net j'ai trouver des programmes
qui ressemble beaucoup a ce je veux faire mais soit il ne marche pas ou c pas
ca
alors si quelqu'un aurait une piste ou un prog a me proposer ce serai
vraiment sympa.
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
Stéphane [MS]
Bonjour,
Sur Script Center, vous pouvez trouver différents scripts : http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx
Par exemple, si vous connaissez les noms de vos ordinateurs : ========================================= strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02" aMachines = split(strMachines, ";")
For Each machine in aMachines Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._ ExecQuery("select * from Win32_PingStatus where address = '"_ & machine & "'") For Each objStatus in objPing If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then WScript.Echo("Computer " & machine & " is not reachable") End If Next Next ========================================== Ne serait-il pas plus simple de mettre en oeuvre un serveur DHCP et de passer vos stations en adressage dynamique ?
Cdlt Stéphane "squat541" a écrit dans le message de news:
salut a tous dans l'entreprise on a un reseau lan,et je voudrait creer un prog en visual basic 6.0 pour visualiser toute les station ce qui me permetterai de connaitre les adresses ip libre et celle qui sont prise. Le probleme est que je nul en prog et sur le net j'ai trouver des programmes qui ressemble beaucoup a ce je veux faire mais soit il ne marche pas ou c pas ca alors si quelqu'un aurait une piste ou un prog a me proposer ce serai vraiment sympa.
Bonjour,
Sur Script Center, vous pouvez trouver différents scripts :
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx
Par exemple, si vous connaissez les noms de vos ordinateurs :
========================================= strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02"
aMachines = split(strMachines, ";")
For Each machine in aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& machine & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo("Computer " & machine & " is not reachable")
End If
Next
Next
==========================================
Ne serait-il pas plus simple de mettre en oeuvre un serveur DHCP et de
passer vos stations en adressage dynamique ?
Cdlt
Stéphane
"squat541" <squat541@discussions.microsoft.com> a écrit dans le message de
news: 88AF5114-43C0-4A91-B1B3-F39C20069FDF@microsoft.com...
salut a tous
dans l'entreprise on a un reseau lan,et je voudrait creer un prog en
visual
basic 6.0
pour visualiser toute les station ce qui me permetterai de connaitre les
adresses ip libre et celle qui sont prise.
Le probleme est que je nul en prog et sur le net j'ai trouver des
programmes
qui ressemble beaucoup a ce je veux faire mais soit il ne marche pas ou c
pas
ca
alors si quelqu'un aurait une piste ou un prog a me proposer ce serai
vraiment sympa.
Sur Script Center, vous pouvez trouver différents scripts : http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx
Par exemple, si vous connaissez les noms de vos ordinateurs : ========================================= strMachines = "atl-dc-01;atl-win2k-01;atl-nt4-01;atl-dc-02" aMachines = split(strMachines, ";")
For Each machine in aMachines Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._ ExecQuery("select * from Win32_PingStatus where address = '"_ & machine & "'") For Each objStatus in objPing If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then WScript.Echo("Computer " & machine & " is not reachable") End If Next Next ========================================== Ne serait-il pas plus simple de mettre en oeuvre un serveur DHCP et de passer vos stations en adressage dynamique ?
Cdlt Stéphane "squat541" a écrit dans le message de news:
salut a tous dans l'entreprise on a un reseau lan,et je voudrait creer un prog en visual basic 6.0 pour visualiser toute les station ce qui me permetterai de connaitre les adresses ip libre et celle qui sont prise. Le probleme est que je nul en prog et sur le net j'ai trouver des programmes qui ressemble beaucoup a ce je veux faire mais soit il ne marche pas ou c pas ca alors si quelqu'un aurait une piste ou un prog a me proposer ce serai vraiment sympa.
