> Hi,

> I have written the following script to shutdown my computer after office
> hours . I have the following question.

> 1. Is there a way to force all my application to close and shutdown ?
> 2. How can I modify this script so that at a specific date and time the
> script will shutdown ?

> Set colOperatingSystems =
> GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> Win32_OperatingSystem")
> For Each objOperatingSystem in colOperatingSystems
> ObjOperatingSystem.Win32Shutdown(1)
> Next

> I hope someone could help because most of the time I am out of office and
I
> need my computer to turn on to process some data backup.

> Thanks

> For the 2nd point you can easily use the Task Scheduler of Windows ...
> Start>Control Pannel>Task Scheduler ....

> > Hi,

> > I have written the following script to shutdown my computer after office
> > hours . I have the following question.

> > 1. Is there a way to force all my application to close and shutdown ?
> > 2. How can I modify this script so that at a specific date and time the
> > script will shutdown ?

> > Set colOperatingSystems =
> > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> > Win32_OperatingSystem")
> > For Each objOperatingSystem in colOperatingSystems
> > ObjOperatingSystem.Win32Shutdown(1)
> > Next

> > I hope someone could help because most of the time I am out of office
and
> I
> > need my computer to turn on to process some data backup.

> > Thanks

> Hi,

> I have written the following script to shutdown my computer after office
> hours . I have the following question.

> 1. Is there a way to force all my application to close and shutdown ?
> 2. How can I modify this script so that at a specific date and time the
> script will shutdown ?

> Set colOperatingSystems =
> GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> Win32_OperatingSystem")
> For Each objOperatingSystem in colOperatingSystems
> ObjOperatingSystem.Win32Shutdown(1)
> Next

> I hope someone could help because most of the time I am out of office and
I
> need my computer to turn on to process some data backup.

> Thanks

> Hi,

> On the first point, you have the right code, just
> the wrong numeric parameter.

> From a Torgeir Bakken post:

> ----

> sComputer = "."    ' use "." for local computer

> ' Use "Reboot_Force" for a forced reboot
> ShutDown sComputer, "Reboot"

> Sub ShutDown(sNode, sAction)

>   Const EWX_LOGOFF = 0
>   Const EWX_SHUTDOWN = 1
>   Const EWX_REBOOT = 2
>   Const EWX_FORCE = 4
>   Const EWX_POWEROFF = 8

>   Set oWMI = GetObject("winmgmts:" _
>      & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
>      & sNode & "\root\cimv2")

>   Set colOperatingSystems = oWMI.ExecQuery _
>      ("Select * from Win32_OperatingSystem")
>   For Each obj in colOperatingSystems
>     Set oOS = obj :  Exit For
>   Next

>   sAction = LCase(sAction)

>   Select Case sAction
>     Case "logoff"
>       iCmd = EWX_LOGOFF
>     Case "logoff_force"
>       iCmd = EWX_LOGOFF + EWX_FORCE
>     Case "shutdown"
>       iCmd = EWX_SHUTDOWN
>     Case "shutdown_force"
>       iCmd = EWX_SHUTDOWN + EWX_FORCE
>     Case "reboot"
>       iCmd = EWX_REBOOT
>     Case "reboot_force"
>       iCmd = EWX_REBOOT + EWX_FORCE
>     Case "poweroff"
>       iCmd = EWX_POWEROFF
>     Case "poweroff_force"
>       iCmd = EWX_POWEROFF + EWX_FORCE
>     Case Else
>       ' Default value
>       iCmd = EWX_POWEROFF
>   End Select

>   oOS.Win32shutdown iCmd

> End Sub

> ----

> Joe Earnest

> > Hi,

> > I have written the following script to shutdown my computer after office
> > hours . I have the following question.

> > 1. Is there a way to force all my application to close and shutdown ?
> > 2. How can I modify this script so that at a specific date and time the
> > script will shutdown ?

> > Set colOperatingSystems =
> > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> > Win32_OperatingSystem")
> > For Each objOperatingSystem in colOperatingSystems
> > ObjOperatingSystem.Win32Shutdown(1)
> > Next

> > I hope someone could help because most of the time I am out of office
and
> I
> > need my computer to turn on to process some data backup.

> > Thanks

> Hi Joe,

> Thanks for your reply. How about the second point, can I use script to do
> it.

> Pls advice.

> > Hi,

