$User=Win32::OLE->GetObject("WinNT://wsi/$username", "user");