Maping a network drive with password

[Guest_imported]

Anybody.

Can VFP map a network drive and pass a password parameter? if so... how?

Hope someone can help me.
-manny

 

[DannC]

This is the code that I use to do this; hope it helps

LOCAL loShell, loFolder, lcResource, lcPassword, lcDriveLetter, lcUserName, lcPassword

loShell = CREATEOBJECT("Shell.Application&quot
loFolder = loShell.BrowseForFolder(0, "Select directory: ", 0 )


DO CASE

CASE TYPE("loFolder&quot="O"

IF TYPE("loFolder.Items.ITEM&quot="O"

IF TYPE("loFolder.Items.ITEM.PATH&quot == "C"

lcResource = loFolder.Items.ITEM.PATH
lcResource=ALLTRIM(lcResource)

IF NOT SUBSTR(lcResource,1,LEN(lcResource))=="\"

lcResource=lcResource+"\"

ENDIF

lcPassword = ""
lcDriveLetter = "F:"
lcUserName = "Guest"
lcPassword = "Guest"

loNet=CREATEOBJECT("WScript.Network&quot

IF TYPE("loNet&quot == "O"

*!* U'll need here some coding to trap erros
loNet.mapNetworkDrive(lcDriveLetter,lcResource,1,lcUserName,lcPassword)

ENDIF

ENDIF

ENDIF

ENDCASE

*!* For more infos look in MSDN (WshNetwork.MapNetworkDrive)
RELEASE loShell, loFolder, lcResource, lcPassword, lcDriveLetter, lcUserName, lcPassword Thanks for sharing your knowlege.

 

[Guest_imported]

Tnx... i will try it.....