home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 45 / PCGAMER45.bin / netware / msie4pp / wsh.cab / showprop.vbs < prev    next >
Text File  |  1996-10-15  |  1KB  |  37 lines
  1. ' Windows Script Host Sample Script
  2. '
  3. ' ------------------------------------------------------------------------
  4. '               Copyright (C) 1996 Microsoft Corporation
  5. '
  6. ' You have a royalty-free right to use, modify, reproduce and distribute
  7. ' the Sample Application Files (and/or any modified version) in any way
  8. ' you find useful, provided that you agree that Microsoft has no warranty,
  9. ' obligations or liability for any Sample Application Files.
  10. ' ------------------------------------------------------------------------
  11.  
  12. Sub Show(pszText)
  13.     WScript.Echo pszText 
  14. End Sub
  15.  
  16.  
  17. ' Get application object.
  18. Set oWScript = WScript.Application
  19.  
  20. '
  21. ' Show standard properties
  22. '
  23. Show "Application Friendly Name = '" & oWScript.Name & "'"
  24. Show "Application Version = '" & oWScript.Version & "'"
  25. Show "Application Context: Fully Qualified Name = '" & oWScript.FullName & "'"
  26. Show "Application Context: Path Only = '" & oWScript.Path & "'"
  27. Show "State of Interactive Mode= '" & oWScript.Interactive & "'"
  28.  
  29. '
  30. ' Show command line arguments
  31. '
  32. Set oArgs = oWScript.Arguments
  33. For i = 0 to oArgs.Count - 1
  34.     Show "Argument #"& i &" = " & oArgs(i) & " "
  35. Next
  36.  
  37.