StartUp Script

2009-12-12 von Mario

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.

1
2
3
4
5
Dim strPassword, strUser, strDomain
 
strUser = ""
strDomain = ""
strPassword = InputBox("Password:")

und jeweils das hier

1
, strDomain, strUser, strPassword

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

Kategorie: IT Schlagwörter: , , , ,