'CabPath.vbs - Change path to Windows Setup files.
'© Bill James - billjames.geo@yahoo.com - rev 7 Oct 1999
set s=wscript.createobject("wscript.shell")
t="Cab Path Tool":x="Windows Setup Files Path "
k="HKLM\software\microsoft\windows\currentversion\setup\sourcepath"
v=s.regread(k):i=inputbox("Windows currently uses "&v&_
" for adding options or changing configuration."&vbcr&_
vbcr&"To change, enter new path and click OK.",t,v)
if ucase(i)=ucase(v)or i=""then
m="NOT changed."
else s.regwrite k,i:m="CHANGED to "&i:end if:s.popup x&m,,t