Mixing
Change Wallpaper in Windows 7
3
I have written a small vbs script to download and change the registry for the current users wallpaper. however it copies and does the change but the wallpaper does not change... any ideas on errors in the below code?
Option Explicit
Dim WshShell, strValue, sleepTime, oFSO
strValue = "C:wallpaper.bmp"
sleepTime = 30000
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "\anspksnms1OSDScriptswallpaperwallpaper.bmp", "C:"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCUControl PanelDesktopWallpaper", strValue
WScript.Sleep sleepTime
WshShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
windows-7 vbscript
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
add a comment |
3
I have written a small vbs script to download and change the registry for the current users wallpaper. however it copies and does the change but the wallpaper does not change... any ideas on errors in the below code?
Option Explicit
Dim WshShell, strValue, sleepTime, oFSO
strValue = "C:wallpaper.bmp"
sleepTime = 30000
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "\anspksnms1OSDScriptswallpaperwallpaper.bmp", "C:"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCUControl PanelDesktopWallpaper", strValue
WScript.Sleep sleepTime
WshShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
windows-7 vbscript
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57
add a comment |
3
3
3
0
I have written a small vbs script to download and change the registry for the current users wallpaper. however it copies and does the change but the wallpaper does not change... any ideas on errors in the below code?
Option Explicit
Dim WshShell, strValue, sleepTime, oFSO
strValue = "C:wallpaper.bmp"
sleepTime = 30000
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "\anspksnms1OSDScriptswallpaperwallpaper.bmp", "C:"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCUControl PanelDesktopWallpaper", strValue
WScript.Sleep sleepTime
WshShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
windows-7 vbscript
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
I have written a small vbs script to download and change the registry for the current users wallpaper. however it copies and does the change but the wallpaper does not change... any ideas on errors in the below code?
Option Explicit
Dim WshShell, strValue, sleepTime, oFSO
strValue = "C:wallpaper.bmp"
sleepTime = 30000
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "\anspksnms1OSDScriptswallpaperwallpaper.bmp", "C:"
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.RegWrite "HKCUControl PanelDesktopWallpaper", strValue
WScript.Sleep sleepTime
WshShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
windows-7 vbscript
windows-7 vbscript
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
edited Mar 25 '12 at 22:14
Joel Coehoorn
311k96495730
311k96495730
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
asked Mar 7 '11 at 0:48
medoixmedoix
89211433
89211433
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57
add a comment |
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57
add a comment |
1 Answer
1
active
oldest
votes
0
I'm not much of a vbscripter, but maybe try this?
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f5214647%2fchange-wallpaper-in-windows-7%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
0
I'm not much of a vbscripter, but maybe try this?
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
add a comment |
0
I'm not much of a vbscripter, but maybe try this?
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
add a comment |
0
0
0
I'm not much of a vbscripter, but maybe try this?
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
I'm not much of a vbscripter, but maybe try this?
wshShell.run "cmd /c RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 1, True
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
edited Feb 15 '14 at 13:53
Taryn♦
192k47292356
192k47292356
answered Feb 15 '14 at 13:22
user2444243user2444243
44
answered Feb 15 '14 at 13:22
user2444243user2444243
44
answered Feb 15 '14 at 13:22
user2444243user2444243
44
44
add a comment |
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f5214647%2fchange-wallpaper-in-windows-7%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Have you tried changing "1, False" to "1, True"? The code in one of the answers uses True, experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/…
– Russell
Mar 7 '11 at 0:56
Also, there may be a reason you are using VB Script, but PowerShell may provide an alternative blogs.technet.com/b/heyscriptingguy/archive/2009/02/05/…
– Russell
Mar 7 '11 at 0:57