Bonjour à toutes et à tous;

je cherche depuis quelques temps déjà, un script pour pinger une liste des Postes et le résultat et redirigé vers un fichier dans lequel on obtient l'adresse IP du poste le statut du Ping "En Ligne ou Hors Ligne" + le login de l'utilisateur actuel.

J'ai commencé à le créer mais il me manque les fonctions "username".
 D'autre part dans le script que j'ai créé la requête bloque si le poste ne répond pas au Ping donc mon résultat n'est pas complet, mon souhait et que si le PC n'est pas connecter ma requête passe au suivant afin de traiter toute ma liste. 

Voici le script que j'ai commencé à créer.

Merci d'avance pour votre réponse.

###################################################################################
Set shell = WScript.CreateObject("WScript.Shell")
set wshshell = wscript.createobject("wScript.shell")
set fso = createobject("scripting.filesystemobject")
curdir = wshshell.currentdirectory
set f = fso.OpenTextFile("D:\Test\PingGpo1.txt" ,1)
set f1 = fso.CreateTextFile("D:\Test\resultatping.txt" ,1)
f1.writeLine("Poste;ping;IP;username")
 strPoste = f.Readline
 Ping = WshShell.Run("ping -n 2 " & strPoste, 0, True)
 Select Case Ping
  Case 0
   strRPing = "En Ligne "
   Set objWMIService = GetObject ("winmgmts:\\" & strPoste & "\root\cimv2")
   Set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    For Each objItem in colItems
    'Wscript.Echo objItem.MACAddress
    For Each strAddress in objItem.IPAddress
     strRPing = strRPing & ";" & strAddress
    Next
   Next   
  Case 1
   strRping = "Hors Ligne"
 End Select
  strPing = strPoste & ";" & strRping & ";" & strSessionName
 f1.writeLine(strPing)
 
Loop

f.close()
f1.close()
##############################################################################""

sadallah samir 

Bonsoir,

Plusieurs possibilités pour tester la connexion d'un serveur.

exemple1:
' Vérification connexion réseau
' sHost = IP ou hostname
' iPings = nombre de tentative de ping
' iTo = attente en millisecondes entre 2 pings
'
Dim oShell, sHost, iPings, iTO
Set oShell  = CreateObject("WScript.Shell")
sHost    = "90.48.154.144"    'passerelle  ou IP   
iPings = 2
iTO    = 750

if IsConnectable(sHost, iPings, iTo) = False then
     ' On quitte si on est hors du réseau interne
     MsgBox "hors réseau"
     WScript.Quit -1
end If
Set oShell = Nothing
Set ExCmd = Nothing

Function IsConnectable(sHost,iPings,iTO)
     Set ExCmd = oShell.Exec("ping -n " & iPings & " -w " & iTO & " " & sHost)
    
     Select Case InStr(ExCmd.StdOut.Readall,"perte 0%")
            Case 0    IsConnectable = False
            Case Else IsConnectable = True
     End Select

End Function
MsgBox "connecté"


exemple2 (et 3):
'   Set Shell = WScript.CreateObject("WScript.Network")
strComputer = InputBox("saisir adresse IP",,"90.48.154.144")
'   strComputer = Shell.ComputerName
Counter = 0
On Error Resume Next

While Counter < 5   ' Teste la valeur du compteur.
      Counter = Counter + 1
      Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\")._
          ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
      For Each objStatus in objPing
          If objStatus.Statuscode = 0 Then
             result = result & vbCr & "essai " & Counter & vbTab & "status= " & _
                         vbTab & objStatus.Statuscode & vbTab & "repond au ping !"
             else
             result = result & vbCr & "essai " & Counter & vbTab & "status= " & _
                         vbTab & objStatus.StatusCode & vbTab & "n'a pas repondu au ping!"
          End If
      Next
      Set objPing = Nothing
Wend   ' Fin de la boucle While lorsque Counter > 5.

'   Set Shell = Nothing

MsgBox result,,strComputer




jean-marc

Merci pour tes conseilles , cette méthode est intéressante .
Le but de ma demande est  de faire un script qui ping une liste des postes donnés et de me créer un fichier dans lequel il m'inscrit l'état du poste son adresse IP et le nom de l'utilisateur connecter a l'instant T


Merci

sadallah samir

 Bonjour,

Et sous quelle forme est  << qui ping une liste des postes donnés >> ???


jean-marc

Alors comme indiquer dans mon script initial si vous regarder j'ai mis un chemin avec le nom d'un fichier qui contient la liste des postes
"set f = fso.OpenTextFile("D:\Test\PingGpo1.txt" ,1)
set f1 = fso.CreateTextFile("D:\Test\resultatping.txt" ,1)
f1.writeLine("Poste;ping;IP;username")
 strPoste = f.Readline"

le script  va le parcourir ligne par ligne et a chaque ligne il lance un ping ensuite il m'écrit le résultat dans un autre fichier  ce dernier sera en format .TXT

merci pour votre aide



sadallah samir

Joyeux Noël et bonne année

sadallah samir

Bonne année meilleurs v½ux pour cette année 2009, je vous remercie pour votre aide, je vais adapter ce script, afin de le tester.

Je ne veux pas passer pour un lourd, mais je suis sur un petit projet qui consiste a mettre en place un fichier Excel avec des marcos qui permet de créer des comptes utilisateurs avec tous les informations qui vont avec "Nom, Prénom, Login, MDP, OU, adresse de messagerie, N°ID, script de connexion, et lecteur perso", avez vous un exemple de ce fichier, cela m'intéresse beaucoup.
 
Encore merci

Sadallah Samir