Cacher montrer une session sous windows xp
Soyez le premier à donner votre avis sur cette source.
Vue 14 485 fois - Téléchargée 1 290 fois
Description
Deux petit prog en vbs, le premier permet de cacher une session (HideUser.vbs), et l'autre de montrer la session (ShowUser.vbs)
c'est ma dernière version
Source / Exemple :
'HideUser
'Cacher l'utilisateur de l'écran de bienvenue de Windows XP
Option Explicit
'Declare variables
Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt
'set variables
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
itemtype = "REG_DWORD"
n = 0
Prompt = "Entrez le nom d'utilisateur que vous souhaitez cacher."
Title = "Cacher un utilisateur sur l'écran d'accueil"
User = InputBox(Prompt, Title,"")
If User = "" Then
Title = "Erreur!"
Prompt = "Vous n'avez rien saisi."
MyBox = MsgBox(Prompt,4096,Title)
Else
p = p & User
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite p, n, itemtype
Title = "Succès"
Prompt = User & " est maintenant caché sur l'écran d'accueil."
MyBox = MsgBox(Prompt, 4096, Title)
End If
Set WshShell = Nothing
'/////////////////////////////////////////////////////////////////////////////////
'ShowUSer
'Montrer l'utilisateur de l'écran de bienvenue de Windows XP
Option Explicit
'Declare variables
Dim WSHShell, n, p, itemtype, MyBox, User, Title, Prompt
'set variables
p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\"
itemtype = "REG_DWORD"
n = 1
Prompt = "Entrez le nom d'utilisateur que vous souhaitez montrer."
Title = "Montrer un utilisateur sur l'écran d'accueil"
User = InputBox(Prompt, Title,"")
If User = "" Then
Title = "Erreur!"
Prompt = "Vous n'avez rien saisi."
MyBox = MsgBox(Prompt,4096,Title)
Else
p = p & User
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite p, n, itemtype
Title = "Succès"
Prompt = User & " n 'est plus caché sur l'écran d'accueil."
MyBox = MsgBox(Prompt, 4096, Title)
End If
Set WshShell = Nothing
Conclusion :
c'est ma dernière version
Codes Sources
A voir également
- Showuser
- Variable de session et win xp / win 2000 en local - Codes sources - ASP / ASP.NET (Astuces)
- Cacher son prog de la taskbar avec win xp ✓ - Forum - Visual Basic
- Eteindre windows xp, etc... - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Visual Basic / VB.NET : Kill process win2k winxp - CodeS SourceS - Guide
- Windows xp configuration - Codes sources - Visual Basic / VB.NET (Base de registre)
21 déc. 2010 à 10:42
comment fait on si on ne connait pas le nom de la session cachée.. Ce sont mes enfants qui l'ont créé pour jouer en cachette. est ce que je peux la supprimer ?
merci d'avance.
7 oct. 2008 à 19:37
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.