VBS – Pieces of code

Shutdown computer
Option Explicit
Dim oShell
Set oShell = Wscript.CreateObject("Wscript.Shell")
oShell.Run "SHUTDOWN -T 60 -S" 'wait 60 seconds before shutting down

Trigger speech
Option Explicit
Dim speechobject
set speechobject=createobject("sapi.spvoice")
speechobject.speak "Your system is setup and ready for your day"

Delay for Seconds (10)
Option Explicit
Dim dteWait
dteWait = DateAdd("s", 10, Now())
Do Until (Now() > dteWait)
Loop

Sleep Function for Delay – Count in Milliseconds (5 mins below)
WScript.Sleep 5*60*1000

About Mark

Mark Brooks a forty something individual working and living in and around Edinburgh
This entry was posted in All, Configuration, VBS Scripts. Bookmark the permalink.