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)

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
alexandradelmas
Messages postés
1
Date d'inscription
mardi 21 décembre 2010
Statut
Membre
Dernière intervention
21 décembre 2010

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

7 oct. 2008 à 19:37
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.