PC Professionell 2006 May

home *** CD-ROM | disk | FTP | other *** search

/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileScripts013 < prev next >

Wrap

Extensible Markup Language | 2005-09-02 | 24.0 KB | 300 lines

■<?xml version="1.0" ?> <package> <comment> ' *** ' *** ------------------------------------------------------------------------------ ' *** Filename: SleepWakePC.wsf ' *** ------------------------------------------------------------------------------ ' *** Description: Assists with creating scheduled tasks that "Sleep" and "Wakeup" ' *** a computer running Windows Disk Protection so that Critical Updates ' *** can be applied. ' *** ------------------------------------------------------------------------------ ' *** Version: 1.0 ' *** Notes: ' *** ------------------------------------------------------------------------------ ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved ' *** ------------------------------------------------------------------------------ ' *** </comment> <job> <runtime> <description>Sleep and/or Wake Up Computer</description> <named name="Wake" required="false" many="false" helpstring="Helps create a scheduled task that turns on a computer that is in Stand by mode." /> <named name="Sleep" required="false" many="false" helpstring="Creates a scheduled task that puts a computer in stand by mode. Specify time in HH:MM (24-hour format)." /> <named name="User" required="false" many="false" helpstring="Specifies the user account used by the scheduled task." /> <named name="Password" required="false" many="false" helpstring="Specifies the password for the user account used by the scheduled task." /> <named name="Delete" required="false" many="false" helpstring="Deletes scheduled tasks created using this tool." />  <usage> SleepWakePC Tool Usage: SleepWakePC.wsf [/Wake] [/Sleep:hh:mm] [/User:username] [/Password:password] [/Delete] Options : Wake : Helps create a scheduled task that turns on a computer that is in Stand by mode. Sleep : Creates a scheduled task that puts a computer in stand by mode. Specify time in HH:MM (24-hour format). User : Specifies the user account used by the scheduled task. Password: Specifies the password for the user account used by the scheduled task. Delete : Deletes scheduled tasks created using this tool. Example : SleepWakePC.wsf /Wake /User:username /Password:password /Sleep:18:30 </usage> </runtime> <resource id="CScriptMessage">Restarting script in command-line mode. Run CmdOn.BAT to set command-line mode as the default mode.</resource> <resource id="CScriptTitle">Shared Computer Toolkit: Windows Script Mode Detected</resource> <?job error="True" debug="False" ?> <script language="VBScript" src="../include/Common.vbs"></script> <script language="VBScript" src="../include/libWSF.vbs"></script> <script language="VBScript" src="../include/clsDiskProtect.vbs"></script> <script language="VBScript" src="../include/clsLogging.vbs"></script> <script language="VBScript"> <![CDATA[ ' ~~~ ' ~~~ Force variables to be declared ' ~~~ Option Explicit ' ~~~ Turn on error handling On Error Resume Next ' ~~~ ' ~~~ Declare variables and constants ' ~~~ Dim oDiskProtect, iWDPcmdVer Dim oScheduledJobs, oJob, sUsername, sPassword Dim sAppDir, sTime, sDay, sCmd, sCmdWDP, bOK, bWDP Dim sSleepTime ' ~~~ Call the Main sub Call Main("") ' ~~~ Set the WDP.CMD tool version number for IsWDPOn.hta iWDPcmdVer = 7 ' ~~~ Initialize and create objects Set oDiskProtect = New DiskProtect sAppDir = RegRead(TOOLKITKEY & "TargetDir") sDay = oDiskProtect.CriticalUpdateDay If (oDiskProtect.CriticalUpdateTime - 1) >= 10 then sTime = oDiskProtect.CriticalUpdateTime - 1 & ":50:00" Else sTime = "0" & (oDiskProtect.CriticalUpdateTime - 1) & ":50:00" End If ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Check script usage ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Assume usage is ok bOK = True ' ~~~ Simple checks for incorrect usage Select Case WScript.Arguments.Named.Count Case 0 ' ~~~ Can not call with no parameters bOK = False End Select If Not(WScript.Arguments.Named.Exists("Wake")) and Not(WScript.Arguments.Named.Exists("Sleep")) and Not(WScript.Arguments.Named.Exists("Standby")) and Not(WScript.Arguments.Named.Exists("Delete")) and Not(WScript.Arguments.Named.Exists("DoNothing")) Then bOK = False End If ' ~~~ If incorrect usage display message and quit If Not(bOK) Then WScript.Arguments.ShowUsage WScript.Quit End If ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Check for WDP Tasks ' ~~~ ------------------------------------------------------------------------------ sCmdWDP = "wscript """ & sAppDir & "scripts\CriticalUpdates.wsf" & Chr(34) & " /Update /PreventLogin /Restart" bWDP = False ' ~~~ Use wmi to check for WDP tasks Set oScheduledJobs = oWMIService.ExecQuery("Select * from Win32_ScheduledJob") For Each oJob in oScheduledJobs If oJob.Command = sCmdWDP Then bWDP = True End If Next If Not(bWDP) and WScript.Arguments.Named.Exists("Wake") then WScript.echo("Windows Disk Protection is not running Critical Updates") WScript.echo("The 'Wake' switch requires Windows Disk Protection to be configured") WScript.echo(" ") End If ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Run the Tool ' ~~~ ------------------------------------------------------------------------------ If WScript.Arguments.Named.Exists("DoNothing") Then Wscript.Quit End If If WScript.Arguments.Named.Exists("StandBy") Then Call oShell.Run(chr(34) & sAppdir & "bin\XPePM.exe" & chr(34) & " -standby", 0, True) End If sUsername = "" sPassword = " " If WScript.Arguments.Named.Exists("User") Then sUserName = WScript.Arguments.Named("User") End If If WScript.Arguments.Named.Exists("Password") Then sPassword = WScript.Arguments.Named("Password") If IsNull(sPassword) then sPassword = " " End If If WScript.Arguments.Named.Exists("Wake") and bWDP Then If sUsername = "" Then Wscript.Echo "Error: Username and Password required." Wscript.Arguments.ShowUsage WScript.Quit End If Call CreateWakeUpTask End If If WScript.Arguments.Named.Exists("Sleep") Then sSleepTime = "" sSleepTime = Wscript.Arguments.Named("Sleep") If sSleepTime = "" Then Wscript.Echo "Error: SleepWakePC.wsf /Sleep - requires time of day" Wscript.Arguments.ShowUsage WScript.Quit End If If Len(sSleepTime) = 5 and IsNumeric(Left(sSleeptime,2)) and Left(sSleeptime,2) < "24" and Mid(sSleepTime,3,1) = ":" and IsNumeric(Mid(sSleeptime,4,2)) and Mid(sSleeptime,4,2) < "60" Then sSleepTime = sSleepTime & ":00" Call CreateSleepTask ElseIf Len(sSleepTime) = 4 and IsNumeric(Left(sSleeptime,1)) and Left(sSleeptime,1) < "24" and Mid(sSleepTime,2,1) = ":" and IsNumeric(Mid(sSleeptime,3,2)) and Mid(sSleeptime,3,2) < "60" Then sSleepTime = "0" & sSleepTime & ":00" Call CreateSleepTask Else Wscript.Echo "Error: Invalid time specified." Wscript.Arguments.ShowUsage WScript.Quit End If End If If WScript.Arguments.Named.Exists("Delete") Then Call DeleteWakeUpTask End If ' ~~~ Destroy objects Call UnloadObjects() Set oDiskProtect = Nothing ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: CreateWakeUpTask ' *** ------------------------------------------------------------------------------ ' *** Purpose: Creates a Scheduled task based on the WDP Critical Updates ' *** schedule that wakes up the PC in time for updates to occur. ' *** ------------------------------------------------------------------------------ ' *** Sub CreateWakeUpTask Dim sInterval Select Case sDay Case 1 sInterval = "/SC WEEKLY /D SUN" Case 2 sInterval = "/SC WEEKLY /D MON" Case 3 sInterval = "/SC WEEKLY /D TUE" Case 4 sInterval = "/SC WEEKLY /D WED" Case 5 sInterval = "/SC WEEKLY /D THU" Case 6 sInterval = "/SC WEEKLY /D FRI" Case 7 sInterval = "/SC WEEKLY /D SAT" Case Else sInterval = "/SC DAILY" End Select ' ~~~ The Scheduled Task created really does nothing... AccessibilityTool.exe without switches does nothing ' ~~~ just a dummy task to wake up the computer If sPassword = " " or IsNull(sPassword) Then sCmd = chr(34) & sAppDir & "bin\schtasks.exe" & chr(34) & " /Create /RU " & sUsername & " /RP " & chr(34) & " " & chr(34) & " " & sInterval & " /TN SCTWakeUpPC /TR " & chr(34) & oShell.ExpandEnvironmentStrings("%SCTPath%") & "bin\AccessibilityTool.EXE" & chr(34) & " /ST " & stime Else sCmd = chr(34) & sAppDir & "bin\schtasks.exe" & chr(34) & " /Create /RU " & sUsername & " /RP " & sPassword & " " & sInterval & " /TN SCTWakeUpPC /TR " & chr(34) & oShell.ExpandEnvironmentStrings("%SCTPath%") & "bin\AccessibilityTool.EXE" & chr(34) & " /ST " & stime End If CALL oShell.Run(sCmd, 0, True) msgbox ("You need to modify the new SCTWakeUpPC Scheduled Task so that it wakes up your computer.") msgbox ("When the Scheduled Tasks window opens, double-click the SCTWakeUpPC task, click the Settings tab, and click the " & chr(34) & "Wake the computer to run this task" & chr(34) & " checkbox.") Call oShell.Run("explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", 1, True) Call RegWrite(TOOLKITKEY & "SCTWakePC", "Yes", "REG_SZ") If oDiskProtect.Enabled then ' ~~~ Commit windows disk protection unless in retain changes mode If oDiskProtect.BootCommand <> "NO_CMD" Then msgbox ("After modifying the Scheduled Task you will need to restart your computer.") Call oDiskProtect.Commit End If End If End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: CreateSleepTask ' *** ------------------------------------------------------------------------------ ' *** Purpose: Creates a Scheduled task that puts a computer to sleep at the specified time ' *** ------------------------------------------------------------------------------ ' *** Sub CreateSleepTask Dim bInteractive sCmd = "wscript " & chr(34) & sAppDir & "scripts\SleepWakePC.wsf" & chr(34) & " /Standby" Call oDiskProtect.DeletescheduleTask(sCmd) sTime = Replace(sSleepTime,":","") sDay = "1248163264" bInteractive = False Call oDiskProtect.CreateScheduleTask(sCmd, sTime, sDay, bInteractive) Wscript.Echo Wscript.Echo "This computer will go into stand by every day at " & sSleepTime Wscript.Echo End Sub ' *** ' *** ------------------------------------------------------------------------------ ' *** Name: DeleteWakeUpTask ' *** ------------------------------------------------------------------------------ ' *** Purpose: Deletes scheduled tasks created by this tool ' *** ------------------------------------------------------------------------------ ' *** Sub DeleteWakeUpTask Call oShell.Run(chr(34) & sAppDir & "bin\schtasks.exe" & chr(34) & " /Delete /TN SCTWakeUpPC /F", 0, True) Call RegWrite(TOOLKITKEY & "SCTWakePC", "No", "REG_SZ") sCmd = "wscript " & chr(34) & sAppDir & "scripts\SleepWakePC.wsf" & chr(34) & " /Standby" Call oDiskProtect.DeletescheduleTask(sCmd) Wscript.Echo Wscript.Echo "All tasks created by this tool have been deleted..." Wscript.Echo End Sub ]]> </script> </job> </package>