🚀 go-pugleaf

No problem, please note that this is taken directly from our installer dll 
so there are some funny throw statements to break the execution - for 
simplicity sake.  I needed to pass back an exact reason code for any failure 
so I just raised an EAbort exception and used the help id to reply the error 
code back - it's a bit sloppy but worked in this case.

      AnsiString szComputerName;
      szComputerName.SetLength(MAX_COMPUTERNAME_LENGTH + 1);
      DWORD dwSize = szComputerName.Length();
      if (GetComputerName(szComputerName.c_str(), &dwSize))
      {
         szComputerName = szComputerName + "$";

         PSID pSID           = NULL;
         DWORD dwSIDSize     = 0;
         TCHAR cDomain[1024] = {0};
         DWORD dwDomainSize  = 1024;
         SID_NAME_USE AccountType;
         LookupAccountName(NULL, szComputerName.c_str(), NULL, &dwSIDSize, 
cDomain, &dwDomainSize, &AccountType);
         if (dwSIDSize)
         {
            pSID = (PSID)GlobalAlloc(GPTR, dwSIDSize);
            if (pSID)
            {
               if (LookupAccountName(NULL, szComputerName.c_str(), pSID, 
&dwSIDSize, cDomain, &dwDomainSize, &AccountType))
               {
                  char *cStringSID;
                  if (ConvertSidToStringSid(pSID, &cStringSID))
                  {
                     // Copy AnsiString to char buffer - potential for 
buffer overflow with strncpy
                     strncpy(p_cCompHash, szSIDHash.c_str(), 
szSIDHash.Length());

                     LocalFree(cStringSID);
                     cStringSID = NULL;
                     GlobalFree(pSID);
                     pSID = NULL;
                     iRtn = 0;
                  }
                  else
                  {
                     GlobalFree(pSID);
                     pSID = NULL;
                     throw EAbort("", -6);         // - SID convertion 
error....
                  }
               }
               else
               {
                  GlobalFree(pSID);
                  pSID = NULL;
                  throw EAbort("", -5);         // - SID Lookup error
               }
            }
            else
               throw EAbort("", -4);         // - SID allocation error
         }
         else
            throw EAbort("", -3);         // - Initial look-up error
      }
      else
         throw EAbort("", -2);         // - Error geting the computers 
name...

Works great for me.


"TMBTC" <jkofsky@bellsouth.net> wrote in message 
news:44bc33bf$1@newsgroups.borland.com...
> Could you paot the code segment for this please?
> TMBTC
>