$User=Win32::OLE->GetObject("WinNT://Domain/$user", "user");
		$User->{HomeDirectory}="$homedir";
		$user->SetInfo;