[VBS] wachtwoord als sterretjes weergeven

[josoetgebrook]

Ik ben bezig een script te maken om medewerkers automatisch verbinding te laten maken met een aantal mappen en printers.

Dit is voor medewerkers die draadloos op een laptop werken en die niet ingelogd zijn op het domein.

In het script wordt gevraagd naar de gebruikersnaam, het wachtwoord, en de locatie om te bepalen met welke printer wordt verbonden.

Dit is wat ik tot nu toe heb:

VBScript:

set wshshell=wscript.createobject ("wscript.shell")
username=inputbox ("Geef usernaam op")
password=inputbox ("Geef password op")
vleugel=inputbox ("In welke vleugel van het gebouw bevind u zich? A,B,C,D")
etage=inputbox ("Op welke etage bevind u zich?")
wshshell.run "Net use G: \\server\" & username &"$ /user:" & username &" "&password
wshshell.run "Net use G: \\server\" & username &"$ /user:" & username &" "&password
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\server\pad" & vleugel &"-" & etage & "-01"
PrinterDriver = "PrinterDriver"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\server\pad" & vleugel &"-" & etage & "-01"
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\server\pad"
PrinterDriver = "PrinterDriver"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver

Bij password=inputbox ("Geef password op") zal ik iets moeten wijzigen om het wachtwoord verborgen te krijgen, maar ik weet niet wat.

[ Voor 3% gewijzigd door josoetgebrook op 01-11-2007 11:19 ]

[Poltergeist]

Een keer zoeken met google:

http://www.microsoft.com/.../qanda/feb05/hey0204.mspx

[BtM909]

Heb je al een beetje gezocht op internet. Simpelweg [google=vbs password input] levert een hele hoop op. O.a.: http://www.microsoft.com/.../qanda/feb05/hey0204.mspx en dan is het dus aan jou om te bekijken of het relevant voor je is of niet

[josoetgebrook]

Poltergeist schreef op donderdag 01 november 2007 @ 11:19:
Een keer zoeken met google:

http://www.microsoft.com/.../qanda/feb05/hey0204.mspx

Waarop heb je gezocht?

Ik ben al 3 dagen aan het zoeken, vooral ook met google

[remco_k]

Ik ken de inputbox van VBS niet, maar die kan volgens mij geen * weergeven. Tenzij hij daarvoor een parameter heeft. Zie help van VB.

De andere (veel mooiere) oplossing is om zelf even een login venstertje te maken met een 2 Edits erop. 1 Edit voor username, 2e voor password. De 2e Edit zet je de property Password char op *.
(of iets dergelijks).Ik denk dat dit niet kan met VBS.

Edit: /langzaam

[ Voor 7% gewijzigd door remco_k op 01-11-2007 11:23 ]

[Poltergeist]

josoetgebrook schreef op donderdag 01 november 2007 @ 11:20:
[...]


Waarop heb je gezocht?

Ik ben al 3 dagen aan het zoeken, vooral ook met google

vbs password input

En dan is het de eerste link...

[josoetgebrook]

BtM909 schreef op donderdag 01 november 2007 @ 11:19:
Heb je al een beetje gezocht op internet. Simpelweg [google=vbs password input] levert een hele hoop op. O.a.: http://www.microsoft.com/.../qanda/feb05/hey0204.mspx en dan is het dus aan jou om te bekijken of het relevant voor je is of niet

Die link ben ik inderdaad al tegen gekomen.

Voor zover ik het goed begrijp is het dus noodzakelijk om 2 bestanden te gebruiken. Als het kan wil ik het liefst met 1 bestand werken. Ik heb geprobeerd om de code in het bestand te plaatsen in plaats van de regel password=inputbox ("Vul uw password in") maar dan krijg ik een foutmelding verwijzend naar het de regel Set ScriptPW = CreateObject("ScriptPW.Password")

Als ik 2 bestanden moet gebruiken, wordt het me niet duidelijk hoe deze bestanden naar elkaar verwijzen.

[Poltergeist]

Alleen als je Windows 2000 gebruikt heb je de oplossing met twee bestanden nodig, anders kun je het eerste script gebruiken.

Met de twee bestanden oplossing wordt het HTML bestand gestart door het VBS bestand. Deze blijft wachten totdat er een knop is ingedrukt, en daarna wordt gekeken welk wachtwoord is ingevoerd...

[Equator]

Loggen deze gebruikers in op de latptop met andere gebruikersnamen dan?
Want in weze kan je natuurlijk ook gewoon de cached credentials gebruiken voor het verbinden met de resources.. Dan hoef je helemaal niet te vragen naar gebruikersnamen/wachtwoorden..

