Set User = GetObject("WinNT://Domain/" & username & ",user")
	User.HomeDirectory = "\\server\homeshare"
	User.SetInfo