К примеру, так (заменяя в реестре)
Sub ReestrAdd()
Dim Wsh As Object
Set Wsh = CreateObject("WScript.Shell")
Wsh.RegWrite "HKCU\Environment\temp", "%USERPROFILE%\Local Settings\NoTemp"
End Sub
Значение переменной Temp, в данном случае будет равно "%USERPROFILE%\Local Settings\NoTemp", где %USERPROFILE%=C:\documents and settings\пользователь, но вы можете заменить на любое другое.
Насчет 97-акса не знаю, а в 2003 работает.