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


##</code><code>##

$User=Win32::OLE-> GetObject("WinNT://wsi/$username", "user");
#Reports error - not allowed $User->HomeDirectory="\\server\homeshare";
#Doesn't Work $update=$User->HomeDirectory("\\server\homeshare");
$set=$update->SetInfo;