Stav 23.06.2026

2026-06-23 15:20:56 +02:00
commit 6d91e83e8c
5670 changed files with 1145969 additions and 0 deletions
@@ -0,0 +1,31 @@
+#app=WScript.Application
+#app._print_details_() # Use this to see what Python knows about a COM object.
+
+g_index = 1
+# A procedure, using a global.
+def Show(desc, value = None):
+	global g_index # Need global for g_index, as I locally assign.
+	# No global needed to "xl" object, as only referenced.
+	# Also note "xl" is assigned later in the script - ie, Python is very late bound.
+	xl.Cells(g_index, 1).Value = desc
+	if value: xl.Cells(g_index, 2).Value = value
+	g_index = g_index + 1
+
+xl = WScript.CreateObject("Excel.Application")
+import sys
+
+xl.Visible = 1
+xl.Workbooks.Add()
+
+# Show the WScript properties.
+Show("Application Friendly Name", WScript.Name)
+Show("Application Version", WScript.Version)
+Show("Application Context: Fully Qualified Name", WScript.FullName)
+Show("Application Context: Path Only", WScript.Path)
+Show("State of Interactive Mode", WScript.Interactive)
+
+Show("All script arguments:")
+args = WScript.Arguments
+
+for i in range(0,args.Count()):
+	Show("Arg %d" % i, args(i))