> > On the first point, you have the right code, just
> > the wrong numeric parameter.

> > From a Torgeir Bakken post:

> > ----

> > sComputer = "."    ' use "." for local computer

> > ' Use "Reboot_Force" for a forced reboot
> > ShutDown sComputer, "Reboot"

> > Sub ShutDown(sNode, sAction)

> >   Const EWX_LOGOFF = 0
> >   Const EWX_SHUTDOWN = 1
> >   Const EWX_REBOOT = 2
> >   Const EWX_FORCE = 4
> >   Const EWX_POWEROFF = 8

> >   Set oWMI = GetObject("winmgmts:" _
> >      & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
> >      & sNode & "\root\cimv2")

> >   Set colOperatingSystems = oWMI.ExecQuery _
> >      ("Select * from Win32_OperatingSystem")
> >   For Each obj in colOperatingSystems
> >     Set oOS = obj :  Exit For
> >   Next

> >   sAction = LCase(sAction)

> >   Select Case sAction
> >     Case "logoff"
> >       iCmd = EWX_LOGOFF
> >     Case "logoff_force"
> >       iCmd = EWX_LOGOFF + EWX_FORCE
> >     Case "shutdown"
> >       iCmd = EWX_SHUTDOWN
> >     Case "shutdown_force"
> >       iCmd = EWX_SHUTDOWN + EWX_FORCE
> >     Case "reboot"
> >       iCmd = EWX_REBOOT
> >     Case "reboot_force"
> >       iCmd = EWX_REBOOT + EWX_FORCE
> >     Case "poweroff"
> >       iCmd = EWX_POWEROFF
> >     Case "poweroff_force"
> >       iCmd = EWX_POWEROFF + EWX_FORCE
> >     Case Else
> >       ' Default value
> >       iCmd = EWX_POWEROFF
> >   End Select

> >   oOS.Win32shutdown iCmd

> > End Sub

> > ----

> > Joe Earnest

> > > Hi,

> > > I have written the following script to shutdown my computer after
office
> > > hours . I have the following question.

> > > 1. Is there a way to force all my application to close and shutdown ?
> > > 2. How can I modify this script so that at a specific date and time
the
> > > script will shutdown ?

> > > Set colOperatingSystems =
> > > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> > > Win32_OperatingSystem")
> > > For Each objOperatingSystem in colOperatingSystems
> > > ObjOperatingSystem.Win32Shutdown(1)
> > > Next

> > > I hope someone could help because most of the time I am out of office
> and
> > I
> > > need my computer to turn on to process some data backup.

> > > Thanks

> Hi,

> If you don't want to use task scheduler (per Fabrice's post),
> you can use a simple loop to check the time and date using the
> Now and Date functions.  Note that this will require VBS v5.1
> or greater.  A sleep function is necessary to keep the loop from
> consuming processor resources.  If you decided to use AutoItX
> for shutdown, it also has a sleep function.  Then just place a
> shortcut to your script in the startup folder (or reference it in the
> registry run locations).

> Something like (air code, so modify or test for errors) ...

> ---
> yShutdown= CDate(...)  'your shutdown date, time

> Do
> WScript.Sleep 1000  '1-second interval, adjust as you wish
> Loop Until (yShutdown>CDate(Now))

> ... 'your shutdown routine

> ---
> There's also a Timer function that measures
> seconds since midnight.  All MS VBS downloads are
> here.  Select "documentation" from the left column.  The
> downloaded file will install a chm file with the VBS
> documentation.  This will give you the synatx for these
> functions.

> (URL WILL WRAP)

> =/msdn-files/028/001/175/topic.xml

> Regards,
> Joe Earnest

> > Hi Joe,

> > Thanks for your reply. How about the second point, can I use script to
do
> > it.

> > Pls advice.

> > > Hi,

> > > On the first point, you have the right code, just
> > > the wrong numeric parameter.

> > > From a Torgeir Bakken post:

> > > ----

> > > sComputer = "."    ' use "." for local computer

> > > ' Use "Reboot_Force" for a forced reboot
> > > ShutDown sComputer, "Reboot"

> > > Sub ShutDown(sNode, sAction)

> > >   Const EWX_LOGOFF = 0
> > >   Const EWX_SHUTDOWN = 1
> > >   Const EWX_REBOOT = 2
> > >   Const EWX_FORCE = 4
> > >   Const EWX_POWEROFF = 8

