$objUser = Win32::OLE->GetObject("WinNT://$server/$pworduser")