begin process at 2012 02 09 02:37:38
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Sécurité

 > CHANGER LE MOT DE PASSE ADMINISTRATEUR (EN VBS)

CHANGER LE MOT DE PASSE ADMINISTRATEUR (EN VBS)


 Information sur la source

Note :
9,2 / 10 - par 10 personnes
9,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Sécurité Niveau :Débutant Date de création :28/07/2004 Vu :33 167
Auteur : hodaking

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

Script permettant de changer un mot de passe admin:

Source

  • 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 
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!

@+


 Sources du même auteur

Source avec Zip Source avec une capture JEU DE TANK ET UN ÉDITEUR DE NIVEAUX EN VBSCRIPT
Source avec Zip Source avec une capture JEU EN VBSCRIPT (SORTE DE SPACE INVADER)
CACHE UN SCRIPT DANS UN FICHIER (TRUC VRAIMENT SIMPLE POUR D...
Source avec Zip ENVOYER UN MAIL AVEC VBSCRIPT (DU DÉJA VU SUR CE SITE)
Source avec Zip ENVOIE DE MAILS ANONYMES AVEC VBS!!! (SANS PASSER PAR WINSOC...
Toutes les sources de hodaking

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) CHIFFREMENT XOR PLUS ROBUSTE par dheroux
Source avec Zip CRYPTAGE MARANT par alpha5
Source avec Zip ACCÈS PAR MOT DE PASSE À FEUILLE EXCEL par mimiZanzan
Source avec Zip CRYPTER-DÉCRYPTER UN TEXTE - TEXTE CRYPTÉ UNIQUEMENT EN MAJ... par Saintache
Source avec Zip Source avec une capture FOLDER PROTECTION par hackoo
Toutes les sources de la catégorie Sécurité

Commentaires et avis

Commentaire de daetips le 28/07/2004 23:06:27

Puissant. merci 10/10

Commentaire de YsF le 19/07/2005 00:07:59

Domage que ça ne marche pas sur un compte limité.

Commentaire de popo66 le 30/11/2005 13:57:34

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

Commentaire de BasicInstinct le 05/07/2006 09:31:55

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 ??

++

Commentaire de marssoupio le 21/10/2006 03:28:50

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

Commentaire de hodaking le 30/10/2006 01:00:01

Marssoupio. j'aimerai tant pouvoir faire ça avec un script de ce genre. Je chercherai une astuce. Pour l'instant la seule astuce que jai pour avoir des mots de passe, c'est de recréer une fenêtre identique à celle dans laquelle l'utilisateur tape son mot de passe. Et par la suite le mot de passe est enregistré dans un fichier ou est envoyé sur le web. Mais bon. C'est un peu froduleux cette astuce, mais ça marche.

Commentaire de hodaking le 30/10/2006 01:11:12

BasicInstinct: Je pense que b n'est rien d'autre qu'un objet de connexion réseau. La seule fonction que j'ai trouvé sur lui est setpassword. Je tenterai te trouver un getpassword. Mais je crois que ce n'est pas aussi simple. Car les mots de passe de windows sont cryptés et se trouvent dans un fichier caché appelé sam. On peut, je crois casser la sécurité de ce fichier grace à un utilitaire comme brutus. mais j'en suis pas sûr. Mais Ce genre de manip laisse des traces. Je préfère la furtivité. Bref, LOL(pourquoi je parle de ça moi?) En gros pour te dire que je n'ai pas vraiment expérimenté toutes ses possibilités.

Commentaire de form1 le 01/01/2007 01:20:16

salut tous le monde je voulais savoire comment ont fait pour l'utiliser y'a méme pas de lien pour le télécharger

Commentaire de telemat92 le 25/01/2007 07:20:06

merci

Commentaire de prokilleur le 01/02/2008 03:35:50 10/10

Bravo 10/10

Commentaire de MrFantasy le 23/09/2008 21:09:05

Merci bien

Commentaire de hikl le 24/06/2009 18:27:25

merci pour ce code en veux selement savoir comment l'utiliser sous winxp

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Saintes Maries de la Mer vue du ciel (13)
Photo Renewable Energy is Within Reach 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,593 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)