[Résolu] WMI requete WQL

WMI requete WQL [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 09-10-2007 à 11:32:47    

Bonjour a tous,
 
Je voudrai récupérer le nombre de connexions sur mes partages sur un de mes serveurs mais en évitant les doublons... (je fais ma requete par adresse ip)
Le soucis qui se pose est que en WQL on ne peut pas faire de Select Distinct..... en wql
 
Quelqu'un aurait une idée pour moi ???
 
Merci de votre aide


Message édité par alexolait le 12-10-2007 à 11:23:29
Reply

Marsh Posté le 09-10-2007 à 11:32:47   

Reply

Marsh Posté le 12-10-2007 à 11:22:57    

Pour ceux que ça interesse j'ai trouvé une façon detournée sans passer par une requete wql....
J'ai trouvé comment compter le nombre de session qui ont des fichiers ouvert sur un serveur Windows 2000 / 20003.
 
Le script que j'ai écrit est à la base pour le plugin NSCLIENT++ de Nagios... c'est pour cela qu'a la fin je mets des conditions en fonction du résultat obtenu.
Les lignes qui commencent par REM sont des lignes commentées.Si on enleve ces commentaires on aura le nom d'utilisateur, l'ip ... en sortie
Pour utiliser ce script, il faut l'enregistrer avec l'extension .wsf
Pour l'utiliser il faut mettre les arguments du seuil warning et critique
Exemple: NbSessions.wsf <arg1> <arg2>  
Arg1 et Arg2 doivent des chiffres (nb de sessions). Arg1 pour le seuil warning et Arg2 pour le seuil critique
Pour l'executer il faut utiliser l'invite de commande.
En esperant qu'il serve a quelqu'un un jour.... :)  
 

Code :
  1. <job>
  2. <script language="VBScript">
  4. strComputer = "."
  5. strWarningValue = Wscript.Arguments(0)
  6. strCriticalValue = Wscript.Arguments(1)
  9. SessionCount = 0
  11. Const intOK = 0
  12. Const intWarning = 1
  13. Const intCritical = 2
  16. Dim objComputer, objSession
  19. Set objComputer = GetObject("WinNT://" & strComputer & "/LanManServer" )
  21. For Each objSession in objComputer.Sessions
  22. REM strOutput = strOutput & "Session Object Name: "& objsession.Name & vbCrlf
  23. REM strOutput = strOutput & "Session Computer Name: "& objsession.Computer & vbCrlf
  24. SessionCount = SessionCount + 1
  25. REM strOutput = strOutput & "Seconds connected: " & objSession.ConnectTime & vbCrlf
  26. REM strOutput = strOutput & "Seconds Idle: "& objsession.IdleTime & vbCrlf
  27. REM strOutput = strOutput & "Connected User:"& objsession.USer & vbCrlf
  28. REM strOutput = strOutput & vbCrlf
  29. Next
  31. SessionCount = Int(SessionCount)
  32. strWarningValue = Int(strWarningValue)
  33. strCriticalValue = Int(strCriticalValue)
  35. If ( SessionCount > strWarningValue ) or ( SessionCopunt > strCriticalValue ) Then
  37.   If (SessionCount > strCriticalValue) Then
  38.      Wscript.Echo "CRITICAL: NB of Sessions is " & SessionCount & "."
  39.      Wscript.Quit(intCritical)
  40.   End If
  43.   If (SessionCount > strWarningValue) Then
  44.     Wscript.Echo "WARNING: NB of Sessions is " & SessionCount & "."
  45.     Wscript.Quit(intWarning)
  46.   End If
  48. End If
  50. Wscript.Echo "OK: NB of Sessions is " & SessionCount & "."
  51. Wscript.Quit(intOK)
  53. </script>
  54. </job>


Message édité par alexolait le 12-10-2007 à 11:24:45
Reply

Marsh Posté le 11-12-2007 à 19:19:21    

toi t'es un bon :)
c'est cool !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed