Gå til innhold

[Løst]Sette opp en god del lappetopper (trådløse profiler)


emva

Anbefalte innlegg

Hei.

 

Jeg sitter med en god del lapptopper som jeg skulle gjerne hatt lagt inn trådløst nettverk på.

Hvordan kan jeg gjøre dette enklest, fant ut at "netsh wlan add profile" fungerer for Vista, men jeg sitter med XP.

 

Fant også et grisehack, men jeg kan ikke såååå mye VBS til å modifisere det.

 

Har noen et script for å legge en maskin inn i AD hadde jeg blitt lykkelig.

 

 

 

Option Explicit

SSID="MyTestWIC" 'Adjust to read the SSID

Key="abcdefghijklm" '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 & "%MN"

.SendKeys "%W" & Key

.SendKeys "%O" & Key

.SendKeys "%NSN+{Tab}~"

End With

 

Set objShell=Nothing

 

Videoannonse
Annonse

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...