Changer le mot de passe administrateur (en vbs)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 37 844 fois - Téléchargée 30 fois

Contenu du snippet

Script permettant de changer un mot de passe admin:

Source / Exemple :


set a=createobject("wscript.network")
nom=a.computername

utilisateur=inputbox("Nom de l'utilisateur:","UTILISATEUR")

mot=inputbox("Mot de passe:","PASSWORD")

set b=getobject("WinNT://"& nom &"/"& utilisateur &",user")
if mot=""  and utilisateur<>"" then
c=msgbox("Vous n'avez pas stipulé un mot de passe."&vbnewline&"Souhaitez vous enlever le mot de passe actuel?",vbsystemmodal+vbyesno+vbinformation,"ATTENTION!!!")

if c=vbyes then

b.setpassword(mot)

msgbox"Mot de passe enlevé sur le compte: "&utilisateur&"."
end if
if c=vbno then
msgbox"AUREVOIR!"
end if
end if
if mot<>"" and utilisateur<>"" then
b.setpassword(mot)
msgbox"Votre mot de passe est désormai: "&mot&" sur le compte: "&utilisateur&".",vbinformation,"ATTENTION"
end if

Conclusion :


Voila! C'est tout! Je ne sais pas sur quel version de windows il ne fonctionne pas!
Sur win XP c'est sûr il fonctionne!
PS: Vous devez bénéficier des privilèges d'un compte administrateur pour que ce srcipt
fonctionne! ATTENTION SI VOUS ETES SUR WINXP familiale EVITEZ DE METTRE UN MOT DE PASSE AU COMPTE QUI SAPPEL:"Administrateur". C'est votre roue de secours en cas d'oublie de mot de passe! Les instructions sont dessous:

_____________________________OUBLIE DE MOT DE PASSE__________________
Si vous ne vous souvenez plus de votre mot de passe:
Au démarrage de windows tapez sur F8 et selectionnez le mode sans echecs.
Suivez les instructions et choisissez le compte: "Administrateur". Vous bénéficierez des privilèges d'un compte administrateur . Allez dans panneaux de configuration et dans comptes d'utilisateurs et selectionnez le compte dont vous ne vous souvenez pas le mot de passe! Changez le mot de passe!

@+

A voir également

Ajouter un commentaire

Commentaires

daetips
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007
-
Puissant. merci 10/10
cs_YsF
Messages postés
8
Date d'inscription
vendredi 31 décembre 2004
Statut
Membre
Dernière intervention
16 août 2005
-
Domage que ça ne marche pas sur un compte limité.
cs_popo66
Messages postés
4
Date d'inscription
lundi 28 novembre 2005
Statut
Membre
Dernière intervention
9 janvier 2006
-
simplissime mais bravissimo sa a le merite de fonctioner a peu de frai sous windows, j'aimerai voir le meme genre de petit prodige avec les sécuritées d'unix Linux
BasicInstinct
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10 -
Vraiment bien comme code.

Je suis en train de modifier ce code, en le passant en VB6.

quand tu fais :
set b=getobject("WinNT://"& nom &"/"& utilisateur &",user")
Quel est le type de b ??

++
marssoupio
Messages postés
72
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
2 novembre 2014
-
Slt j'ai trouvé super ton petit prog en vbs pour modifier les mot de passe adminitrateur et utilisateur. Si on peu modifier un password avec un vbs on peu peu-être voir le password avec vbs, as tu déjà fais ce genre de prog.
Merci de répondre et pourquoi pas de faire si c'est possible ce vbs.
merci

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.