[Vista] Mapped network drive + Opstarten

[peak]

Hoi,

Al enige tijd was ik erachter gekomen waarom mijn vista o/s zo ongelooflijk traag opstarte.
Dit kwam doordat ik een netwerk schijf had gemapped en na een reboot niet meer te bereiken was.

Hierdoor blijft windows vista in het login venster +- 30 sec hangen, want hij probeert verbinding te maken met de network drive.

Goed, leuk en aardig. In windows XP was dit probleem er niet. Daar gaf hij meteen aan dat hij geen verbinding kon herstellen met de network drive.
Is er al een fix of workaround in windows vista voor dit ''probleem''

Wellicht met taken werken? weet niet of dat weleens lukt.
Batch files wil ik niet, dan moet ik m'n wachtwoord erin opslaan.. niet fijn

[TrekDude101]

misschien 'verbinding maken met netwerkshare bij opstarten' uitzetten? dan gaat hij pas kijken zodra je erop klikt.

[peak]

TrekDude101 schreef op maandag 20 juli 2009 @ 12:31:
misschien 'verbinding maken met netwerkshare bij opstarten' uitzetten? dan gaat hij pas kijken zodra je erop klikt.

Nope. Dan onthoudt hij de share niet.
Na een reboot verwijdert hij doodleuk de mapping.

[alt-92]

Goed, maar wat wil je nu, wel of geen netwerkdrive aan laten maken?

Zo ja, wat zit er dan aan de andere kant - waar gaat die mapping naartoe?

[FireDrunk]

Hij wil denk ik een netwerkdrive altijd gemapt hebben, alleen is zijn server niet altijd aan (zo zie ik je verhaal)
Ik snap wat je bedoelt, maar er is niet zo snel een fix voor (ik heb hetzelfde, alleen staat mijn server altijd aan)

Misschien dat je ergens in je registry de timeout op 1 sec kan zetten bijvoorbeeld...

[Proxx]

NET USE Z: \\blabla\share

in een opstart script laten starten. en met startup delay een delay instellen

[peak]

Proxx schreef op maandag 20 juli 2009 @ 14:38:
NET USE Z: \\blabla\share

in een opstart script laten starten. en met startup delay een delay instellen

Maar dan zul je of een wachtwoord moeten opgeven, of dit elke keer weer typen.

thijs_cramer schreef op maandag 20 juli 2009 @ 14:15:
Hij wil denk ik een netwerkdrive altijd gemapt hebben, alleen is zijn server niet altijd aan (zo zie ik je verhaal)
Ik snap wat je bedoelt, maar er is niet zo snel een fix voor (ik heb hetzelfde, alleen staat mijn server altijd aan)

Misschien dat je ergens in je registry de timeout op 1 sec kan zetten bijvoorbeeld...

Correct.

Het is niet perse mijn thuis server, maar servers die ik via VPN benader.
Hoe dan ook. Het gaat erom dat het sinds vista het opstarten beinvloedt en met XP keek hij hier heel kort naar en geeft vervolgens een melding dat hij de verbinding niet heeft kunnen herstellen.

Valt me tegen dat er weinig mensen mapped network drives hebben...

[alt-92]

Waarom denk je dat?
Misschien heeft verder niemand er problemen mee om het goed werkend te krijgen?

Anywaus: ik doe het tegenwoordig anders, en gebruik (onder Vista en 7) een scheduled task die @ logon een drivemapping script start, en dat alleen doet als er via een netwerkverbinding met het domain wordt gewerkt.

Eventueel bouw je nog een check in het script in die eerst kijkt met een simpele ping of je server wel reachable is en daarop een switch wel of niet mappen.

iets als dit? garantie tot aan de deur, maar een beetje scripting moet een admin wel kennen toch?

Visual Basic:

'******************************************************************************
strDriveletter = "P:"
strRemoteShare = "\\server\share"
strServer = "mijnserver"

'******************************************************************************

