Station restée allumée

Principe :

Pour obtenir la liste des PCs à tester on utilise un fichier DNS, cela permet de tester aussi les machine en workgroup et sous novell.

En fait peut importe l'origine du fichier source des stations (WINS, DNS, Pong.exe), il sert de base à la recherche des stations et on adapte le script ci dessous

'-----------------------------------------------------------------------
' Recherche des micros allumés sur le réseau
' Liste des micros obtenus lecture de fichier dns
' Crée un fichier de sortie au format csv
' nom_micro;en marche !
' V 0.1
' pierre choffardet LPR Voillaume
'------------------------------------------------------------------------
Option explicit

Const ForReading = 1, ForWriting = 2, ForAppending = 8
DIM objFSO, objTextFile ,objF
DIM PC, sordi

CONST strDNS = "C:\dns2.txt" 'Nom du fichier DNS
Const sUnc="c:\PCSDNS.LST" ' fichier de sortie
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile(strDNS, ForReading)

Set objF=objFSO.openTextFile(sUnc,ForAppending)

'lecture du fichier dns
Do While objTextFile.AtEndOfStream <> True
PC = Left(objTextFile.Readline, 16)
sOrdi=trim(PC)
' ping
IF ping(sOrdi)= 0 Then
' écriture dans le fichier de sortie
objF.WriteLine(sOrdi &"; En marche !")
End If
Loop
objF.Close

Function ping(computer)
If computer="" Then
ping = 1
Else
Dim PINGIT, WshShell
set WshShell = CreateObject ("Wscript.shell")
PINGIT="cmd /c ping.exe " & computer & " | find /I " & CHR(34) & "octets=" & CHR(34)
ping = WshShell.Run(PINGIT,1,True)
End If
End Function