Cacher montrer une session sous windows xp

Soyez le premier à donner votre avis sur cette source.

Vue 14 421 fois - Téléchargée 1 282 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)

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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mardi 21 décembre 2010
Statut
Membre
Dernière intervention
21 décembre 2010

bonjour,

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.
Messages postés
13
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
30 octobre 2008

Le code est mal ecrit il indique "racine incorecte"

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.