Discussion :

[ciscoreseau]

Salam ,

est ce qu'il existe un script vbs pour faire un ping sur le nom d'ordinateur de plusieurs poste qui sont situer dans un fichier texte, et d'avoir leurs adresse ip, dans un fichier sous format csv, avec comme info: nom du poste, adresse ip

pour ceux que le ping n'a pas réussi, d'avoir comme résultat :"pas de réponse"

Merci beaucoup

[hackoofr]

et bienvenue dans DVP
Inspirez-vous de cette discussion et pondre votre code et si vous avez des problèmes alors poster votre code modifié et

[ciscoreseau]

Merci pour votre réponse,
je dois vous dire que je suis null en coté programmation, je ne sais pas comment spécifier que je veux comme résultat l'adresse ip seulement et non pas le résultat du test complet, voila ce que j'ai pu faire:*

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
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Const ForReading = 1
Const ForWriting = 2 
Const ForAppending = 8
 
Set objFile = objFSO.OpenTextFile("Liste_Machines.txt", ForReading, True)
 
Set objRes = objFSO.OpenTextFile("Histo_ping.txt", ForAppending,True)
 
Do While objFile.AtEndOfStream <> True  
 
	Machine = objFile.ReadLine
 
	'objRes.WriteLine (Machine)
 
	Set WSHShell = CreateObject("WScript.Shell")
	Set WshExec = WshShell.Exec("ping -n 1 -w 200 " & Machine)
 
	PingResult = LCase(WshExec.StdOut.ReadAll)
 
 
	If InStr(PingResult, "octets=") Then
		'Ping OK
		objRes.WriteLine (Machine & PingResult) 
	Else
		'Ping NOK
		objRes.WriteLine (Machine & " NOK")
	End If
 
 
Loop

Merci beaucoup pour votre aide

[hackoofr]

J'ai modifié un code déjà existant , donc à tester chez vous, en tenant compte qu'il existe déjà un fichier texte nommé : LISTE_PC.txt avec ce même script

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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
'*** Définition des variables globale ***
 
Titre = "Ping de postes à distance @ Developpez.com"
Const ForReading = 1, ForWriting = 8
Public StrComputer, onlinestate, Fichier_log, WSHShell, Fichier_tmp, msg()
Dim oFSO, oFl, ecr, lect, ComputerName
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
 
' *** Définition des variables d'environnement ***
 
Liste_pc = "LISTE_PC.txt"
Fichier_tmp = "LISTE_TMP.txt"
Fichier_log = "RAPPORT_PING.txt"
 
' *** Définition des variables locales ***
 
Redim msg(7)
msg(0) = "__________________________________________"
msg(1) = "Liste des postes introuvable " & dblquote(Liste_pc)
msg(2) = "Aucun poste dans la liste " & dblquote(Liste_pc)
msg(3) = "Début du script : "
msg(4) = "Script interrompu : "
msg(5) = "Fin du script : "
msg(6) = " : Poste inaccessible"
msg(7) = " : Accessible"
 
 
' *** Début du Script ***
 
' Test Fichier_Log existe
If Not oFSO.FileExists(Fichier_log) Then oFSO.CreateTextFile(Fichier_log)
Date_Heure = now
Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write msg(3) & Date_Heure & VbCrLf & VbCrLf : ecr.Close
 
' Test Liste_Pc existe
If Not oFSO.FileExists(Liste_Pc) Then
	Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write msg(1) & VbCrLf : ecr.Close : Call fin_Prog : WScript.Quit
End If
 
' Test Liste_Pc non vide
Set oFl = oFSO.GetFile(Liste_Pc)
If oFl.Size = 0 Then
	Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write msg(2) & VbCrLf : ecr.Close : Call fin_Prog : WScript.Quit
End If
 
' Création Fichier_tmp
if oFSO.FileExists(Fichier_tmp) Then oFSO.DeleteFile Fichier_tmp, True
oFSO.CreateTextFile(Fichier_tmp)
 
' Correction de Liste_Pc en Fichier_tmp
 
