abonnement Unibet Coolblue
  vrijdag 7 december 2018 @ 10:14:59 #1
61284 Folkwin
Muisje op het kruisje!
pi_183580325
Ik ben op zoek naar een VB-script voor Windows 7, waarmee ik het wachtwoord van een draadloos netwerk kan aanpassen met één druk op de knop.

Op het activiteiten centrum van mijn broer wijzigt elke week het draadloosnetwerk wachtwoord (don't ask me why..).

Nu wil ik het aanpassen van het wachtwoord op zijn spraakcomputer (Windows 7) zo makkelijk mogelijk maken voor de begeleiders door een scriptje op het bureaublad te zetten die ze uitvoeren om daarna het nieuwe wachtwoord in te voeren.

Ik heb gezocht op Google, maar kon niks passends vinden. Mocht iemand anders suggesties hebben om het zo makkelijke mogelijk te houden voor de begeleiding dan sta ik daar zeker open voor.

Ik had deze wel gevonden, maar hierbij staat het wachtwoord reeds in het script. Eigenlijk zoek ik er eentje waarbij er een pop-upje verschijnt waarin men het nieuwe wachtwoord invult en voila..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SSID = "SSID"  'Adjust to read the SSID
Key = "PASSWORD" 'Adjust to read the key

Dim objShell:Set objShell=CreateObject("Wscript.Shell")

With objShell
  .Run "control netsetup.cpl"
  wscript.sleep 1000
  .AppActivate "Wireless Network Setup Wizard"
  .SendKeys "%NSN" & SSID & "%M" & "{TAB}" & " n"
  .SendKeys "%W" & Key
  .SendKeys "%O" & Key
  .SendKeys "%NSN+{Tab}~"
End With

Set objShell=Nothing
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_183580620
hangen die computers in een domein? dan kun je het met GPO's doen

denk het niet, is de persoonlijke computer van je broer

[ Bericht 42% gewijzigd door #ANONIEM op 07-12-2018 10:49:49 ]
  vrijdag 7 december 2018 @ 10:59:06 #3
292419 NoXia
Productiefoutje
pi_183580908
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SSID = "SSID"  'Adjust to read the SSID

dim Key
Key=InputBox("Voer het WiFi wachtwoord in:")

Dim objShell:Set objShell=CreateObject("Wscript.Shell")

With objShell
  .Run "control netsetup.cpl"
  wscript.sleep 1000
  .AppActivate "Wireless Network Setup Wizard"
  .SendKeys "%NSN" & SSID & "%M" & "{TAB}" & " n"
  .SendKeys "%W" & Key
  .SendKeys "%O" & Key
  .SendKeys "%NSN+{Tab}~"
End With

Set objShell=Nothing
pi_183580944
als de laptop automatisch verbinding maakt met het ssid als het in de buurt is en het wachtwoord is incorrect krijg je toch juist een popup met de melding dat het wachtwoord incorrect is?
  vrijdag 7 december 2018 @ 13:46:20 #5
61284 Folkwin
Muisje op het kruisje!
pi_183583882
quote:
14s.gif Op vrijdag 7 december 2018 10:59 schreef NoXia het volgende:

[ code verwijderd ]

Ga ik zo gelijk uitproberen, tof!
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
  vrijdag 7 december 2018 @ 13:48:39 #6
61284 Folkwin
Muisje op het kruisje!
pi_183583928
quote:
2s.gif Op vrijdag 7 december 2018 11:01 schreef kovenant het volgende:
als de laptop automatisch verbinding maakt met het ssid als het in de buurt is en het wachtwoord is incorrect krijg je toch juist een popup met de melding dat het wachtwoord incorrect is?
Ja, en nee ;).
Het spraakgedeelte draait altijd op de voorgrond dus schermt die melding af.

Nu kan ik wel in het spraakgedeelte scripts en programma’s starten vandaar dit idee. Want dan staat het programma wel toe dat er dingen op de voorgrond komen.
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_183584868
en andersom gedacht,

hebben ze niet de mogelijkheid om een ander SSID op te zetten speciaal voor jouw broer welke niet automatisch wijzigt?
  vrijdag 7 december 2018 @ 19:00:53 #8
61284 Folkwin
Muisje op het kruisje!
pi_183590196
quote:
2s.gif Op vrijdag 7 december 2018 14:37 schreef kovenant het volgende:
en andersom gedacht,

hebben ze niet de mogelijkheid om een ander SSID op te zetten speciaal voor jouw broer welke niet automatisch wijzigt?
Het is een idee, ga het zeker voorstellen.
Ik geef het wel weinig kans van slagen. Hebben eerder verzoeken gedaan tot wat meer moderne technieken op de woning (zelfde organisatie) en dat was geen succes.
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
  vrijdag 7 december 2018 @ 19:05:35 #9
61284 Folkwin
Muisje op het kruisje!
pi_183590298
quote:
14s.gif Op vrijdag 7 december 2018 10:59 schreef NoXia het volgende:

[ code verwijderd ]

Ik heb het zojuist geprobeerd, maar ik vermoed dat het script een eigen draadloos netwerk opzet. Het script gebruikt een verkeerde wizard :(.

Hij zou eigenlijk de wizard 'verbinding met internet maken' moeten gebruiken; alleen opent hij dan het netwerk selectie scherm in de taakbalk..

Iemand een idee?
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_183595974
https://stackoverflow.com(...)ows-programmatically
via powershell een optie?

anders kom ik deze oplossing tegen:

https://stackoverflow.com(...)-for-a-wi-fi-profile

ik weet alleen niet of het op deze manier kan op windows 7
  zaterdag 8 december 2018 @ 10:52:43 #11
61284 Folkwin
Muisje op het kruisje!
pi_183602184
quote:
2s.gif Op vrijdag 7 december 2018 11:01 schreef kovenant het volgende:
als de laptop automatisch verbinding maakt met het ssid als het in de buurt is en het wachtwoord is incorrect krijg je toch juist een popup met de melding dat het wachtwoord incorrect is?
Net nog even gecontroleerd, maar Windows 7 geeft alleen aan dat er probleem is met verbinding maken. En dan kan je de ‘probleem oplossen’ wizzard starten.
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
  zaterdag 8 december 2018 @ 10:53:36 #12
61284 Folkwin
Muisje op het kruisje!
pi_183602199
quote:
0s.gif Op vrijdag 7 december 2018 22:41 schreef mschol het volgende:
https://stackoverflow.com(...)ows-programmatically
via powershell een optie?

anders kom ik deze oplossing tegen:

https://stackoverflow.com(...)-for-a-wi-fi-profile

ik weet alleen niet of het op deze manier kan op windows 7
Ik ga me hier eens in verdiepen! Bedankt alvast voor het meedenken.
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
  maandag 17 december 2018 @ 14:57:21 #13
61284 Folkwin
Muisje op het kruisje!
pi_183786025
quote:
2s.gif Op vrijdag 7 december 2018 14:37 schreef kovenant het volgende:
en andersom gedacht,

hebben ze niet de mogelijkheid om een ander SSID op te zetten speciaal voor jouw broer welke niet automatisch wijzigt?
Update: tegen alle verwachtingen in hebben ze een gebruikersaccount aangemaakt voor hem. Dus niet elke keer een nieuwe WiFi wachtwoord :).
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')