如何通过 Enterprise 在 SAS 中使用 X 命令 运行 VB.NET

Question

我正在尝试使用以下 sas 程序通过 VB.NET（X 命令）将多个 rtf 文件转换为 pdf 文件。它在 PC sas 中完美运行。但是，在SAS Enterprise中使用它时，它没有给出任何错误信息，但没有执行pdf转换。

有人知道这里发生了什么吗？我应该怎么做才能使这项工作再次进行？谢谢！

    %macro vbs_pdf(rtfname=,pdfname=);
        data _null_;
             length vbscmd $ 400;
             file "temp.vbs";
             put 'Dim ObjWord';
             put 'set objWord = CreateObject("Word.Application")';
             put 'objWord.Visible = True';
             vbscmd='objWord.Documents.Open("'|| "&rtfname" ||'")';
             put vbscmd;
             vbscmd='objWord.ActiveDocument.SaveAs "'||"&pdfname"||'", 17';
             put vbscmd;
             put 'objWord.ActiveDocument.Close(False)';
             put 'objWord.Application.Quit(False)';
        run;options noxwait;
        data _null_;
             command="START /WAIT CScript temp.vbs //NoLogo";
             call system(command);
             command2="DEL temp.vbs ";
             call system(command2);
        run;
    %mend;

    options noxwait;

    data &prefix._toc; 
         set &prefix._toc; 
    call symput('count',compress(put(_n_,best.)));
    run;
    proc sql noprint;
         select filename
         into : rtf1- :rtf&count
         from &prefix._toc;
    run;

    %macro cvtpdfs;
        %do i=1 %to &count;
        %let mypdf=%scan(&&rtf&i,1,'.');
        %vbs_pdf(rtfname=&file2path./&&rtf&i,pdfname=&curpath/documents/pdf/&mypdf..pdf);
        %end;
    %mend;

    %cvtpdfs; 

Answer 1

默认情况下，SAS EG 已禁用 X 命令。在 EG 的 SAS 配置文件中，您将看到 -NOXCMD。你会在这里看到更多：https://blogs.sas.com/content/sasdummy/2009/11/19/using-the-x-and-systask-commands-from-sas-enterprise-guide/