home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / showvar.vbs < prev    next >
Text File  |  1997-12-05  |  2KB  |  67 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. ' Ten przyk│ad wy£wietla wszystkie zmienne £rodowiskowe zdefiniowane w tym komputerze
  14.  
  15.  
  16. L_Welcome_MsgBox_Message_Text    = "Ten przyk│ad wy£wietla wszystkie zmienne £rodowiskowe zdefiniowane w tym komputerze."
  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
  24. ' *
  25. CRLF = Chr(13) & Chr(10)
  26.  
  27. Dim WSHShell
  28. Set WSHShell = WScript.CreateObject("WScript.Shell")
  29.  
  30.  
  31. Sub show_env(strText)
  32.     MsgBox strText, vbInformation, L_Welcome_MsgBox_Title_Text
  33. End Sub
  34.  
  35. intIndex = 0
  36. strText = ""
  37. intNumEnv = 0
  38. MAX_ENV = 20
  39. For Each strEnv In WshShell.Environment("PROCESS")
  40.     intIndex = intIndex + 1
  41.     strText = strText & CRLF & Right("    " & intIndex, 4) & " " & strEnv
  42.     intNumEnv = intNumEnv + 1
  43.     If intNumEnv >= MAX_ENV Then
  44.         Call show_env(strText)
  45.         strText = ""
  46.         intNumEnv = 0
  47.     End If
  48. Next
  49.  
  50. If intNumEnv >= 1 Then Call show_env(strText)
  51.  
  52.  
  53. ' ********************************************************************************
  54. ' *
  55. ' * Witamy
  56. ' *
  57. Sub Welcome()
  58.     Dim intDoIt
  59.  
  60.     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
  61.                       vbOKCancel + vbInformation,    _
  62.                       L_Welcome_MsgBox_Title_Text )
  63.     If intDoIt = vbCancel Then
  64.         WScript.Quit
  65.     End If
  66. End Sub
  67.