Set WshShell = CreateObject( "WScript.Shell" )

strRoot = "HKCU"
strPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strName = "ProxyEnable"

strTarget = strRoot & "\" & strPath & "\" & strName

WshShell.RegWrite strTarget, 1, "REG_DWORD"
Call WshShell.Run( "YDM.exe", , True )
WshShell.RegWrite strTarget, 0, "REG_DWORD"