Déplacer et paramétrer la barre des taches / le menu démarrer et explorateur

Soyez le premier à donner votre avis sur cette source.

Vue 6 481 fois - Téléchargée 326 fois

Description

Ce script VBS a pour but premier de placer automatiquement le menu Démarrer / Barre des tâches sur le bord supérieur de l'écran.

Après de longues recherches et un peut par hasard, j'ai enfin trouvé le moyen de placer automatiquement le Menu Démarrer en haut de l'écran tout en bloquant ses propriétés à l'utilisateur.

Par la même occasion, le paramétrage par défaut de l'explorateur et autres est traité.

Source / Exemple :


Const HKEY_CURRENT_USER = &H80000001
 Dim oReg, ValeurCle, WshShell

  'Gestion position et paramèters du menu démarrer
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  'Lecture dans la base de registre
  oReg.GetBinaryValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", ValeurCle

  Set WshShell = CreateObject("WScript.Shell")
  'Paramètres globaux
  WshShell.Run "REGEDIT /S Bases.reg", 1, True
    
  If ValeurCle(8) <> &H0 Or ValeurCle(12) <> &H1 Then
    'Paramètres
    ValeurCle(8) = &H0  'Paramètres d'affichage
    ValeurCle(12) = &H1 'Position de la barre des tâches 0:Gauche, 1:Haut, 2:Droite, 3:bas
  
    'Inscription dans la base de registre
    oReg.SetBinaryValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", ValeurCle
    Set oReg = Nothing

    'Terminaison du processus Explorer pour redémarrage avec nouveau paramètres
    For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='explorer.exe'")
      Process.Terminate (0)
    Next
    WshShell.Run "EXPLORER", 3, False
  End If

Conclusion :


Petite remarque : Joint le fichier des paramètres (Bases.reg) de base à personnaliser à souhait.

Merci de me laisser vos commentaires.

++

MS1969

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

DGI972
Messages postés
3
Date d'inscription
samedi 5 mai 2007
Statut
Membre
Dernière intervention
23 février 2013
-
Super, j'ai lancer ton vbscript et maintenant ma barre est verrouillée et elle est en haut, je ne peux plus la modifier.
Merci.
Tu peux mettre le vbscript qui annule toute les modifs STP ?
Merci d'avance
vbnino
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010
-
Salut!

pour revenir en arrière :

Const HKEY_CURRENT_USER = &H80000001
Dim oReg, ValeurCle, WshShell

'Gestion position et paramèters du menu démarrer
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
'Lecture dans la base de registre
oReg.GetBinaryValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", ValeurCle

Set WshShell = CreateObject("WScript.Shell")
'Paramètres globaux
WshShell.Run "REGEDIT /S Bases.reg", 1, True

If ValeurCle(8) <> &H0 Or ValeurCle(12) <> &H3 Then
'Paramètres
ValeurCle(8) = &H0 'Paramètres d'affichage
ValeurCle(12) = &H3 'Position de la barre des tâches 0:Gauche, 1:Haut, 2:Droite, 3:bas

'Inscription dans la base de registre
oReg.SetBinaryValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", ValeurCle
Set oReg = Nothing

'Terminaison du processus Explorer pour redémarrage avec nouveau paramètres
For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='explorer.exe'")
Process.Terminate (0)
Next
WshShell.Run "EXPLORER", 3, False
End If

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.