home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileBin004 < prev    next >
Encoding:
Extensible Markup Language  |  2005-09-02  |  6.6 KB  |  112 lines
  1.  ■<?xml version="1.0" ?>
  3. <package>
  5.     <comment>
  7.     ' ***
  9.     ' *** ------------------------------------------------------------------------------
  11.     ' *** Filename:        banner.wsf
  13.     ' *** ------------------------------------------------------------------------------
  15.     ' *** Description:    Displays a full screen banner
  17.     ' *** ------------------------------------------------------------------------------
  19.     ' *** Version:        1.0
  21.     ' *** ------------------------------------------------------------------------------
  23.     ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved
  25.     ' *** ------------------------------------------------------------------------------
  27.     ' ***    
  31.     </comment>
  33.     <job>
  37.         <?job error="True" debug="False" ?>
  41.         <script language="VBScript" src="../include/Common.vbs"></script>
  43.         <script language="VBScript" src="../include/libWSF.vbs"></script>
  45.         <script language="VBScript" src="../include/clsDiskProtect.vbs"></script>
  47.         <script language="VBScript">
  49.         <![CDATA[
  51.             ' ~~~ 
  53.             ' ~~~ Force variables to be declared 
  55.             ' ~~~ 
  57.             Option Explicit
  63.             InitialiseAllObjects()
  65.             
  67.             ' ~~~
  69.             ' ~~~ Declare variables and constants
  71.             ' ~~~
  73.             Dim oDiskProtect, iWDPcmdver, sAppDir, oIE
  75.             Dim sCmd1, sCmd2, sCmd3
  77.         
  79.             iWDPcmdver = 9
  83.             Set oDiskProtect = New DiskProtect
  87.             sAppDir   = RegRead(TOOLKITKEY & "TargetDir")
  91.             If Not(oDiskProtect.Enabled) Then
  95.                 ' ~~~ ------------------------------------------------------------------------------
  97.                 ' ~~~ Delete any WDP AT commands left behind
  99.                 ' ~~~ ------------------------------------------------------------------------------
  103.                 Call oDiskProtect.DefineATCommands
  107.                 sCmd1 = oDiskProtect.sCmd1
  109.                 sCmd2 = oDiskProtect.sCmd2
  111.                 sCmd3 = oDiskProtect.sCmd3
  115.                 Call oDiskProtect.DeleteScheduleTask(sCmd1)
  117.                 Call oDiskProtect.DeleteScheduleTask(sCmd2)
  119.                 Call oDiskProtect.DeleteScheduleTask(sCmd3)
  121.                 Call oShell.Run(chr(34) & sAppDir & "bin\schtasks.exe" & chr(34) & " /Delete /TN SCTWakeUpPC /F", 0, True)
  125.                 QuitScript()
  129.             End If
  133.             ' ~~~ create internet explorer object and file system object
  135.             Set oIE  = WScript.CreateObject("InternetExplorer.Application", "ie_")
  139.             ' ~~~ set internet explorer object display options
  141.             oIE.AddressBar  = False
  143.             oIE.FullScreen  = True
  145.             oIE.MenuBar     = False
  147.             oIE.Resizable   = False
  149.             oIE.StatusBar   = False
  151.             oIE.ToolBar     = False
  153.             oIE.TheaterMode = False
  157.             ' ~~~ load about:blank
  159.             oIE.Navigate(Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & "banner.htm")
  163.             ' ~~~ display window
  165.             oIE.Visible = True
  169.             ' ~~~ wait a while
  171.             WScript.Sleep(10000)
  175.             ' ~~~ quit ie
  177.             oIE.Quit
  181.             If WScript.Arguments.Named.Exists("Restart") Then
  183.                 If Right(RegRead("HKLM\System\CurrentControlSet\Services\WDPOperations\parameters\Application"),7) = "restore" Then
  185.                     ' ~~~ reboot the machine in 60 secs
  187.                     WScript.Sleep(60000)
  189.                     Call oDiskProtect.Reboot
  191.                 Else
  193.                     QuitScript()
  195.                 End If
  197.             End If
  201.             ' ~~~ ------------------------------------------------------------------------------
  203.             ' ~~~ Destroy objects
  205.             ' ~~~ ------------------------------------------------------------------------------
  207.             Set oDiskProtect = nothing
  209.             Set oIE = nothing
  211.             UnLoadObjects()    
  215.         ]]>
  217.         </script>
  219.     </job>
  221. </package>