Fernando
15 de Enero del 2004

'para poner en un html como script de visual basic

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, vbdefaultbutton
Dim itemtype

p1 ="HKEY_CURRENT_USERControl Paneldesktop"

n = ws.RegRead(p1 & "wallpaper")
t = "Tu fondo de pantalla actual es:"
cn = InputBox("Tu fondo de pantalla es:", t, n)