Set objNetwork = CreateObject("WScript.Network")
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"   
objIE.menubar = False
objIE.toolbar = false
objIE.statusbar = false
objIE.addressbar = false
objIE.resizable = False
objIE.Width=400
objIE.Height = 300 
objIE.Left = 100    
objIE.Top = 100
objIE.Document.Title = ServerList
objIE.Document.Body.Style.fontFamily = "Arial"
objIE.Document.body.style.fontSize = "10pt"
objIE.Document.body.style.color = "white"
objIE.document.body.style.backgroundColor = "#003388"
objIE.document.body.style.borderStyle = "none"
Set objDoc = objIE.Document.Body
objIE.Visible = 1    

'On Error Resume Next

strPingStatus = PingStatus(strServer)
If strPingStatus = "Success" Then
    'Wscript.Echo "Success pinging " & strServer
    Call Onnet
Else
    'Wscript.Echo "Failure pinging " & strServer & ": " & strPingStatus
    Call noNet
End If

'******************************************************************************

Function PingStatus(strServer)

    On Error Resume Next
    strWorkstation = "."
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strWorkstation & "\root\cimv2")
    Set colPings = objWMIService.ExecQuery _
      ("SELECT * FROM Win32_PingStatus WHERE Address = '" & strServer & "'")
    For Each objPing in colPings
        Select Case objPing.StatusCode
            Case 0 PingStatus = "Success"
            Case Else PingStatus = "Status code " & objPing.StatusCode & _
               " - Unable to determine cause of failure."
        End Select
    Next

End Function

'******************************************************************************
Sub Onnet
Do While (objIE.Busy)
    Wscript.Sleep 1000
Loop
strUser = objNetwork.UserName
strcomputer = objNetwork.computername    
objDoc.InnerHTML = "Hello "& strUser & ", Welcome to "& strcomputer &  "."
Wscript.Sleep 2000         
objDoc.InnerHTML = "Creating network mappings. " _
    & "This might take several seconds to complete."
Wscript.Sleep 2000

Set colDrives = objNetwork.EnumNetworkDrives
    If colDrives.Count = 0 Then
    MapDrives
    Else
    UnmapDrives
    Wscript.Sleep 500
    MapDrives
    End If
End Sub


'******************************************************************************
Sub UnmapDrives
'MsgBox "Drivemapping delete deel"
objDoc.InnerHTML = "Deleting existing mappings: <br>"
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
    objDoc.InnerHTML = objDoc.InnerHTML & "Deleting " & colDrives.Item(i) & "<br>"
    WScript.Sleep 1000
    objNetwork.RemoveNetworkDrive colDrives.Item(i)
Next
End Sub


'******************************************************************************
Sub MapDrives
objNetwork.MapNetworkDrive strDriveletter, strRemoteShare, strPersist 
objDoc.InnerHTML = "Connected " & strRemoteShare & " as drive " & strDriveLetter & "<BR>"
objDoc.InnerHTML = "Network mappings made.<br> Bye!"
Wscript.Sleep 1000
objIE.Quit

End Sub

'******************************************************************************

Enzo.

[ Voor 78% gewijzigd door alt-92 op 20-07-2009 16:15 ]

[peak]

alt-92 schreef op maandag 20 juli 2009 @ 16:08:
Waarom denk je dat?
Misschien heeft verder niemand er problemen mee om het goed werkend te krijgen?

Enzo.

Ik zou zeggen. Maak met je vaste pc een mapping naar je laptop of andere desktop en reconnect at logon aanvinken.

Vervolgens je pc opnieuw opstarten en zorgen dat de laptop of andere pc niet bereikbaar is over het netwerk.

Heb op verschillende forums gelezen dat meer mensen hier last van hebben.

@your script.

pfffffff Groot script zeg de mapping scripts die ik nog van vroeger herken waren vele malen kleiner

[alt-92]

Deze is wat fancier en verbose.
Tegenwoordig gebruik ik GPPrefs. Nog makkelijker.