[XP] Automatische login met Logon using Dial-up optie

[Verwijderd]

Hallo,

Ik heb de volgende vraag:
Op mijn Windows XP machine heb ik een Windows VPN verbinding met de daarbij behorende instellingen (gebruikersnaam en wachtwoord etc).
Wat ik wil is dat als ik de pc aanzet, dat windows automatisch inlogt met door mij in register opgegeven gebruikersnaam en wachtwoord met het vinkje logon using dial-up en dat deze dial-up ook allemaal automatisch gaat.

Wat ik nu werkend heb is het volgende:
- WIndows XP logt automatisch in met mijn gebruikersnaam en wachtwoord en het vinkje logon using dial-up.
- Het dial-up venster heeft de juiste gebruikersnaam en wachtwoord.

Ik moet nu nog op OK klikken om de VPN verbinding te selecteren en daarna nog op de knop verbinden.
Dit wil ik graag geautomatiseerd hebben.

De vraag is dus, Hoe ? (Hoop dat alles een beetje duidelijik uitgelegd is, anders hoor ik het graag)

[Verwijderd]

Dat zou je mogelijk kunnen scripten met VB method Appactivate en sendkeys..
Alle GUIs in windows kan je met behulp van het toetsenbord navigeren.
bv. TAB voor button of optie keuze Spacebar voor vinkjes te zetten en ENTER als ok muisklik.
http://www.devguru.com/Te...quickref/wsh_methods.html

Het probleem hier is de tijd die de logon in beslag neemt en de script timing.
Vooral als deze niet constant is zal het script niet altijd functioneren.
Daar kan je wel een bruggetje omheen bouwen door het script te laten wachten met uitvoeren van de commando's tot het systeem(cpu) alles heeft opgestart en weer idle gaat.

Ik heb ooit eens zo'n scriptje samengesteld voor iemand die wou wmp geminimaliseerd opstarten met Veronica radio geladen zodat hij na de opstart alleen maar op play hoeft te drukken.

Je kan dit script als voorbeeld gebruiken, in het deel tussen de hekjes zet je de sendkeys voor de GUI de rest van het script laat je dan zoals het is.

code:

    Option Explicit 
Dim objWMIService, objRefresher, objProcessor, objShell, Shell
Dim intThresholdViolations, intProcessorUse
Dim strComputer, strSoundFile, strCommand

    
    strComputer = "."
    intThresholdViolations = 0
    
    Set objShell = CreateObject("Wscript.Shell")
    Set Shell = WScript.CreateObject("Shell.Application")
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objRefresher = CreateObject("WbemScripting.Swbemrefresher")
    Set objProcessor = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_PerfOS_Processor").objectSet
    
    objRefresher.Refresh

'This makes explorer wait for processor use till it runs 5% (idlle) then runs Wmplayer + commands.
Do
For Each intProcessorUse in objProcessor
If intProcessorUse.PercentProcessorTime <20 Then
intThresholdViolations = intThresholdViolations + 1
If intThresholdViolations = 5 Then

'############################################################
'Path to media file you want to load
    strSoundFile = "http://www.garnierstreamingmedia.com/asx/veronicaradio.asp"

'Command which tells Wmplayer to load strSoundFile. 
    strCommand = "wmplayer " & chr(34) & strSoundFile & chr(34)

'Runs Wmplayer with strSoundFile
    objShell.Run strCommand
        
'This waits for Wmplayer to open correctly.
' you may need to set this your self to correct timing. 
WScript.Sleep 500

'Activate WMP window
    objShell.AppActivate "Windows Media  Player"

'This hits the PWmplayer Stop keyboard Shortcut.
    objShell.SendKeys "^{s}"

'Minimizes all open windows
    Shell.MinimizeAll   
WScript.Quit

'#############################################################
End If

Else
     intThresholdViolations = 0

End If

Next

    WScript.Sleep 6000

    objRefresher.Refresh

Loop