Script VBS para Alterar Papel de Parede da Área de Trabalho

A maioria usuários não percebe, mas Microsoft instala cópia do Visual Basic Script em todo Windows. Esta linguagem simples mas poderosa permite automatizar quase toda tarefa de usuário/admin, como alterar papel de parede.

Editor de Texto

Criar script VBS é fácil: só precisa editor simples como Notepad. Mas em vez de salvar com extensão ".TXT", deve salvar com ".VBS".

O Script

Cole no editor:

dim shell dim user
Set shell = WScript.CreateObject("WScript.Shell")
user = shell.ExpandEnvironmentStrings("%USERNAME%")
Set fso = CreateObject("Scripting.FileSystemObject")
windowsDir = fso.GetSpecialFolder(0)
wallpaper = "c:\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Altere "c:\wallpaper.jpg" para caminho e nome do papel de parede desejado.

Como Executar

Salve com extensão .VBS. Clique duas vezes no ícone na Área de Trabalho como qualquer programa.

• O que Faz a Placa Inversora de Backlight (Backlight Inverter Board)?
• Como Resetar Navegação Toyota (Apagar Dados Pessoais)