'Special thanks to Michael McDonald

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
On Error Resume Next

Dim ws, n, cn, p, itemtype, t
p="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellImageView\"
p = p & "Timeout"
itemtype = "REG_DWORD"
n = ws.RegRead(p)

If Err.number <> 0 Then
  n = 10
Else
  n = left(n, len(n) - 3)
End If

t = "Change Slideshow Photo Display Time"
cn = InputBox("Enter length of time in seconds and click Ok. For the change to take effect in a particular folder, you must close the folder and then re-open it.", t, n)

If cn <> "" Then
  cn = cn & "000"
  ws.RegWrite p, cn, itemtype
End If