Option Explicit
Dim objShell, strDesktop, strModify, strDelete
set objShell = CreateObject("WScript.Shell")
strDesktop = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell FoldersDesktop"
strModify = objShell.RegWrite(strDesktop,"%SystemDrive%docks","REG_EXPAND_SZ")