Bonjour,
Récemment, j'ai reçu l'aide de h2so4 pour cette demande
Le résultat fonctionne, mais j'aimerais masquer le mot de passe saisie en le remplaçant par des étoiles, et bien que je trouve des pistes, je n'arrive pas a effectuer la modification par moi même (ça fait quelques jours que je recherche)
Le code actuel (qui fonctionne) ci-dessous (je précise que j'ai déjà apporté des modifications et les corrections sont les bienvenues)
Dim userid, password
Sub getIPsubnet()
If userid = "" Then
userid = Range("Valeurs!F14")
password = InputBox("Password")
End If
server_name = Range("E3")
Set dod = New MSForms.DataObject
commande = "wmic /node:" & server_name & " /user:STORES\" & userid & " /password:" & password & " /output:CLIPBOARD nicconfig get IPsubnet "
Shell commande, vbNormalFocus
dl = Cells(Rows.Count, 1).End(xlUp).Row + 1
On Error GoTo erreur
Application.Wait Now + TimeValue("0:00:02")
dod.GetFromClipboard
subnet = Split(dod.GetText(1), "{")(1)
subnet = Split(subnet, "}")(0)
Sheets("Valeurs").Range("A7") = subnet
Exit Sub
erreur:
If Err <> 0 Then MsgBox "Réponse non reçue"
End Sub
J'ai pu créer une text box et trouver le champs PasswordChar, et j'ai naïvement tenté de remplacer InputBox par textbox1 (ne riez pas) mais j'imagine que ça ne surprendra personne si je dis que ça n'a pas fonctionné...
Votre aide serait la bienvenue...
Merci d'avance