Netwerkdrive aanmaken en inloggen op de server

[Klikmaar]

Ik heb een module gemaakt met Excel2003 voor het aanmaken van een drive(bijvoorbeeld "W") en met inlogcode en wachtwoord creeër ik een drive W.
Ik zelf gebruik Office 2003 en Windows XP. De module werkt goed.
Mijn collega die ook windows XP heeft, maar Office 2007 wilde deze module ook gebruiken, maar krijgt een foutmelding dat het netwerkpad niet gevonden kan worden.

Zelfde code, maar ander Office-pakket.

Zie onderstaande code:

'drive aanmaken
Public Function fMapDrive(ByVal szDrive As String, _
    ByVal szServer As String, _
    ByVal szShareName As String, _
    Optional ByVal szUserName As String, _
    Optional ByVal szPassword As String) As Boolean
     
    Dim szMapRoute    As String
    Dim WshNet        As Object
    Set WshNet = CreateObject("WScript.Network")
     
    On Error GoTo ErrorHandle
    szMapRoute = "\\" & szServer & "\" & szShareName
     
    If szUserName = "" Then
        WshNet.MapNetworkDrive szDrive, szMapRoute
    ElseIf szPassword = "" Then
        WshNet.MapNetworkDrive szDrive, szMapRoute, , szUserName
    Else
        WshNet.MapNetworkDrive szDrive, szMapRoute, , szUserName, szPassword
    End If
     
ErrorHandle:
    Set WshNet = Nothing
    Select Case Err.Number
    Case 0
        fMapDrive = True
    Case -2147024811 'Already mapped
        fMapDrive = True
    Case Else
        MsgBox Err.Description
        fMapDrive = False
    End Select
End Function

Aanroep:
If fMapDrive("W:", "Prd.corp", "appdata\LIS\Labkopin\Upload\", "prd\" & gebr, ww) = True Then

Wie weet wat het probleem is?

 

[Nicj56]

Hallo,

Heeft de Group waar de gebruiker inzit wel rechten om op schijf "W" te komen? Heeft de gebruiker ook wel een domein account om op de server in te loggen?

 

[Klikmaar]

Ja, zowel lees- als schrijfrechten

 

[Nicj56]

Hallo,

Ik heb vorige post aangevuld..

Heeft de gebruiker ook wel een domein account om op de server in te loggen?

 

[snb]

Ik zou dit niet met een Function doen maar met een 1-regelige Sub.

Sub fMapDrive(c01 as string, c02 as string)
  CreateObject("WScript.Network").MapNetworkDrive c01, c02
End sub

Sub snb()
  fmapdrive "W:","\\Prd.corp\appdata\LIS\Labkopin\Upload\"
end sub

 

[Klikmaar]

We hebben allemaal dezelfde rechten en accounts als ik.
Ik heb de Excelappliciatie met de module zoals in Office 2003 op mijn computer staat ook op mijn 2de computer gezet met Office 2010 en Windows 7, maar wanneer ikzelf inlog krijg ik ook daar de foutmelding "Geen netwerkpad gevonden"

Is de aanroep van de "Server/Sharename" anders bij Office 2010/VBA