Kan iemand mij misschien helpen met het aanpassen van onderstaande code zodat het passwordveld uit ****** characters bestaat.
Dim QDLS
Dim username
Dim password
Set QDLS = WScript.CreateObject("WScript.Network")
set QDLS1 = createobject("scripting.filesystemobject")
username=inputBox("Wat is je AS400 gebruikersnaam?")
password=inputBox("Wat is je AS400 Wachtwoord?")
if QDLS1.folderexists("I:\") then
QDLS.removenetworkdrive "I:", true
end if
QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, username, password
' End code
Dim QDLS
Dim username
Dim password
Set QDLS = WScript.CreateObject("WScript.Network")
set QDLS1 = createobject("scripting.filesystemobject")
username=inputBox("Wat is je AS400 gebruikersnaam?")
password=inputBox("Wat is je AS400 Wachtwoord?")
if QDLS1.folderexists("I:\") then
QDLS.removenetworkdrive "I:", true
end if
QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, username, password
' End code