AUTOIT–Bout de code

Posted on

Voici un post qui permettra de mettre des bouts de codes qui me serve régulièrement.

IMPRIMANTE RESEAU 1.0.8

J’ai développé il y a quelques années un programme permettant aux  utilisateurs de ma flotte de portable de gérer eux même l’installation des imprimantes en fonction du lieu où ils sont

image

$SERVEUR  = PEDA (Serevur d’impression)

$Printer_Select = IMP_RDC_C (Nom de partage de l’imprimante)

Installation d’une imprimante

RunWait(@SystemDir & "\RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /in /n\\" & $SERVEUR & "\" & $Printer_Select)

Mettre par defaut une imprimante

RunWait(@SystemDir & "\RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n \\" &$SERVEUR & "\" & $Printer_Select)

Supprimer une imprimante

RunWait(@SystemDir & "\RUNDLL32 PRINTUI.DLL,PrintUIEntry /q /dn /n\\" & $SERVEUR & "\”& $Printer_Select)

Vous trouverez ci-dessous le code source du programme

zip

AUDIO 2.0

C’est un programme développé en 2013 pour permettre à l’enseignant ou à l’élève d’activer le son sur son poste (réinitialisation de tous les paramètres audio du poste) ou de le couper

image

J’utilise un sous programme de chez Nirsoft qui est Nircmd

Les valeurs de $Niveau_Audio, $Niveau_Audio_L, $Niveau_Audio_R sont definies dans un fichier INI (mise à jour des niveaux par script)

$Niveau_Audio = IniRead($INI, "MAIN", "Volume", "")
$Niveau_Audio_L = IniRead($INI, "MAIN", "Volume_L", "")
$Niveau_Audio_R = IniRead($INI, "MAIN", "Volume_R", "")

Activation des niveaux à ON

Run($NIRCMD & " mutesysvolume 0 ", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " mutesysvolume 0 waveout ", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " mutesysvolume 0 master ", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " mutesysvolume 0 cd ", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " mutesysvolume 0 headphones ", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume " & $Niveau_Audio, @WorkingDir, @SW_HIDE)
RunWait($NIRCMD & " mediaplay 3000 " & $SON_ON, @WorkingDir, @SW_HIDE)

Réglage des niveaux sonores

Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " waveout", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " master", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " cd", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " synth", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " line", @WorkingDir, @SW_HIDE)
Run($NIRCMD & " setsysvolume2 " & $Niveau_Audio_L & " " & $Niveau_Audio_R & " headphones", @WorkingDir, @SW_HIDE)