call init() Sub init() Dim strPassword, strUser, strDomain strUser = "" strDomain = "" strPassword = InputBox("Password:") 'mount network drives mountDrive "Z", "\\servername\folder", strDomain, strUser, strPassword mountDrive "Y", "\\servername\folder", strDomain, strUser, strPassword 'run apps Set sd = CreateObject("Wscript.shell") sd.Run "%SystemRoot%\explorer.exe /n, /e, D:\" sd.Run "D:\Programme\ProcessExplorer\procexp.exe" sd.Run "firefox.exe -new-tab http://www.wantedlink.de" End Sub Sub mountDrive(driveletter, server, domian, user, pw) Dim wshnet Set wshnet = CreateObject("WScript.Network") WshNet.MapNetworkDrive driveletter & ":", server , false, domian & "\" & user, pw Set wshnet = Nothing End Sub