Je fais en ce moment un programme pour surveiller 14 afficheurs de salle de réunion.
J’ai une commande WMI en mode console pour vérifier les Process qui tournent sur les postes à distance (en particulier celui d’Internet Explorer).
Je voudrais à présent connaître l’URL de la page qui s’affiche dans Internet Explorer sur le poste a distance pour pouvoir vérifier celle ci.
Je n’ai pas trouver la commande WMIC qui va bien pour cela, si quelqu’un la connaît, merci à lui.
Koumla
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
#include <AutoItConstants.au3>
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)
Opt("GUIDataSeparatorChar", "_")
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
opt("TrayAutoPause",1)
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
$commande_wmic = "PROCESS GET Name"
$output = @scriptdir & "\ListeApps.txt"
$login = "login_admin"
$passw = "mot_de_passe"
wmic("nom_du_pc")
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
Func wmic($nom_machine)
$cnx = "wmic /node:" & $nom_machine & " /user:" & $login & " /password:" & $passw & " " & $commande_wmic
ConsoleWrite($cnx & @CRLF)
$pid=Run(@ComSpec &' /c ' & $cnx, "",@SW_HIDE ,$STDOUT_CHILD)
$line=""
While 1
$line &= StdoutRead($pid)
If @error Then ExitLoop
Wend
ConsoleWrite($line & @CRLF)
$out=@ScriptDir&"\ipconfig_out.txt"
If FileExists($out) Then FileDelete($out)
FileWrite($out,$line)
$Position = StringInStr($line, "iexplore")
If FileExists($out) Then FileDelete($out)
If $Position = 0 Then
ConsoleWrite("Iexplore non present : " & $Position & " Erreur" & @CRLF)
Else
ConsoleWrite("Iexplore est present : " & $Position & " OK!" & @CRLF)
EndIf
EndFunc
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
#include <AutoItConstants.au3>
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)
Opt("GUIDataSeparatorChar", "_")
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
opt("TrayAutoPause",1)
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
$commande_wmic = "PROCESS GET Name"
$output = @scriptdir & "\ListeApps.txt"
$login = "login_admin"
$passw = "mot_de_passe"
wmic("nom_du_pc")
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
Func wmic($nom_machine)
$cnx = "wmic /node:" & $nom_machine & " /user:" & $login & " /password:" & $passw & " " & $commande_wmic
ConsoleWrite($cnx & @CRLF)
$pid=Run(@ComSpec &' /c ' & $cnx, "",@SW_HIDE ,$STDOUT_CHILD)
$line=""
While 1
$line &= StdoutRead($pid)
If @error Then ExitLoop
Wend
ConsoleWrite($line & @CRLF)
$out=@ScriptDir&"\ipconfig_out.txt"
If FileExists($out) Then FileDelete($out)
FileWrite($out,$line)
$Position = StringInStr($line, "iexplore")
If FileExists($out) Then FileDelete($out)
If $Position = 0 Then
ConsoleWrite("Iexplore non present : " & $Position & " Erreur" & @CRLF)
Else
ConsoleWrite("Iexplore est present : " & $Position & " OK!" & @CRLF)
EndIf
EndFunc
; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
La même chose en .BAT.
Code : Tout sélectionner
@echo off
wmic /node:nom_du_pc /user:compte_admin /password:mot_de_passe /output:"C:\listeApps.txt" PROCESS GET Name
wmic quit
pause