Ask a question

Search Forums:

• Search Windows HPC Server Job Submission and Scheduling Forum
• Search All Windows HPC (High Performance Computing) Forums
• Search All Microsoft Forums

 

x64 program using the IScheduler API in HPC Pack 2008 SDK SP1 got errors

• Tuesday, October 27, 2009 10:30 AMSeifer Lin

   
  

  0

  Sign In to Vote

  Hi:
  
  Below is my program. My platform is Windows Server 2008 Enterprise edition + HPC Pack 2008 SP1 (x64) 
  For a x86 build of this program, everything works fine!
  But for a x64 build, I got the error at pJob->put_Name()
  The error is: job->put_Name() failed with 0x80040232.
  Can anyone help? Thanks very much!
  /////////////////////////////////////////////////////////////////////////////////
  
  #define _WIN32_DCOM

  #include <windows.h>
  #include <stdio.h>
  #include <comutil.h>
  #pragma comment(lib, "comsupp.lib")

  // The Microsoft.Hpc.Scheduler.tlb and Microsoft.Hpc.Scheduler.Properties.tlb type
  // libraries are included in the Microsoft HPC Pack 2008 SDK. The type libraries are
  // located in the "Microsoft HPC Pack 2008 SDK\Lib\i386" or \amd64 folder. Include the rename
  // attributes to avoid name collisions.
  #import <Microsoft.Hpc.Scheduler.tlb> named_guids no_namespace raw_interfaces_only \
      rename("SetEnvironmentVariable","SetHpcEnvironmentVariable") \
      rename("AddJob", "AddHpcJob")
  #import <Microsoft.Hpc.Scheduler.Properties.tlb> named_guids no_namespace raw_interfaces_only

  int main(int argc, char **argv)
  {
      CoInitializeEx(NULL, COINIT_MULTITHREADED);
      HRESULT hr = S_OK;
      IScheduler *pScheduler = NULL;
      // Get an instance of the Scheduler object.
      hr = CoCreateInstance(__uuidof(Scheduler), // CLSID_Scheduler,
                            NULL,
                            CLSCTX_INPROC_SERVER,
                            __uuidof(IScheduler), // IID_IScheduler,
                            reinterpret_cast<void **>(&pScheduler));
      if(FAILED(hr))
      {
          wprintf(L"CoCreateInstance() failed with 0x%x.\n", hr);
          if(pScheduler)
          {
              pScheduler->Release();
          }
          exit(-1);
      }
     
      hr = pScheduler->Connect(_bstr_t("localhost"));
      if(FAILED(hr))
      {
          wprintf(L"Connect() failed with 0x%x.\n", hr);
          pScheduler->Release();
          exit(-1);
      }
     
      ISchedulerJob *pJob = NULL;
      hr = pScheduler->CreateJob(&pJob);
      if(FAILED(hr))
      {
          wprintf(L"CreateJob() failed with 0x%x.\n", hr); fflush(stdout);
          pScheduler->Release();
          exit(-1);
      }

      hr = pJob->put_Name(_bstr_t("MyHPCJob"));
      if(FAILED(hr))
      {
          wprintf(L"job->put_Name() failed with 0x%x.\n", hr); fflush(stdout);
          pJob->Release();
          pScheduler->Release();
          exit(-1);
      }

      ISchedulerTask *pTask = NULL;
      hr = pJob->CreateTask(&pTask);
      if(FAILED(hr))
      {
          wprintf(L"CreateTask() failed with 0x%x.\n", hr); fflush(stdout);
          pJob->Release();
          pScheduler->Release();
          exit(-1);
      }

      hr = pTask->put_Name(_bstr_t("MyHPCTask"));
      if(FAILED(hr))
      {
          wprintf(L"task->put_Name() failed with 0x%x.\n", hr); fflush(stdout);
          pTask->Release();
          pJob->Release();
          pScheduler->Release();
          exit(-1);
      }

      hr = pTask->put_CommandLine(_bstr_t("hostname"));
      if(FAILED(hr))
      {
          wprintf(L"put_CommandLine() failed with 0x%x.\n", hr); fflush(stdout);
          pTask->Release();
          pJob->Release();
          pScheduler->Release();
          exit(-1);
      }

      hr = pJob->AddTask(pTask);
      if(FAILED(hr))
      {
          wprintf(L"AddTask() failed with 0x%x.\n", hr); fflush(stdout);
          pTask->Release();
          pJob->Release();
          pScheduler->Release();
          exit(-1);
      }

      hr = pScheduler->SubmitJob(pJob, _bstr_t(argv[1]), _bstr_t(argv[2]));
      if(FAILED(hr))
      {
          wprintf(L"SubmitJob() failed with 0x%x.\n", hr);
          pTask->Release();
          pJob->Release();
          pScheduler->Release();
          exit(-1);       
      }
  
      pTask->Release();
      pJob->Release();
      pScheduler->Release();

      return 0;
  }

  • Moved byAlex SuttonMSFT, OwnerTuesday, October 27, 2009 11:16 AM (From:Windows HPC Server Developers - General)
  •  
  • Reply
  • Quote