home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileScripts002 < prev    next >
Encoding:
Extensible Markup Language  |  2005-09-02  |  9.3 KB  |  118 lines
  1.  ■<?xml version="1.0" ?>
  3. <package>
  5.     <comment>
  7. ' ***
  9. ' *** ------------------------------------------------------------------------------
  11. ' *** Filename:        AutoLogon.wsf
  13. ' *** ------------------------------------------------------------------------------
  15. ' *** Description:    Command-line tool to Autologon Windows XP with a specific account 
  17. ' *** ------------------------------------------------------------------------------
  19. ' *** Version:        1.0
  21. ' *** Notes:        
  23. ' *** ------------------------------------------------------------------------------
  25. ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved
  27. ' *** ------------------------------------------------------------------------------
  29. ' ***
  31.     </comment>
  33.     <job>
  35. <runtime>
  37.             <description>AutoLogon Tool</description>
  39.             <named name="enable" required="false" many="false" helpstring="Enable account to log on to Windows automatically" />
  41.             <named name="disable" required="false" many="false" helpstring="Disable automatic logon to Windows" />
  43.             <usage>
  45. AutoLogon Tool Usage Instructions
  47. ---------------------------------
  51. Options:
  53.     Enable  - Enable account to log on to Windows automatically.
  55.     Disable - Disable automatic logon to Windows.
  59. Example: AutoLogon.wsf /Enable username password
  61. Example: AutoLogon.wsf /Disable
  63. </usage>
  65.         </runtime>
  69.         <resource id="CScriptMessage">Restarting script in command-line mode. Run CmdOn.BAT to set command-line mode as the default mode.</resource>
  71.         <resource id="CScriptTitle">Shared Computer Toolkit: Windows Script Mode Detected</resource>
  75. <?job error="True" debug="False" ?>
  77. <script language="VBScript" src="../include/Common.vbs"></script>
  79. <script language="VBScript" src="../include/libWSF.vbs"></script>
  81. <script language="VBScript">
  83. <![CDATA[
  87. ' ~~~ 
  89. ' ~~~ Force variables to be declared 
  91. ' ~~~ 
  93. Option Explicit
  97. On Error Resume Next
  101. ' ~~~ Call the Main function
  103. Call Main("")
  107. ' ~~~ 
  109. ' ~~~ Declare global variables
  111. ' ~~~ 
  113. Dim sUser, sPassword 
  117. If WScript.Arguments.Named.Exists("enable") Then
  119.     sUser = Wscript.Arguments(1)
  121.     If sUser = "" Then
  123.         Wscript.Echo "Error: AutoLogon.wsf /Enable - requires an account"
  125.         Wscript.Arguments.ShowUsage
  127.     ElseIf IsValidUser(sUser) Then
  129.             sPassword = ""
  131.             sPassword = Wscript.Arguments(2)
  133.             RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", 1, "REG_SZ"
  135.             RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", sUser, "REG_SZ"
  137.             RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", sPassword, "REG_SZ"
  139.             RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", oNetwork.ComputerName, "REG_SZ"
  141.             RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ForceAutoLogon", 1, "REG_DWORD"
  143.             Wscript.Echo "Enabled the " & sUser & " account with password " & Chr(34) & sPassword & Chr(34) & " to Auto-Logon to Windows."
  145.             Wscript.Echo "To logon as a different user, press and hold the Shift key during logoff or while restarting the computer."
  147.     Else
  149.             Wscript.Echo "Error: AutoLogon.wsf /Enable - Please enter a valid user account"
  151.             Wscript.Arguments.ShowUsage
  153.     
  155.     End If
  157. ElseIf WScript.Arguments.Named.Exists("disable") Then
  159.     RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", 0, "REG_SZ"
  161.     RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "", "REG_SZ"
  163.     RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "", "REG_SZ"
  165.     RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", "", "REG_SZ"
  167.     RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ForceAutoLogon", 0, "REG_DWORD"
  169.     Wscript.Echo "Disabled Auto-Logon to Windows."
  171. Else
  173.     Wscript.Arguments.ShowUsage
  175. End If
  179. ' ***
  181. ' *** --------------------------------------------------------------------------------
  183. ' *** Name:        IsValidUser(sUser)
  185. ' *** --------------------------------------------------------------------------------
  187. ' *** Purpose:        Checks whether the user is valid 
  189. ' *** --------------------------------------------------------------------------------
  191. ' *** 
  193. Function IsValidUser(sUser)
  195.         Dim oAccount
  197.         
  199.         IsValidUser = True
  201.         
  203.         ' ~~~ Turn on error handling
  205.         On Error Resume Next
  209.         ' ~~~ Create wmi object & get sid
  211.         Set oAccount = oWMIService.Get("Win32_UserAccount.Name='" & sUser & "',Domain='" & oNetwork.ComputerName & "'")
  213.         If oAccount.SID = "" Then IsValidUser = False     
  215.         
  217.         Set oAccount = Nothing    
  219. End Function
  223. ' ~~~ Destroy objects
  225. UnLoadObjects()
  227. ]]>
  229.         </script>
  231. </job>
  233. </package>