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