StartUp Script

Häufig wiederkehrende Arbeiten beim Starten meines Arbeitsrechners haben mich dazu veranlasst ein Script zu erstellen, welches mir die stupiden Arbeiten abnimmt. Nichts besonderes, aber evtl. kann es irgendjemand gebrauchen.

Download: StartUp.vbs

Quellcode:

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

Beschreibung:

Im Abschnitt „‚mount network drives“ können die anzubindenden Netzwerklaufwerke eingetragen werden.
Falls kein Username und Passwort erforderlich sein sollte, dann muss dieser Teil gelöscht werden.

Dim strPassword, strUser, strDomain

strUser = ""
strDomain = ""
strPassword = InputBox("Password:")

und jeweils das hier

, strDomain, strUser, strPassword

Im Abschnitt „‚run apps“ sind alle die Anwendungen eingetragen, die gestartet werden sollen.