> > >   Set oWMI = GetObject("winmgmts:" _
> > >      & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
> > >      & sNode & "\root\cimv2")

> > >   Set colOperatingSystems = oWMI.ExecQuery _
> > >      ("Select * from Win32_OperatingSystem")
> > >   For Each obj in colOperatingSystems
> > >     Set oOS = obj :  Exit For
> > >   Next

> > >   sAction = LCase(sAction)

> > >   Select Case sAction
> > >     Case "logoff"
> > >       iCmd = EWX_LOGOFF
> > >     Case "logoff_force"
> > >       iCmd = EWX_LOGOFF + EWX_FORCE
> > >     Case "shutdown"
> > >       iCmd = EWX_SHUTDOWN
> > >     Case "shutdown_force"
> > >       iCmd = EWX_SHUTDOWN + EWX_FORCE
> > >     Case "reboot"
> > >       iCmd = EWX_REBOOT
> > >     Case "reboot_force"
> > >       iCmd = EWX_REBOOT + EWX_FORCE
> > >     Case "poweroff"
> > >       iCmd = EWX_POWEROFF
> > >     Case "poweroff_force"
> > >       iCmd = EWX_POWEROFF + EWX_FORCE
> > >     Case Else
> > >       ' Default value
> > >       iCmd = EWX_POWEROFF
> > >   End Select

> > >   oOS.Win32shutdown iCmd

> > > End Sub

> > > ----

> > > Joe Earnest

> > > > Hi,

> > > > I have written the following script to shutdown my computer after
> office
> > > > hours . I have the following question.

> > > > 1. Is there a way to force all my application to close and shutdown
?
> > > > 2. How can I modify this script so that at a specific date and time
> the
> > > > script will shutdown ?

> > > > Set colOperatingSystems =
> > > > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> > > > Win32_OperatingSystem")
> > > > For Each objOperatingSystem in colOperatingSystems
> > > > ObjOperatingSystem.Win32Shutdown(1)
> > > > Next

> > > > I hope someone could help because most of the time I am out of
office
> > and
> > > I
> > > > need my computer to turn on to process some data backup.

> > > > Thanks

> Hi,

> The date functions (including CDate - which simply converts a date
> to a special variable format) are VBS functions.  WMI is an object
> that you call from VBS via the script that I posted earlier.  You're
> working in VBScript all the time, merely calling and getting returns
> from WMI.  Write the timer example script at the top of your VBS file,
> then write the WMI shutdown script under it.  The script will progress
> to the shutdown segment after it finishes looping through the timer
> segment.

> For the timer loop, also check out Date and the cross-referenced
> date parts in the documentation.  These may be easier to work with.

> Joe Earnest

> | Hi Joe,
> |
> | Is your CDate comes with WMI, if not how I integrate it with WMI ?
> |
> | Pls advice.
> |


> | > Hi,
> | >
> | > If you don't want to use task scheduler (per Fabrice's post),
> | > you can use a simple loop to check the time and date using the
> | > Now and Date functions.  Note that this will require VBS v5.1
> | > or greater.  A sleep function is necessary to keep the loop from
> | > consuming processor resources.  If you decided to use AutoItX
> | > for shutdown, it also has a sleep function.  Then just place a
> | > shortcut to your script in the startup folder (or reference it in the
> | > registry run locations).
> | >
> | > Something like (air code, so modify or test for errors) ...
> | >
> | > ---
> | > yShutdown= CDate(...)  'your shutdown date, time
> | >
> | > Do
> | > WScript.Sleep 1000  '1-second interval, adjust as you wish
> | > Loop Until (yShutdown>CDate(Now))
> | >
> | > ... 'your shutdown routine
> | >
> | > ---
> | > There's also a Timer function that measures
> | > seconds since midnight.  All MS VBS downloads are
> | > here.  Select "documentation" from the left column.  The
> | > downloaded file will install a chm file with the VBS
> | > documentation.  This will give you the synatx for these
> | > functions.
> | >
> | > (URL WILL WRAP)
> | >
> |

> | > =/msdn-files/028/001/175/topic.xml
> | >
> | > Regards,
> | > Joe Earnest
> | >


> | > > Hi Joe,
> | > >
> | > > Thanks for your reply. How about the second point, can I use script
to
> | do
> | > > it.
> | > >
> | > > Pls advice.
> | > >


