Avatar billede mistah Nybegynder
04. juni 2008 - 08:41 Der er 1 løsning

Opret forbindelse til share uden for domænet

Hej

Ved brug af et VBS script vil jeg gerne have lavet en tilføjelse til nedestående script der ud over at mappe X også skal mappe Y.
Y ligger dog ikke i samme domæne som X så brugerne skal i windows dialog box logge ind unikt:
domæne\bruger

Option Explicit
Dim objNetwork, strRemotePath1, strRemotePath2
Dim strDriveLetter1, StrDriveletter2
Dim bForce, bUpdateProfile
Dim objShell

        strDriveLetter1 = "X:"
        strDriveLetter2 = "y:"
       
        strRemotePath1 = "\\filserver\sharemappe"        
        strRemotePath2 = "\\10.45.*\sharemappe"

bForce = "True"
bUpdateProfile = "True"
err.number = vbempty

Set objNetwork = CreateObject("WScript.Network")

        On Error Resume Next
        objNetwork.RemoveNetworkDrive strDriveLetter1,_
        bforce, bUpdateProfile
        objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1

If err.number = vbEmpty then
ElseIf err.number = -2147024843 then
Wscript.Echo " Drev " & strDriveLetter & " Er ikke tilgængeligt "
ElseIf err.number = -2147022646 then
Else Wscript.echo " Ukendt fejl "
end if

Jeg søger en streng der undlader at bruge default windows login credentials men istedet prompter brugeren for brugernavn/adgangskode.

Med 200 point i udbud håber jeg at få et svar lidt hurtigt.
Avatar billede Slettet bruger
07. april 2009 - 12:55 #1
Måske kan du bruge noget af det her.
Det er et selvkørende script, men du kan tage de stumper du skal bruge - blandt andet prompterne for brugernavn og password og bruge hvis du vil.

Option Explicit
Const strDriveLetter = "X:"
Const strRemotePath = "\\ServerName\FolderToMap"
Dim objNetwork, strExternalUser, strExternalPassword

strExternalUser = InputBox("Indtast brugernavn")
strExternalPassword = InputBox("Indtast password")

Set objNetwork = CreateObject("WScript.Network")
'On Error Resume Next
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, False, strExternalUser, strExternalPassword
'On Error GoTo 0
Set objNetwork = Nothing
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester