Function changeProfile(user)
		On Error Resume Next
		login=user.get ("sAMAccountName")
			Wscript.Echo i & " Changing profile for: " & login
			Wscript.Echo "Old profile path: " & user.profile
			user.profile = "\\server\profiles$\" & login
			user.setinfo
			Wscript.Echo "New profile path: " & user.profile
			if Err.Number<> 0  then
				WScript.Echo "Error:" & Err.Number & " Cannot change profile for user " & login
				WScript.Echo Err.description
				Err.Clear
				Exit Function
			end If
			changeProfile=True
			WScript.Echo "<---------------------------------------------------->"
	End Function