> | > > > Hi,
> | > > >
> | > > > On the first point, you have the right code, just
> | > > > the wrong numeric parameter.
> | > > >
> | > > > From a Torgeir Bakken post:
> | > > >
> | > > > ----
> | > > >
> | > > > sComputer = "."    ' use "." for local computer
> | > > >
> | > > > ' Use "Reboot_Force" for a forced reboot
> | > > > ShutDown sComputer, "Reboot"
> | > > >
> | > > > Sub ShutDown(sNode, sAction)
> | > > >
> | > > >   Const EWX_LOGOFF = 0
> | > > >   Const EWX_SHUTDOWN = 1
> | > > >   Const EWX_REBOOT = 2
> | > > >   Const EWX_FORCE = 4
> | > > >   Const EWX_POWEROFF = 8
> | > > >
> | > > >   Set oWMI = GetObject("winmgmts:" _
> | > > >      & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
> | > > >      & sNode & "\root\cimv2")
> | > > >
> | > > >   Set colOperatingSystems = oWMI.ExecQuery _
> | > > >      ("Select * from Win32_OperatingSystem")
> | > > >   For Each obj in colOperatingSystems
> | > > >     Set oOS = obj :  Exit For
> | > > >   Next
> | > > >
> | > > >   sAction = LCase(sAction)
> | > > >
> | > > >   Select Case sAction
> | > > >     Case "logoff"
> | > > >       iCmd = EWX_LOGOFF
> | > > >     Case "logoff_force"
> | > > >       iCmd = EWX_LOGOFF + EWX_FORCE
> | > > >     Case "shutdown"
> | > > >       iCmd = EWX_SHUTDOWN
> | > > >     Case "shutdown_force"
> | > > >       iCmd = EWX_SHUTDOWN + EWX_FORCE
> | > > >     Case "reboot"
> | > > >       iCmd = EWX_REBOOT
> | > > >     Case "reboot_force"
> | > > >       iCmd = EWX_REBOOT + EWX_FORCE
> | > > >     Case "poweroff"
> | > > >       iCmd = EWX_POWEROFF
> | > > >     Case "poweroff_force"
> | > > >       iCmd = EWX_POWEROFF + EWX_FORCE
> | > > >     Case Else
> | > > >       ' Default value
> | > > >       iCmd = EWX_POWEROFF
> | > > >   End Select
> | > > >
> | > > >   oOS.Win32shutdown iCmd
> | > > >
> | > > > End Sub
> | > > >
> | > > > ----
> | > > >
> | > > > Joe Earnest
> | > > >


> | > > > > Hi,
> | > > > >
> | > > > > I have written the following script to shutdown my computer
after
> | > office
> | > > > > hours . I have the following question.
> | > > > >
> | > > > > 1. Is there a way to force all my application to close and
> shutdown
> | ?
> | > > > > 2. How can I modify this script so that at a specific date and
> time
> | > the
> | > > > > script will shutdown ?
> | > > > >
> | > > > >
> | > > > > Set colOperatingSystems =
> | > > > > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> | > > > > Win32_OperatingSystem")
> | > > > > For Each objOperatingSystem in colOperatingSystems
> | > > > > ObjOperatingSystem.Win32Shutdown(1)
> | > > > > Next
> | > > > >
> | > > > > I hope someone could help because most of the time I am out of
> | office
> | > > and
> | > > > I
> | > > > > need my computer to turn on to process some data backup.
> | > > > >
> | > > > > Thanks
> | > > > >
> | > > > >
> | > > >
> | > > >
> | > >
> | > >
> | >
> | >
> |
> |

> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.410 / Virus Database: 231 - Release Date: 10-31-02

> Hi

> The timer cumulates the number of seconds from midnight,
> so to turn it off at 10:00pm each day, use 22 x 60 x 60
> (79200).

> Do
>   WScript.Sleep 1000  '1-second interval, adjust as you wish
> Loop Until (Timer>79200)

> If you actually want to time the length of a session of less
> than 24 hours, just get a start and end time.  Add 86400
> (24x60x60) if you might cross midnight.  For a 6-hour
> maximum (60x60=3600):

> OffTime= 6 *3600: StartTime= Timer
> Do
>   WScript.Sleep 1000
>   NowTime= Timer
>   If (NowTime<StartTime) Then
>     NowTime= NowTime +86400
>   End If
> Loop Until ((NowTime -StartTime)>OffTime)

