Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'======================================
'
' NAME: <filename>
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE : 6/29/2004
'
' COMMENT: Example script
'
'======================================
Dim WSHNEtwork, WSHShell, fso, ts
Const ForWriting = 2
Set WSHNetwork = CreateObject("WScript.Network")
Set WSHShell = wscript.createObject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
'Connect to a drive
WSHNetwork.MapNetworkDrive "U:", "\\server\users",True
'Do Something
Call WSHShell.Run("cmd.exe /C Del C:\Temp\*.tmp /q")
'Go to sleep for a while
Wscript.sleep 500
'Write something to a file
Set ts = fso.CreateTextFile ("C:\ActionLog.txt", ForWriting)
report = "All temp files in C:\Temp Deleted"
ts.write report
'Do Something Else
Call WSHShell.Run("cmd.exe /C Del C:\Windows\Temp\*.tmp /q")