date_heure = now
Set lect = oFSO.OpenTextFile(Liste_Pc, ForReading)
Set ecr = oFSO.OpenTextFile(Fichier_tmp, ForWriting)
While Not lect.AtEndOfStream
	Texte = lect.ReadLine
	Texte = Trim(Texte)
	prem_car = lcase(left(Texte,1))
	if ( Len(Texte) > 0 ) and InStr("'", prem_car) = 0 Then
		ecr.Writeline Texte
	End if	
Wend
lect.Close
ecr.Close
 
' Test Fichier_tmp non vide
 
Set oFl = oFSO.GetFile(Fichier_tmp)
If oFl.Size = 0 Then
	Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write msg(2) & VbCrLf : ecr.Close : Call fin_Prog : WScript.Quit
End If
 
' Lecture du Fichier_tmp
 
Set lect = oFSO.OpenTextFile(Fichier_tmp, ForReading)
st = lect.ReadAll
ComputerName = Split(st, vbCrLf)
lect.Close
 
For i = lbound(ComputerName) to ubound(ComputerName) -1
	strComputer = ComputerName(i)
	Call Online
	If onlinestate = 0 Then
		Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write ComputerName(i) & msg(6) & VbCrLf : ecr.Close
	Else
		Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) : ecr.Write ComputerName(i) & msg(7) & VbCrLf : ecr.Close
	End if
Next
 
' *** Fin du script
 
Date_Heure = now
Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) :  ecr.Write VbNewLine & msg(5) & Date_Heure & VbCrLf & msg(0) & VbCrLf : ecr.Close
if oFSO.FileExists(Fichier_tmp) Then oFSO.DeleteFile Fichier_tmp, True
WSHShell.Run ("Notepad.exe " & Fichier_log)
WScript.Quit
 
' *** Sous-Fonction Fin programme
 
Sub fin_prog
	Date_Heure = now
	Set ecr = oFSO.OpenTextFile(Fichier_log, ForWriting) :  ecr.Write VbNewLine & msg(4) & Date_Heure & VbCrLf & msg(0) & VbCrLf : ecr.Close
	if oFSO.FileExists(Fichier_tmp) Then oFSO.DeleteFile Fichier_tmp, True
	WSHShell.Run ("Notepad.exe " & Fichier_log)
End Sub
 
' *** Sous-Fonction Ping
 
Sub online
	Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & StrComputer & "'")
	For Each objStatus in objPing
		If objStatus.Statuscode = 0 Then onlinestate = 1 else onlinestate = 0
	Next
End Sub
 
 
' *** Fonction Guillemets
 
Function dblquote(strIn)
	dblquote = Chr(34) & strIn & Chr(34)
End Function

[ciscoreseau]

Merci beaucoup pour votre aide,

mais ce que je veux c'est d'avoir l'adresse ip, ce script m'affiche accessible ou non, ce que je veux c'est un truc du genre : nom_d'ordinateur ; adresse_ip


Merci beaucoup

[hackoofr]

mais ce que je veux c'est d'avoir l'adresse ip, ce script m'affiche accessible ou non, ce que je veux c'est un truc du genre : nom_d'ordinateur ; adresse_ip

Voici une petite fonction qui sert à extraire l'adresse ip de la hôte
Donc essayez de l'intégrer dans le script principal

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
ExtractIP("Localhost")
ExtractIP("www.yahoo.fr")
ExtractIP("www.google.fr")
 
Sub ExtractIP(PC)
    Titre = "Adresse ip de la hôte © Hackoo"
    Set Ws = CreateObject("wscript.Shell")
    Command = "Cmd /c ping "& PC &" > c:\pingtest.txt"
    Resultat = Ws.Run(Command,0,True)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    If oFso.FileExists("c:\pingtest.txt") Then
        Set f = oFso.OpenTextFile("c:\pingtest.txt",1)
        Data = f.ReadAll
        f.Close
    Else
        MsgBox "une erreur s'est produite lors de la lecture du fichier c:\pingtest.txt",16,"Erreur de Lecture du fichier"
        Exit Sub
    End If
    Set objRegex = new RegExp
    objRegex.Pattern = "\b((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)\b"
    objRegex.Global = True
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    MsgBox PC & ";"& Matches(0),64,Titre
End Sub