> Simply put the shutdown code after the loop.

> Joe Earnest

> | Hi Joe,
> |
> | Any sample on how to set the timer.
> |
> | Thanks

> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.410 / Virus Database: 231 - Release Date: 10-31-02

> Hi,

> If you don't want to use task scheduler (per Fabrice's post),
> you can use a simple loop to check the time and date using the
> Now and Date functions.  Note that this will require VBS v5.1
> or greater.  A sleep function is necessary to keep the loop from
> consuming processor resources.  If you decided to use AutoItX
> for shutdown, it also has a sleep function.  Then just place a
> shortcut to your script in the startup folder (or reference it in the
> registry run locations).

> Something like (air code, so modify or test for errors) ...

> ---
> yShutdown= CDate(...)  'your shutdown date, time

> Do
> WScript.Sleep 1000  '1-second interval, adjust as you wish
> Loop Until (yShutdown>CDate(Now))

> ... 'your shutdown routine

> ---
> There's also a Timer function that measures
> seconds since midnight.  All MS VBS downloads are
> here.  Select "documentation" from the left column.  The
> downloaded file will install a chm file with the VBS
> documentation.  This will give you the synatx for these
> functions.

> (URL WILL WRAP)

> =/msdn-files/028/001/175/topic.xml

> Regards,
> Joe Earnest

> > Hi Joe,

> > Thanks for your reply. How about the second point, can I use script to
do
> > it.

> > Pls advice.

> > > Hi,

> > > On the first point, you have the right code, just
> > > the wrong numeric parameter.

> > > From a Torgeir Bakken post:

> > > ----

> > > sComputer = "."    ' use "." for local computer

> > > ' Use "Reboot_Force" for a forced reboot
> > > ShutDown sComputer, "Reboot"

> > > Sub ShutDown(sNode, sAction)

> > >   Const EWX_LOGOFF = 0
> > >   Const EWX_SHUTDOWN = 1
> > >   Const EWX_REBOOT = 2
> > >   Const EWX_FORCE = 4
> > >   Const EWX_POWEROFF = 8

> > >   Set oWMI = GetObject("winmgmts:" _
> > >      & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
> > >      & sNode & "\root\cimv2")

> > >   Set colOperatingSystems = oWMI.ExecQuery _
> > >      ("Select * from Win32_OperatingSystem")
> > >   For Each obj in colOperatingSystems
> > >     Set oOS = obj :  Exit For
> > >   Next

> > >   sAction = LCase(sAction)

> > >   Select Case sAction
> > >     Case "logoff"
> > >       iCmd = EWX_LOGOFF
> > >     Case "logoff_force"
> > >       iCmd = EWX_LOGOFF + EWX_FORCE
> > >     Case "shutdown"
> > >       iCmd = EWX_SHUTDOWN
> > >     Case "shutdown_force"
> > >       iCmd = EWX_SHUTDOWN + EWX_FORCE
> > >     Case "reboot"
> > >       iCmd = EWX_REBOOT
> > >     Case "reboot_force"
> > >       iCmd = EWX_REBOOT + EWX_FORCE
> > >     Case "poweroff"
> > >       iCmd = EWX_POWEROFF
> > >     Case "poweroff_force"
> > >       iCmd = EWX_POWEROFF + EWX_FORCE
> > >     Case Else
> > >       ' Default value
> > >       iCmd = EWX_POWEROFF
> > >   End Select

> > >   oOS.Win32shutdown iCmd

> > > End Sub

> > > ----

> > > Joe Earnest

> > > > Hi,

> > > > I have written the following script to shutdown my computer after
> office
> > > > hours . I have the following question.

> > > > 1. Is there a way to force all my application to close and shutdown
?
> > > > 2. How can I modify this script so that at a specific date and time
> the
> > > > script will shutdown ?

> > > > Set colOperatingSystems =
> > > > GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from
> > > > Win32_OperatingSystem")
> > > > For Each objOperatingSystem in colOperatingSystems
> > > > ObjOperatingSystem.Win32Shutdown(1)
> > > > Next

> > > > I hope someone could help because most of the time I am out of
office
> > and
> > > I
> > > > need my computer to turn on to process some data backup.

> > > > Thanks