[BtM909]

Ik had een losse tool die je kan aanroepen en vervolgens het wachtwoord in een environment variable stopt.

Ik ben druk aan 't zoeken voor je.

[josoetgebrook]

Equator schreef op vrijdag 02 november 2007 @ 09:38:
Loggen deze gebruikers in op de latptop met andere gebruikersnamen dan?
Want in weze kan je natuurlijk ook gewoon de cached credentials gebruiken voor het verbinden met de resources.. Dan hoef je helemaal niet te vragen naar gebruikersnamen/wachtwoorden..

Ze loggen lokaal in met:
Gebruikersnaam: gebruiker
Wachtwoord: lokaal

Omdat de laptops van afdelingen zijn en de gebruikers dus meestal tijdelijk zijn.

Uiteraard zijn de netwerkaccounts anders.

[josoetgebrook]

Poltergeist schreef op donderdag 01 november 2007 @ 14:29:
Alleen als je Windows 2000 gebruikt heb je de oplossing met twee bestanden nodig, anders kun je het eerste script gebruiken.

Met de twee bestanden oplossing wordt het HTML bestand gestart door het VBS bestand. Deze blijft wachten totdat er een knop is ingedrukt, en daarna wordt gekeken welk wachtwoord is ingevoerd...

Als ik het goed begrijp, moet ik de volgende code:

Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "Please enter your password:"

strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "Your password is: " & strPassword

In het script zetten.

Maar als ik dat in plaats van deze regel zet:
password=inputbox ("Vul uw wachtwoord in")

dan krijg ik een fout, verwijzend naar:
WScript.StdOut.Write "Please enter your password:"

met de melding: De ingang is ongeldig.

[Brahiewahiewa]

Als je "fancy" dingen wilt met vbscript, moet je hta's gebruiken

HTML:

<head>

    <title>HTA Test</title>
    <HTA:APPLICATION, APPLICATIONNAME="HTA Test", SCROLL="yes", SINGLEINSTANCE="yes" >

</head>

<script language="VBScript">

    sub vraagverdieping

        document.getElementById ("verdiepingvraag").style.visibility="visible"

    end sub

    sub vraagpw

        document.getElementById ("pwvraag").style.visibility="visible"

    end sub

    sub mapprinters

        set objvleugel=document.getElementById("vleugel")
        strvleugel=objvleugel.options(objvleugel.selectedindex).value
        set objetage=document.getElementById("verdieping")
        stretage=objetage.options(objetage.selectedIndex).value
        strusername=document.getElementById("username").value
        strpassword=document.getElementById("password").value

        set wshshell=wscript.createobject ("wscript.shell")
        wshshell.run "Net use \\server /user:" & strusername &" "& strpassword 
        wshshell.run "Net use G: \\server\" & strusername & "$"
        Set WshNetwork = CreateObject("WScript.Network") 
        PrinterPath = "\\server\pad" & strvleugel &"-" & stretage & "-01" 
        PrinterDriver = "PrinterDriver" 
        WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver 
        WshNetwork.SetDefaultPrinter "\\server\pad" & strvleugel &"-" & stretage & "-01" 
        Set WshNetwork = CreateObject("WScript.Network") 
        PrinterPath = "\\server\pad" 
        PrinterDriver = "PrinterDriver" 
        WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver

    end sub

</script>

<body>

    <span id="vleugelvraag">

        U bevindt zich in vleugel
        <select id="vleugel" onchange="vraagverdieping">

            <option>
            <option value="A">A
            <option value="B">B
            <option value="C">C
            <option value="D">D

        </select>

    </span>

    <p><p>

    <span id="verdiepingvraag" style="visibility:hidden">

        U bevindt zich op verdieping
        <select id="verdieping" onchange="vraagpw"

            <option>
            <option value="0">0
            <option value="1">1
            <option value="2">2
            <option value="3">3

        </select>

    </span>

    <p><p>

    <span id="pwvraag" style="visibility:hidden">

        Gebruikersnaam:<input id="username" type="text"><p>
        WachtWoord:<input id="password" type="password"><p>
        <Input Type = "Button" Value = "OK" Name = "Ok_Button" OnClick = "mapprinters">

    </span>

Dit is Q&D. Als je kleurtjes, toeters en bellen wilt, kun je dat zelf uit gaan vogelen op http://www.microsoft.com/technet/scriptcenter/hubs/htas.mspx