[vb 2005] monter lecteur reseau a distance

Bonjour,
J'ai trouver se bout de code sur internet qui permet de monter un lecteur a distance par le biai des wmi .. le probleme est qu'il est pour vb6 alors que j'utilise la version 2005 ... et je ne sais pas encore m'en servir et encore moins programmer correctement :)

enfin voila si quelqu'un se s'en le courage de m'aider j'aimerai adapter ce script ci dessous pour vb2005:

Public Function RemoteNetUse(Host As String, Optional UserCurrentCredentials As Boolean = True, Optional User As String = "", Optional Password As String = "") As Long

    Dim strCommand      As String
    Dim lngProcessID    As Long
    Dim lngResult       As Long
    Dim oLocator        As SWbemLocator
    Dim oServices       As SWbemServices
    Dim oStartup        As Object
    Dim oConfig         As Object
    Dim oProcess        As Object
   
    RemoteNetUse = 0
   
    Set oLocator = New WbemScripting.SWbemLocator
   
    fRemoteCommand = 0
   
    If UserCurrentCredentials Then
        Set oServices = oLocator.ConnectServer(Host)
    Else
        Set oServices = oLocator.ConnectServer(Host, "root\cimv2", User, Password)
        oServices.Security_.ImpersonationLevel = 3
    End If
   
    Set oStartup = oServices.Get("Win32_ProcessStartup")
    Set oConfig = oStartup.SpawnInstance_
    oConfig.ShowWindow = 0

    Set oProcess = oServices.Get("Win32_Process")
   'La ligne de commande qui sera lancée à distance
    strCommand = "NET USE Z: \\mon_serveur\partage /PERSISTENT:YES"
    lngResult = oProcess.Create(strCommand, Null, oConfig, lngProcessID)
    fRemoteCommand = lngResult
   
errorResume:
   
    Set oLocator = Nothing
    Set oServices = Nothing
    Set oStartup = Nothing
    Set oConfig = Nothing
    Set oProcess = Nothing

    Exit Function

End Function

Merci d'avance,
testos