Option Explicit Dim Message Dim net Dim username Dim pwd Dim driveletter Dim project Dim server Dim resultat username = InputBox(Message, "Username") pwd = InputBox(Message,"Password") server = InputBox("Server ip address with \\ infront and \ at the end", "Server address") driveletter = InputBox("Driveletter with :", "Driveletter") project = InputBox("Project name", "Porject name") resultat = server + project set net = Wscript.CreateObject("Wscript.Network") net.MapNetworkDrive driveletter,resultat, , username, pwd This works, but I would like to "hide" the password when I type it in, and also be able to note type in the : after the drive letter and if possibel to put in the \\ infront of the server ip and a \ at the end.