---

Hallo an Alle!

Hat jemand von Euch eine Idee, wie ich die Eingabe der INPUTBOX durch Sternchen "ausblenden" kann? Ich würde mich auch über jedes andere monotone Zeichen freuen, nur eben nicht über die klar sichtbare Anzeige der Eingabe.

passwort  = inputbox("Bitte Passwort eingeben: ", "Passwort", "<eingeben!>")

In VB könnte man es sicherlich programmieren, aber ich wollte im VBS bleiben.

------------------
lg, der Hausmeister
_______________________________________

Ich bin /root, ich darf das!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und dann machst Du im vbs die Abfrage

wenn Eingabe ist gleich Passwort dann mach weiter sonst hör auf

Ein vbs kann jeder anschauen, also was soll das Verstecken bringen 

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PW.zip

Hi,

ich kenne nur den vbs weg über den explorer, ist IMHO aber auch der einzige. Es sein denn du willst den Weg über die DOS-BOX gehen...

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich brauche das PW zum Auslösen einer Aktion im Netzwerk. Das VBS ist dann nach dieser Aktion beendet und damit die Variable wech ....

Der Sinn war eben, es nicht in das VBS zu schreiben, aber auch vor neugierigen Blicken geschützt zu sein.

Nach Abfrage von Name und PW folgt doch:

Set wn = WScript.CreateObject("WScript.Network")
wn.MapNetworkDrive "x:", "\\<server>\<Freigabename>", False, user, passwort

Ich frage die Variablen "user" und "passwort" genau dafür ab, damit ich es nicht fest reinschreiben muß.

------------------
lg, der Hausmeister
_______________________________________

Ich bin /root, ich darf das!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PWII.zip

Hi,

dann versuche das hier ...
einfach in eine vbs kopieren ... und mit ner Batch aufrufen....

Code:

---

On Error Resume Next

Const WbemAuthenticationLevelPktPrivacy = 6

Wscript.StdOut.Write "Lokaler Administrator des Remote PCs:"
strUser = WScript.StdIn.ReadLine

Set objPassword = CreateObject("ScriptPW.Password")

WScript.StdOut.Write "Passwort:"
strPassword = objPassword.GetPassword()

Wscript.Echo

Wscript.StdOut.Write "Verbinden mit PC (Leer = Abbrechen):"
strComputer = WScript.StdIn.ReadLine

If strComputer = "" Then
    Wscript.Quit
End If
' =====================================================================

---

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Hinweis, ich probiere es aus ... geht aber erst abends.

------------------
lg, der Hausmeister
_______________________________________

Ich bin /root, ich darf das!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@VBSpawn

Danke, beide Variante funktionieren. Es ging wirklich nur um die neugierigen Blicke. Problem gelöst.

------------------
lg, der Hausmeister
_______________________________________

Ich bin /root, ich darf das!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP