Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 18:06:46

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME D'ECRITURE DE CODE par PCPT

LISTVIEW ET TRI par Sator

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

+ de logiciels à télécharger

1 465 404 membres
449 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 303 306 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHANGER LE MOT DE PASSE ADMINISTRATEUR (EN VBS)

Information sur la source

Catégorie :Sécurité Niveau : Débutant Date de création : 28/07/2004 Vu : 26 479

Auteur : hodaking

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

9,20 / 10

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

JEU DE TANK ET UN ÉDITEUR DE NIVEAUX EN VBSCRIPT

JEU EN VBSCRIPT (SORTE DE SPACE INVADER)

CACHE UN SCRIPT DANS UN FICHIER (TRUC VRAIMENT SIMPLE POUR D...

ENVOYER UN MAIL AVEC VBSCRIPT (DU DÉJA VU SUR CE SITE)

ENVOIE DE MAILS ANONYMES AVEC VBS!!! (SANS PASSER PAR WINSOC...

Toutes les sources de hodaking

Sources de la même categorie

CRYPTAGE PAR MASQUE JETABLE par marthieu

COMMENT DÉMARRER UN PROCESSUS SUR PC DISTANT DE MANIÈRE CACH... par violent_ken

MOT DE PASS AVEC POSSIBILITÉ DE MULTIUSER par amita

FILE FOLDER LOCKER - BLOQUER (ET DÉBLOQUER) L'ACCÈS À CERTAI... par PCPT

DU SPAM POUR LES SPAMMERS par gperuch

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