DECLARE
   VBScriptSource VARCHAR2( 32767 );
   oleExec OLE2.OBJ_TYPE;
   args OLE2.LIST_TYPE;
BEGIN
   oleExec := OLE2.CREATE_OBJ('Название вашей выполнялки скриптов');
   
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args,VBScriptSource);
   OLE2.INVOKE(oleExec,'Метод OLE объекта, выполняющий скрипт',args);
   OLE2.DESTROY_ARGLIST(args);
   OLE2.RELEASE_OBJ(oleExec);
END;

DECLARE
   VBScriptSource  VARCHAR2( 32767 );
   outFHandle TEXT_IO.FILE_TYPE;
   outFName   VARCHAR2( 32767 ) := 'c:\temp\vbScript'||TO_CHAR(SYSDATE,'YYMMDDHH24MISS')||'.vbs';   
BEGIN
   outFHandle := TEXT_IO.FOPEN(outFName,'w');
   TEXT_IO.PUT_LINE(outFHandle,VBScriptSource);
   TEXT_IO.FCLOSE(outFHandle);
   HOST(outFname,NO_SCREEN);
END;