home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / excel.js < prev    next >
Text File  |  1998-02-02  |  3KB  |  103 lines
  1. // Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. //
  3. // ------------------------------------------------------------------------
  4. //               Copyright (C) 1996-1997 Microsoft Corporation
  5. //
  6. // Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
  7. // i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. // ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. // zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. // ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. // ------------------------------------------------------------------------
  12.  
  13. // Ten skrypt wy£wietla w│a£ciwo£ci Hosta skrypt≤w systemu Windows w programie Excel.
  14.  
  15.  
  16. var vbOKCancel = 1;
  17. var vbInformation = 64;
  18. var vbCancel = 2;
  19.  
  20. var L_Welcome_MsgBox_Message_Text    = "Ten skrypt wy£wietla w│a£ciwo£ci Hosta skrypt≤w systemu Windows w programie Excel.";
  21. var L_Welcome_MsgBox_Title_Text      = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows";
  22. Welcome();
  23.     
  24.  
  25. //////////////////////////////////////////////////////////////////////////////////
  26. //
  27. // Przyk│ad dla programu Excel
  28. //
  29. var objXL = WScript.CreateObject("Excel.Application");
  30.  
  31. objXL.Visible = true;
  32.  
  33. objXL.WorkBooks.Add;
  34.  
  35. objXL.Columns(1).ColumnWidth = 20;
  36. objXL.Columns(2).ColumnWidth = 30;
  37. objXL.Columns(3).ColumnWidth = 40;
  38.  
  39. objXL.Cells(1, 1).Value = "Nazwa w│asno£ci";
  40. objXL.Cells(1, 2).Value = "Warto£µ";
  41. objXL.Cells(1, 3).Value = "Opis";
  42.  
  43. objXL.Range("A1:C1").Select;
  44. objXL.Selection.Font.Bold = true;
  45. objXL.Selection.Interior.ColorIndex = 1;
  46. objXL.Selection.Interior.Pattern = 1; //xlSolid
  47. objXL.Selection.Font.ColorIndex = 2;
  48.  
  49. objXL.Columns("B:B").Select;
  50. objXL.Selection.HorizontalAlignment = -4131; // xlLeft
  51.  
  52. var intIndex = 2;
  53.  
  54. function Show(strName, strValue, strDesc) {
  55.     objXL.Cells(intIndex, 1).Value = strName;
  56.     objXL.Cells(intIndex, 2).Value = strValue;
  57.     objXL.Cells(intIndex, 3).Value = strDesc;
  58.     intIndex++;
  59.     objXL.Cells(intIndex, 1).Select;
  60. }
  61.  
  62. //
  63. // Poka┐ w│a£ciwo£ci WScript
  64. //
  65. Show("Name",           WScript.Name,           "Przyjazna nazwa aplikacji");
  66. Show("Version",        WScript.Version,        "Wersja aplikacji");
  67. Show("FullName",       WScript.FullName,       "Kontekst aplikacji: pe│na nazwa");
  68. Show("Path",           WScript.Path,           "Kontekst aplikacji: tylko £cie┐ka");
  69. Show("Interactive",    WScript.Interactive,    "Stan trybu interaktywnego");
  70.  
  71.  
  72. //
  73. // Poka┐ argumenty wiersza polece±.
  74. //
  75. var colArgs = WScript.Arguments
  76. Show("Arguments.Count", colArgs.length, "Liczba argument≤w wiersza polece±");
  77.  
  78. for (i = 0; i < colArgs.length; i++) {
  79.     objXL.Cells(intIndex, 1).Value = "Arguments(" + i + ")";
  80.     objXL.Cells(intIndex, 2).Value = colArgs(i);
  81.     intIndex++;
  82.     objXL.Cells(intIndex, 1).Select;
  83. }
  84.  
  85.  
  86. //////////////////////////////////////////////////////////////////////////////////
  87. //
  88. // Witamy
  89. //
  90. function Welcome() {
  91.     var WSHShell = WScript.CreateObject("WScript.Shell");
  92.     var intDoIt;
  93.  
  94.     intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
  95.                               0,
  96.                               L_Welcome_MsgBox_Title_Text,
  97.                               vbOKCancel + vbInformation );
  98.     if (intDoIt == vbCancel) {
  99.         WScript.Quit();
  100.     }
  101. }
  102.  
  103.