Soyez le premier à donner votre avis sur cette source.
Snippet vu 24 644 fois - Téléchargée 18 fois
dim net strcomputer = inputbox("Nom de la machine a modifier le nom","Changer Mot de pass Administrateur Local","") admin = inputbox ("Nom de l'administrateur Reseau","Changer Mot de pass Administrateur Local","") pass = inputbox("Mot de pass administrateur Reseau","Changer Mot de pass Administrateur Local","") npass = inputbox("Nouvelle mot de pass","Changer Mot de pass Administrateur Local","") Set net = CreateObject("WScript.Network") Set dso = GetObject("WinNT:") Set oUser = dso.OpenDSObject("WinNT://" & strComputer & "/Administrateur, user", admin , pass , 1) oUser.SetPassword npass oUser.SetInfo wscript.echo " Terminer"
trés bien mon amis c cool mais je veux savoir comment intégrer ce code vbs dans un projet vb 2010
merci beaucoup
c'est le script que je cherchais.
Merci beaucoup pour ton aide
Bruno
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.