Lille program der mapper drev.

Prøv den her:

Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "Z:"
strRemotePath = "\\sosu-srv\"

Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & strUserName

Nu er jeg ikke vb mand, men det ser da rimelig forkert ud? Ihvertfald får jeg osse det her fa MSVB2005:
6 errors.

Error    1    'Option' statements must precede any declarations or 'Imports' statements.    C:\Users\xxx\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    7    1    WindowsApplication1
Error    2    Declaration expected.    C:\Users\Rabe\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    10    1    WindowsApplication1
Error    3    Declaration expected.    C:\Users\xxx\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    11    1    WindowsApplication1
Error    4    Syntax error.    C:\Users\xxx\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    13    1    WindowsApplication1
Error    5    Declaration expected.    C:\Users\xxx\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    14    1    WindowsApplication1
Error    6    Declaration expected.    C:\Users\xxx\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb    15    1    WindowsApplication1

Det fungere ganske fint her

hmhm.. så, hvis du vil være så venlig, fotæl mig skridt for skridt her...

Lille tip: Der er nok tale om en mindre kommunikationsbrist - koden ligner VBScript, ikke VB.NET.

*går igen*

ahh det er min fejl.. bekalger :(

men stadig, det melder fejl når jeg afvikler det som vbscript.

Men nu gør jeg det simpelt. Jeg søger et BATCH script, der beder om ens bruger navn og adgangs kode.

Derefter skal den bruge de informationer således:
net use Z: \\sosu-srv\$BRUGERNAVN /user:$BRUGERNAVN $PASS /persistent:yes

Så simpelt. dog så lidt tid. Sidder stadig en mand på kontoeret =/

Nu har jeg fået dit script til at virke men du har misforstået mig. Det skal ikke bruge de credentiels mang er logget ind som. Man skal have mulighed for at indtaste nye værdier

Så er det måske den her:

Dim objNetwork
Set objNetwork = WScript.CreateObject("WScript.Network")
tekst1 = "Skriv brugernavn"
log = InputBox(tekst1, "Login ", log)
tekst2 = "og dit password"
pw = InputBox(tekst2, "Password", pw)
strLocalDrive = "Z:"
strRemoteShare = "\\sosu-srv\" & log
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, False, log, pw