home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileScripts015 < prev    next >
Encoding:
Extensible Markup Language  |  2005-09-02  |  13.1 KB  |  179 lines
  1.  ■<?xml version="1.0" ?>
  3. <package>
  5.     <comment>
  7.         ' *** 
  9.         ' *** ------------------------------------------------------------------------------
  11.         ' *** Filename:        Welcome.wsf
  13.         ' *** ------------------------------------------------------------------------------
  15.         ' *** Description:    Command line tool to enable/disable user accounts
  17.         ' ***                 This file parses command line parameters and calls functions
  19.         ' ***                 that are defined in clsWelcome.vbs
  21.         ' *** ------------------------------------------------------------------------------
  23.         ' *** Version:        1.0
  25.         ' *** Notes:        
  27.         ' *** ------------------------------------------------------------------------------
  29.         ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved
  31.         ' *** ------------------------------------------------------------------------------
  33.         ' *** 
  35.     </comment>
  37.     <job>
  39.     <runtime>
  41.         <description>Welcome Script</description>
  43.         <named name="enable"    required="false"  many="false"  helpstring="Adds the user account to Windows Welcome." />
  45.         <named name="disable"    required="false"  many="false"  helpstring="Removes the user account from Windows Welcome." />
  47.         <example>Example: Welcome.wsf /enable user</example>
  49.     </runtime>
  51.     
  53.         <resource id="IncorrectUsage">Incorrect Usage Detected</resource>
  55.         <resource id="ScriptName">Welcome.wsf</resource>
  57.         <resource id="EnableSuccess">The specified account has been added to Windows Welcome.</resource>
  59.         <resource id="DisableSuccess">The specified account has been removed from Windows Welcome.</resource>
  61.         <resource id="DomainMember1">This computer is part of a Windows domain.</resource>
  63.         <resource id="DomainMember2">The Windows Welcome screen will not display.</resource>
  65.         <resource id="InvalidUser">The specified account is not valid.</resource>
  67.         <resource id="AdminErrorMsg">You have to be an administrator to use this script.</resource>
  69.         <resource id="Enabled">The specified account has already been added to Windows Welcome.</resource>
  71.         <resource id="Disabled">The specified account has already been removed from Windows Welcome.</resource>
  73.         <resource id="CScriptMessage">Restarting script in command-line mode. Run CmdOn.BAT to set command-line mode as the default mode.</resource>
  75.         <resource id="CScriptTitle">Shared Computer Toolkit: Windows Script Mode Detected</resource>
  77.                 
  79.     <?job error="True" debug="False" ?>
  81.     
  83.         <script language="VBScript" src="../include/Common.vbs"></script>
  85.         <script language="VBScript" src="../include/libWSF.vbs"></script>
  87.         <script language="VBScript" src="../include/clsLogging.vbs"></script>
  89.         <script language="VBScript" src="../include/clsWelcome.vbs"></script>
  91.         <script language="VBScript">
  93.         <![CDATA[
  95.             ' ~~~ 
  97.             ' ~~~ Force variables to be declared 
  99.             ' ~~~ 
  101.             Option Explicit
  103.             
  105.             ' ~~~ Call the Main sub
  107.             Call Main ("")
  109.             
  111.             ' ~~~ 
  113.             ' ~~~ Declare variables and constants
  115.             ' ~~~ 
  117.             Dim oWelcome, oLog , bOK, args, bResult
  119.             
  121.             ' ~~~ Create Welcome object
  123.             Set oWelcome = New Welcome
  125.                     
  127.             ' ~~~ ------------------------------------------------------------------------------
  129.             ' ~~~ Logging
  131.             ' ~~~ ------------------------------------------------------------------------------
  133.             ' ~~~ Create logging object
  135.             Set oLog = New Logging
  139.             ' ~~~ Initiate logging
  141.             Call oLog.Open(GetRootFolder & "\log\Welcome.wsf.log")
  143.             Call oLog.Write("Welcome.wsf : Started")
  147.             
  149.             ' ~~~ ------------------------------------------------------------------------------
  151.             ' ~~~ Check script usage
  153.             ' ~~~ ------------------------------------------------------------------------------
  155.             bOK = True
  157.             Set args = WScript.Arguments
  159.             Select Case args.Count
  161.                 Case 0 ,1,3
  163.                     bOK = False
  165.             End Select
  167.             
  169.             
  171.             If Not(bOK) Then
  173.                 Call oLog.Write(getResource("ScriptName") & " : " & getResource("IncorrectUsage"))
  175.                 WScript.Arguments.Showusage
  177.                 QuitScript()
  179.             End If
  181.             
  183.             ' ~~~ ------------------------------------------------------------------------------
  185.             ' ~~~ Now do enable/disable
  187.             ' ~~~ ------------------------------------------------------------------------------
  189.             
  191.             ' ~~~ Enable the account 
  193.             If Wscript.Arguments.Named.Exists("enable") Then
  195.                 bOK = True
  197.                 oWelcome.User = args(1)
  199.                 bResult = oWelcome.Enable
  201.                 If bResult = 0 Then
  203.                         Call oLog.Write("enable : " & getResource("EnableSuccess"))
  205.                         WScript.Echo getResource("EnableSuccess")
  207.                         If DomainMember then 
  209.                             WScript.Echo
  211.                             WScript.Echo getResource("DomainMember1")
  213.                             WScript.Echo getResource("DomainMember2")
  215.                             WScript.Echo
  217.                         End If
  219.                         QuitScript()
  221.                 ElseIf bResult = 1 Then
  223.                         Call oLog.Write("enable : " & getResource("InvalidUser"))
  225.                         WScript.Echo getResource("InvalidUser")
  227.                         WScript.Arguments.Showusage
  229.                         QuitScript()
  231.                 ElseIf bResult = 2 Then    
  233.                         Call oLog.Write("enable : " & getResource("Enabled"))
  235.                         WScript.Echo getResource("Enabled")
  237.                         If DomainMember then 
  239.                             WScript.Echo
  241.                             WScript.Echo getResource("DomainMember1")
  243.                             WScript.Echo getResource("DomainMember2")
  245.                             WScript.Echo
  247.                         End If
  249.                         WScript.Arguments.Showusage
  251.                         QuitScript()
  253.                 End If                
  255.             End If
  257.             
  259.             ' ~~~ Disable the account
  261.             If Wscript.Arguments.Named.Exists("disable") Then
  263.                 bOK = True
  265.                 oWelcome.User = args(1)
  267.                 bResult = oWelcome.Disable
  269.                 If bResult = 0 Then
  271.                     Call oLog.Write("disable : " & getResource("DisableSuccess"))
  273.                     WScript.Echo getResource("DisableSuccess")
  275.                     If DomainMember then 
  277.                         WScript.Echo
  279.                         WScript.Echo getResource("DomainMember1")
  281.                         WScript.Echo getResource("DomainMember2")
  283.                         WScript.Echo
  285.                     End If
  287.                     QuitScript()
  289.                 ElseIf bResult = 1 Then
  291.                     Call oLog.Write("disable : " & getResource("InvalidUser"))
  293.                     WScript.Echo getResource("InvalidUser")
  295.                     WScript.Arguments.Showusage
  297.                     QuitScript()
  299.                 ElseIf bResult = 2 Then
  301.                     Call oLog.Write("disable : " & getResource("Disabled"))
  303.                     WScript.Echo getResource("Disabled")
  305.                     If DomainMember then 
  307.                         WScript.Echo
  309.                         WScript.Echo getResource("DomainMember1")
  311.                         WScript.Echo getResource("DomainMember2")
  313.                         WScript.Echo
  315.                     End If
  317.                     WScript.Arguments.Showusage
  319.                     QuitScript()
  321.                 End If
  323.             End If
  325.             
  327.             If Not(bOK) Then
  329.                 Call oLog.Write(getResource("ScriptName") & " : " & getResource("IncorrectUsage"))
  331.                 WScript.Arguments.Showusage
  333.                 QuitScript()
  335.             End If
  337.             
  339.             ' ~~~ Destroy objects
  341.             UnLoadObjects()
  343.             Set oWelcome = nothing
  345.             Set oLog = nothing
  347.         ]]>
  349.         </script>
  351.     </job>
  353. </package>