'* GIS environment variable script

On Error Resume Next '*Ignores all script errors

'*Sets use environment variable %HOME% to local user profile path
Set objShell = WScript.CreateObject ("WScript.Shell")
Set colUsrEnvVars = objShell.Environment("USER")
Set colProcessEnvVars = objShell.Environment("PROCESS")
ProfilePath = colProcessEnvVars("USERPROFILE")
colUsrEnvVars("HOME") = ProfilePath
colUsrEnvVars("NYSDOP") = "T:\Atlas\Aerial_Photo\2003\All"