VBS login script

Jeg har brug for et login script som kan tilslutte et drev til en brugers personlige share

Scriptet skal bede om brugernavn og password, for herefter at kunne tilslutte drevet.

Jeg har selv forsøgt lidt men et eller andet er der galt for den tilslutter ikke drevet.

get_usr_pass

Public Function get_usr_pass

dim wshnetwork
set wshnetwork=wscript.createobject("wscript.network")
on error resume next

Bruger = InputBox ("Indtast brugernavn:", "Brugernavn")
If Bruger="" Then
  Msgbox "Ingen indtastning - logon afbrydes"
    Exit Function
    End if
    Pass = InputBox ("Indtast password:", "Password")
    If Pass="" Then
      Msgbox "Ingen indtastning - logon afbrydes"
        Exit Function
        End if

        wshnetwork.removenetworkdrive "M:"
        wshnetwork.mapnetworkdrive "M:","\\Server\D$\UserHome\user\" & Bruger,False, Bruger, Pass

    WScript.Echo " check om drev M er tilsluttet "
    WScript.Quit
        End Function