webcam et script

Decouverte d'outils:

L'outil CommandCam.exe est bien pratique si vous souhaitez prendre une photo en ligne de commande.

De base, il prend directement une image, mais plusieurs arguments peuvent être associés :
-spécifier la source si plusieurs webcam (/devname, /devserial, /devnum)
-la redondances toutes les x secondes (/delay)
-l'emplacement de l'image enregistrée (/filename)
 -mode silencieux (/quiet)

L'outil est très léger (64ko) et bien pratique.

On pourra l'associer à d'autres outils tel que PSexec pour l’exécuter à distance.
d'autre arguments peuvent être associés:
-le nom de la machine distante (\\computername)
-Copier l'executable sur la machine distante (-c c:\windows\system32\notepad.exe) (sans guillemets)
-ecraser l'executable si copie (-c -f)
pour plus de facilité, vous pouvez utiliser l'outil FEPSTOOLS

on met tout ça en VBS par exemple:

PCName = InputBox("Entrer le NOM de PC?","?","minint-6BKDFR5")
'connaitre l'emplacement du script
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile)
'Test ping machine
PING = objShell.Run("Ping.exe " & PCName, 0,TRUE)
'Msgbox "Resultat du PING " & PING
            if PING = 1 Then
                msgbox "Pc injoignable"
                WScript.Quit
            end if

Set objShell = CreateObject("WScript.Shell")
set objScriptExec = objShell.Exec("cmd.exe /k "&strFolder&"\PsExec.exe \\"&PCName&" -c -f "&strFolder&"\commandcam.exe /quiet /filename c:\capture.bmp")
'recuperer la capture:
set objScriptExec = objShell.Exec("cmd.exe /k move /Y \\"&PCName&"\c$\capture.bmp "&strFolder&"\"&PCName&"-%DATE:~0,2%%DATE:~3,2%%DATE:~6,2%-%time:~0,2%%time:~3,2%.bmp")

On pourra y associer des recherches via AD, une élévation de droits (via un autre script VBS ou avec PSEXEC)