Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VB-Script für Überprüfung der PC-OU bei Anmeldung und gleichzeitiges mappen von festgelegten netzlaufwerken

Mitglied: DerLomi

DerLomi (Level 1) - Jetzt verbinden

10.12.2008, aktualisiert 16:15 Uhr, 4299 Aufrufe, 1 Kommentar

Hab leider noch nich so wirklich erfahrung mit VB-Scripts

Hallo leute,

hab nen kleinen problem und ich hoffe ihr könnt mir helfen.

Ich hab meine Ausbildung als FISI vor 4 Mon angefangen und habe noch nich mit VB-Scripts (nut mir Batchdateien) gearbeitet.
Ich soll jetzt ein Script schreiben, welches bei uns in der Firma bei der Anmeldung an einem PC über das AD die Computer und Benutzer-OU überprüft und dann die dazugehörigen Netzlaufwerke mappt.

Es soll einfach nur eine erleichterung sein weil bei uns die Azubis in verschiedenen Abteilungen arbeiten und wo verschiedene Netzlaufwerke zur verfügung stehen sollen.

Ich bin echt ratlos.....=(

hab schon suchfunktion benutzt aber so wirklich viel hab ich da nich gefunden und wenn dann war das nich das passende.

Ich hoffe ihr könnt mich helfen.

MFG

Tobias
Mitglied: keksdieb
10.12.2008 um 16:15 Uhr
Moin moin,

Mit VB Script eigentlich gar nicht so schwer:

01.
Dim strComputerName  
02.
Dim strUserName  
03.
Dim strDomainName  
04.
 
05.
Dim objADSysInfo  
06.
Dim wshNetwork  
07.
Dim WshShell  
08.
Dim WshSysEnv  
09.
Dim oShell  
10.
Dim oShFolder  
11.
Dim objUser  
12.
Dim objOU  
13.
Dim rootDSE  
14.
Dim oPq  
15.
Set wshNetwork = WScript.CreateObject( "WScript.Network" )  
16.
Set WshShell = WScript.CreateObject("WScript.Shell")  
17.
Set WshProcEnv = WshShell.Environment("Process")  
18.
Set WshUserEnv = WshShell.Environment("USER")  
19.
Set objADSysInfo = CreateObject("ADSystemInfo")  
20.
Set oShell = CreateObject("Shell.application")  
21.
Set oShFolder = oShell.Namespace(17)  
22.
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)  
23.
Set objOU = GetObject(objUser.parent)  
24.
Set objFSO = CreateObject("Scripting.FileSystemObject")  
25.
Server1 = "Server1"  
26.
Server2 = "server2"  
27.
Server3 = "usw" 
28.
Server4 = "etc" 
29.
 
30.
'Warten bis der Anmeldename des Users ermittelt wurde  
31.
Do While wshNetwork.username = ""  
32.
   WScript.Sleep 250  
33.
Loop  
34.
 
35.
strComputerName = wshNetwork.computerName  
36.
strUserName = wshNetwork.userName  
37.
strDomainName = wshNetwork.userDomain  
38.
 
39.
'Aufruf der Subroutine zum Laufwerkmappen 
40.
Call subprintermap  
41.
 
42.
Sub subprintermap()  
43.
 
44.
' ### ADSI abfragen  
45.
adspath = "WinNT://" & strDomainName & "/" & strUserName  
46.
 
47.
Set adsobj = GetObject( adspath )  
48.
 
49.
'vorhandene Laufwerke löschen  
50.
 
51.
On Error Resume Next  
52.
wshNetwork.RemoveNetworkDrive "L:", True, True 
53.
'wshNetwork.RemoveNetworkDrive "P:", True, True  
54.
'wshNetwork.RemoveNetworkDrive "T:", True, True  
55.
 
56.
''für jeden gültige Laufwerke mappen  
57.
wshNetwork.MapNetworkDrive "P:", "\\"&Server1&"\Freigabe\für\jeden"  
58.
 
59.
'###Laufwerk "K:" für spezielle Anwender auf bestimmte Verzeichnisse mappen 
60.
Select Case (StrUserName) 
61.
	 
62.
	'Anwender User 1 
63.
	Case "username1" 
64.
		wshNetwork.MapNetworkDrive "K:", "\\"&Server1&"\Pfad\zum\Ordner" 
65.
		 
66.
	'Anwender User 2	 
67.
	Case "username2" 
68.
		wshNetwork.MapNetworkDrive "K:", "\\"&Server1&"\anderer\Pfad\zum\Ordner" 
69.
				 
70.
End Select 
71.
 
72.
 
73.
'###AD Gruppen auswerten 
74.
For Each prop In adsobj.groups  
75.
 
76.
 
77.
 
78.
'###Laufwerk U:  
79.
If prop.name="Dom-Gruppe" Then  
80.
   wshNetwork.MapNetworkDrive "L:", "\\"&Server3&"\Pfad" 
81.
   wshNetwork.MapNetworkDrive "U:", "\\"&Server1&"\Pfad\weitererPfad\etc" 
82.
End If 
83.
 
84.
Next 
85.
 
86.
End Sub
Das Script geht bei uns noch weiter, du musst es also nach deinen Bedürfnissen anpassen und gegebenenfalls ändern.
Viele der Variablen brauchst du gar nicht, aber ich war jetzt zu faul die irrelevanten zu löschen...
Aber hiermit hast du einen Denkanstoß

Gruß Keks
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB Netzlaufwerk trennen und mappen klappt nicht so richtig

gelöst Frage von Dr.CornwallisVB for Applications21 Kommentare

Liebe Gemeinde, ich habe ein VB Script, diese soll schauen ob ein Laufwerksbuchstabe vorhanden ist, ist dieser vorhanden, dann ...

VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Windows Server

Mehrer Netzlaufwerke mappen die auf einem Server liegen

Frage von M.MarzWindows Server7 Kommentare

Hallo, ich möchte gerne mehrer Netzlaufwerke mit einem Anmeldeskript die auf dem DC 2008R2 liegen in meinem Windows Explorer ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 4 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 10 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server23 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser15 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...