$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;