Открыть редактор реестра в указанной ветке

<?xml version="1.0" encoding="Windows-1252"?>
<x-setup-pro-item version="1" type="plugin">
 
<xspitem type="checkbox" version="2.02" adminreq="1"/>
 
<xspitem-author>
 <name>Xteq Systems</name>
 <url>http://www.xteq.com/</url>
 <copyright>Copyright © Xteq Systems - All Rights Reserved</copyright>
</xspitem-author>
 
<xspitem-osversion>
  <winNT>1</winNT>
  <win2000>1</win2000>
  <winXP>1</winXP>
  <win2003>1</win2003>
</xspitem-osversion>
 
<xspitem-comment> <![CDATA[
Modified by AXCEL216 [axcel216@aol.com] on 4-11-2002.
Thanks to Tony Jaeger [tony_jaeger@msn.com] for the Startup/Shutdown folder idea!
Microsoft Knowledge Base Article - 315231
See this web page for more details: [url]http://members.aol.com/axcel216/2k1.htm#BAIW[/url]
]]> </xspitem-comment>
 
<xspitem-text>
 <name>General</name>
 <paths>
 <path>Network\Auto Login\Windows</path>
 <path>Startup/Shutdown\Startup\Windows\29) Auto Login</path>
 </paths>
 <items>
 <item>Enable auto login</item>
 <item>Enable Shift override</item>
 </items>
 <strings>
  <string>NOTE: To log on to the system as a different user, hold down the Shift key after logging off to reenable the normal Logon dialog box prompt.</string>
  <string>WARNING: Shift override is now DISABLED. To reenable the normal login prompt you MUST make sure you are able to access X-Setup in the future using the SAME configured user name in order to disable auto login again!</string>
  <string>A AutoLogin Count value has been found inside the registry. Depending on the value of this setting, AutoLogin might work or not. Please use the ґAutoLogin Countґ plug-in to check this value and its description.</string>
 </strings>
 <description> <![CDATA[
Auto login can be used to bypass the sometimes nagging "Press Ctrl+Alt+Del to login" screen at bootup.
Enable auto login ONLY IF you have already set the correct values using the "Settings" plug-in.
You MUST enable "Auto login count" to take advantage of the auto login feature more than ONCE. The maximum allowed value [4294967295] is used here. This represents how many times you can auto login.
To temporarily stop auto login (ONLY IF enabled), for example to logon as a different user, press and hold the SHIFT key before the "Login" screen appears. This will allow you to logon by entering any (other) valid user name and password.
CAUTION: It is advised to disable "Shift override" for security reasons, e.g. on a POS (Point of Sales) terminal.
WARNING: Your password and user name information are kept in the system Registry *non-encrypted*, and could be revealed if anyone were to logon locally onto your machine, and use the Registry Editor. We suggest to only use this if you have non-critical data on your computer and/or if your machine is located in a secure physical environment.
NOTE: You can also bypass the login prompt by using the Windows 2000/XP/.Net "Accounts and Passwords" applet inside Control Panel.
 ]]> </description>
</xspitem-text>
 
<xspitem-code language="VBScript"> <![CDATA[
sRP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
 
Sub Plugin_Initialize
 if RegPathExists(sRP) then
  i=RegReadValue(sRP&"AutoAdminLogon")
  if i=1 then
   SetUIElement 1,true
  end if
 
'  i=RegReadValue(sRP&"AutoLogonCount")
'  if i=4294967295 then
'   SetUIElement 2,true
'  end if
 
  i=RegReadValue(sRP&"IgnoreShiftOverride")
  if IsEmpty(i) or i=0 then
   SetUIElement 2,true
  end if
 
 else
  Disable
 end if
End Sub
 
Sub Plugin_CheckData(ElementIndex)
End Sub
 
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
 b1=GetUIElement(1)
' b2=GetUIElement(2)
 b3=GetUIElement(2)
 
 if b1=true and b3=true then
    Call MsgWarningTextString(1)
 end if
 
 if b1=true and b3=false then
    Call MsgWarningTextString(2)
 end if
 
 if RegValueExists(sRP & "AutoLogonCount") then
    Call MsgWarningTextString(3)
 end if
 
 
 
 if b1=true then
    Call RegWriteValue(sRP & "AutoAdminLogon","1",1)
 else
  s=RegReadValue(sRP&"AutoAdminLogon")
 
  if IsNull(s)=false and Len(s)>0 then
     Call RegDeleteValue(sRP&"AutoAdminLogon")
  end if
 end if
 
' if b2=true then
'    Call RegWriteValue(sRP&"AutoLogonCount",4294967295,2)
' else
'    s=RegReadValue(sRP&"AutoLogonCount")
'
'  if IsNull(s)=false and Len(s)>0 then
'  Call RegDeleteValue(sRP&"AutoLogonCount")
'  end if
' end if
 
 if b3=true then
    if RegValueExists(sRP&"IgnoreShiftOverride") then
       Call RegDeleteValue(sRP&"IgnoreShiftOverride")
    end if
 else
    Call RegWriteValue(sRP&"IgnoreShiftOverride","1",1)
 end if
 
 
 Call Restart
End Sub
 
 
Sub Plugin_Terminate
End Sub
]]> </xspitem-code>
 
</x-setup-pro-item>