forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Show Administratior account on Logon WinXp screen

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 6 Source Code
View previous topic :: View next topic  
Author Message
Tdk161
Valued Contributor
Valued Contributor


Joined: 08 Feb 2005
Posts: 399
Location: ITALY

PostPosted: Thu May 20, 2010 10:58 am    Post subject: Show Administratior account on Logon WinXp screen Reply with quote

Hi,
this is the sorce code of my Show Administrator user on WinXp's logon screen

Code:
#-----------------------------------------------------------------------------#
#                                                                             #
# Module:                                                                     #
#                                                                             #
# Author: Andrea Sperotti                                                     #
#                                                                             #
# Copyright: 2005/2006                                                        #
#                                                                             #
#-----------------------------------------------------------------------------#
Title Show Admin

  DIALOG CREATE,Show Admin,-1,0,160,65,ONTOP,BALLOONTIPS,SMALLCAP
  DIALOG ADD,STYLE,STYLE1,Verdana,10,,,
  DIALOG ADD,BUTTON,Annulla,42,111,44,20,Close,Close and exit
  DIALOG ADD,BUTTON,Abilita,10,8,64,24,Show,Enable showing Administrator user on Logon screen
  DIALOG ADD,BUTTON,Disabilita,10,89,64,24,Hide,Disable showing Administrator user on Logon screen
  DIALOG SHOW
:Loop
  %%Dato = @RegRead(HLM,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList,Administrator,0)

  If @Greater(%%Dato,0)
    Dialog Disable,Abilita
    Dialog Enable,Disabilita
  Else
    Dialog Enable,Abilita
    Dialog Disable,Disabilita
  End
  Wait Event
  %t = @Event()
  Goto %t
 
:AbilitaButton
 Registry Write,HLM,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList,Administrator,1,DWORD
 If @Ok()
   Info Success
 Else
   Warn Error
 End
Goto Loop
 
:DisabilitaButton
 Registry Write,HLM,SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList,Administrator,0,DWORD
 If @Ok()
   Info Success
 Else
   Warn Error
 End
Goto Loop

:Close
:AnnullaButton
Stop
 




Byez
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 6 Source Code All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group