home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / excel.vbs < prev    next >
Text File  |  1998-02-03  |  3KB  |  106 lines
  1. ' Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. '
  3. ' ------------------------------------------------------------------------
  4. '               Copyright (C) 1996 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.  
  14. ' Ten skrypt wy£wietla w│a£ciwo£ci Hosta skrypt≤w systemu Windows w programie Excel.
  15.  
  16. L_Welcome_MsgBox_Message_Text    = "Ten skrypt wy£wietla w│a£ciwo£ci Hosta skrypt≤w systemu Windows w programie Excel."
  17. L_Welcome_MsgBox_Title_Text      = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows"
  18. Call Welcome()
  19.     
  20.  
  21. ' ********************************************************************************
  22. ' *
  23. ' * Przyk│ad dla programu Excel
  24. ' *
  25. Dim objXL
  26. Set objXL = WScript.CreateObject("Excel.Application")
  27.  
  28. objXL.Visible = TRUE
  29.  
  30. objXL.WorkBooks.Add
  31.  
  32. objXL.Columns(1).ColumnWidth = 20
  33. objXL.Columns(2).ColumnWidth = 30
  34. objXL.Columns(3).ColumnWidth = 40
  35.  
  36. objXL.Cells(1, 1).Value = "Nazwa w│asno£ci"
  37. objXL.Cells(1, 2).Value = "Warto£µ"
  38. objXL.Cells(1, 3).Value = "Opis"
  39.  
  40. objXL.Range("A1:C1").Select
  41. objXL.Selection.Font.Bold = True
  42. objXL.Selection.Interior.ColorIndex = 1
  43. objXL.Selection.Interior.Pattern = 1 'xlSolid
  44. objXL.Selection.Font.ColorIndex = 2
  45.  
  46. objXL.Columns("B:B").Select
  47. objXL.Selection.HorizontalAlignment = &hFFFFEFDD ' xlLeft
  48.  
  49. Dim intIndex
  50. intIndex = 2
  51.  
  52. Sub Show(strName, strValue, strDesc)
  53.     objXL.Cells(intIndex, 1).Value = strName
  54.     objXL.Cells(intIndex, 2).Value = strValue
  55.     objXL.Cells(intIndex, 3).Value = strDesc
  56.     intIndex = intIndex + 1
  57.     objXL.Cells(intIndex, 1).Select
  58. End Sub
  59.  
  60. '
  61. ' Poka┐ w│a£ciwo£ci WScript
  62. '
  63. Call Show("Name",           WScript.Name,           "Przyjazna nazwa aplikacji")
  64. Call Show("Version",        WScript.Version,        "Wersja aplikacji")
  65. Call Show("FullName",       WScript.FullName,       "Kontekst aplikacji: pe│na nazwa")
  66. Call Show("Path",           WScript.Path,           "Kontekst aplikacji: tylko £cie┐ka")
  67. Call Show("Interactive",    WScript.Interactive,    "Stan trybu interaktywnego")
  68.  
  69.  
  70. '
  71. ' Poka┐ argumenty wiersza polece±.
  72. '
  73. Dim colArgs
  74. Set colArgs = WScript.Arguments
  75. Call Show("Arguments.Count", colArgs.Count, "Liczba argument≤w wiersza polece±")
  76.  
  77. For i = 0 to colArgs.Count - 1
  78.     objXL.Cells(intIndex, 1).Value = "Arguments(" & i & ")"
  79.     objXL.Cells(intIndex, 2).Value = colArgs(i)
  80.     intIndex = intIndex + 1
  81.     objXL.Cells(intIndex, 1).Select
  82. Next
  83.  
  84.  
  85.  
  86. ' ********************************************************************************
  87. ' *
  88. ' * Witamy
  89. ' *
  90. Sub Welcome()
  91.     Dim intDoIt
  92.  
  93.     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
  94.                       vbOKCancel + vbInformation,    _
  95.                       L_Welcome_MsgBox_Title_Text )
  96.     If intDoIt = vbCancel Then
  97.         WScript.Quit
  98.     End If
  99. End Sub
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.