home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / appcreate.js < prev    next >
Text File  |  1997-10-25  |  3KB  |  116 lines
  1. /*********************************************
  2. *
  3. *  Application Creation Utility
  4. *
  5. **********************************************
  6. *
  7. *  Description:
  8. *  ------------
  9. *  This sample admin script allows you to designate a web directory or virtual directory
  10. *  as an application root.
  11. *
  12. *  To Run:  
  13. *  -------
  14. *  This is the format for this script:
  15. *
  16. *      cscript appcreate.js <adspath> [-n <friendlyname>][-I (to isolate)]
  17. * 
  18. *  NOTE:  If you want to execute this script directly from Windows, use 
  19. *  'wscript' instead of 'cscript'. 
  20. *
  21. **********************************************/
  22.  
  23.  
  24.  
  25. // Initialize variables
  26. var ArgCount, TargetNode, InProcFlag, FriendlyName, FlagMsg;
  27. var DirObj;
  28.  
  29. // Default values
  30. ArgCount = 0;
  31. TargetNode = "";
  32. InProcFlag = true;
  33. FriendlyName = "MyNewApp";
  34.  
  35.  
  36.  
  37.   // ** Parse Command Line
  38.  
  39.     // Loop through arguments
  40.     while (ArgCount < WScript.arguments.length)   {
  41.       
  42.       // Determine switches used
  43.       switch (WScript.arguments.item(ArgCount))   {
  44.  
  45.          case "-n":
  46.             // Move to next arg, which should be parameter
  47.             ArgCount =  ArgCount + 1;
  48.             if (ArgCount >= WScript.arguments.length)  
  49.                UsageMsg();
  50.             else
  51.                FriendlyName = WScript.arguments.item(ArgCount);
  52.             break;
  53.  
  54.          case "-I":
  55.             InProcFlag = false;
  56.             break;
  57.  
  58.          case "-h":
  59.          case "-?":
  60.          case "/?":
  61.             UsageMsg();
  62.             break;
  63.  
  64.          default:    // specifying what ADsPath to look at
  65.             if (TargetNode != "")   // only one name at a time
  66.                 UsageMsg();
  67.             else
  68.                 TargetNode = WScript.arguments.item(ArgCount);
  69.            
  70.  
  71.       }
  72.  
  73.       // Move pointer to next argument
  74.       ++ArgCount;
  75.  
  76.     }
  77.  
  78.  
  79.   // Make sure they've specified a path
  80.   if (TargetNode == "")   
  81.      UsageMsg();
  82.   
  83.   // Get ADSI object for target node
  84.   DirObj = GetObject(TargetNode);
  85.  
  86.   // Create application
  87.   DirObj.AppCreate(InProcFlag);
  88.  
  89.   // Set friendly name for application 
  90.   DirObj.AppFriendlyName = FriendlyName;
  91.  
  92.   // Write new info back to Metabase
  93.   DirObj.SetInfo();
  94.  
  95.   // Make pretty string
  96.   if (InProcFlag == true)  
  97.      FlagMsg = "in-process";
  98.   else
  99.      FlagMsg = "isolated";
  100.  
  101.  
  102.   // Success!
  103.   WScript.echo("Created:  Application '" + FriendlyName + "' (" + FlagMsg + ").");
  104.  
  105.  
  106.  
  107. // Displays usage message, then QUITS
  108. function UsageMsg()  {
  109.    WScript.echo("Usage:    cscript appcreate.js <adspath> [-n <friendlyname>][-I (to isolate)]");
  110.    WScript.quit();
  111. }
  112.  
  113.  
  114.  
  115.  
  116.