Discussion :

[vinsanseau]

Bonjour à tous,
Existe t il un code vbs permettant de modifier la couleur de fond d'ecran d'un bureau XP?
Merci de votre aide.

[ced600]

En utilisant Win_Desktop des objets WMI cela devrait être possible.
Regarde ici :
http://msdn2.microsoft.com/en-us/library/aa394121.aspx

[vinsanseau]

Merci pour le lien, je regarde si j'y trouve une solution. Je te tiens au courant.

Bravo pour la rapidité!!!

[ced600]

Je fais des tests alors qu'en j'en lance un je fouine sur le forum

[vinsanseau]

Les propriétés de Win_Desktop ne sont accessibles qu'en lecture seule.
As tu une autre solution? (au pire rundll32 ou un prog vb)
Merci d'avance

[RadPAT]

Salut,

tu peux aller sur le lien des scripting guys voir l'article "How Can I Change the Desktop Wallpaper to One of Six Pre-defined Selections?"

http://www.microsoft.com/technet/scr...7/hey0118.mspx

ils vont directement taper dans la BDR.

A++

[vinsanseau]

Salut RadPAT
La solution qu'ils proposent ne convient pas car il faut se reloguer pour que les modifs soient prises en compte (c'est justement dans le script d'ouverture de session que je veux initialiser la couleur). De plus, il ne s'agit pas du changement de couleur mais du changement de l'image de fond d'écran.
Merci quand même pour l'info.
A+

[omen999]

bonjour,
sans doute possible avec la fonction api SetSysColors dans user32.dll
mais beaucoup de personnes trouvent ça trop compliqué...
(un exemple d'appel api peut être consulté dans les contribs vbs)

[bouley]

Bonjour,

Ce script fonctionne trés bien sous XP Pro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = sWinDir & "\FOND COOP.BMP"
 
' Mise à Jour Registre
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper", "0"
oShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2"
 
'Mise à Jour
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

je tiens a préciser que ce script fonctionne uniquement avec un image au format BMP je n'ai pas encore trouvé du moins cherché pourquoi il ne fonctionne pas à 100 % avec un JPG

J'espère que cela convient.
@+

[vinsanseau]

Merci à tous
Je crois que je trouverai mon bonheur dans les deux dernières solutions proposées. Je les teste et je vous tiens informé.
Encore merci, a+.

[vinsanseau]

Question à 2 balles pour 'bouley'
La clé WallpaperStyle ne peut être définie qu' en centré(1) ou en étiré(2) d'où ma question: comment sélectionner le mode mosaique? quelle clé est à modifier?
Merci d'avance, a+

[bouley]

Bonjour,

réponse à x balles pour vinsanseau !

WallpaperStyle = 2, TileWallpaper = 0 -> Etiré
WallpaperStyle = 0, TileWallpaper = 0 -> Centré
WallpaperStyle = 0, TileWallpaper = 1 -> Mosaïque

tu me dis !

salut

[vinsanseau]

Je savais que c'était une question à 2 balles. La réponse était dans le script que tu m'as transmis.
Mon probleme est donc résolu: le fond d'écran des utilisateurs d'un domaine peut s'initialiser automatiquement dans le script de connexion en fonction du groupe auquel appartient l'utilisateur.
C'est mon premier post sur ce forum et je peux dire que je ne suis pas déçu.
Encore merci et bravo à tout le monde, a+.