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

Logon script und windows vista

Mitglied: seppel19

seppel19 (Level 1) - Jetzt verbinden

05.06.2008, aktualisiert 23.10.2012, 6004 Aufrufe, 1 Kommentar

Netzlaufwerke werden bei der Anmeldung nicht verbunden wohl aber wenn ich das script per Hand ausführe.

Guten morgen,


ich hab hier ein recht unschönes Problem mit meinem Logonscript. Ich hab schon ein wenig im hier gesucht und auch einen Beitrag vom Anfang des letzten Jahres gefunden.

https://www.administrator.de/forum/logonscript-mit-windows-vista-49951.h ...

Hat sich da in der zwischenzeit etwas getan?

Mal noch mein (zugegeben etwas zusammen gebasteltes) Script:
01.
Dim strComputerName 
02.
Dim strUserName 
03.
Dim strDomainName 
04.
Dim BtnCode 
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 = CreateObject("WScript.Network") 
16.
Set WshShell = 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.
 
26.
'Warten bis der Anmeldename des Users ermittelt wurde 
27.
Do While wshNetwork.UserName = "" 
28.
WScript.Sleep 550 
29.
Loop 
30.
 
31.
 
32.
strComputerName = wshNetwork.computerName 
33.
strUserName = wshNetwork.UserName 
34.
strDomainName = wshNetwork.userDomain 
35.
 
36.
 
37.
Call subdrivemap 
38.
Call subdriverename 
39.
Call SubZusammenfassung 
40.
 
41.
 
42.
Sub subdrivemap() 
43.
 
44.
 
45.
On Error Resume Next 
46.
If (Err.Number <> 0) Then 
47.
    Call MsgBox("Error number   :" & Err.Number & CRLF & "Description    :" & Err.Description & CRLF & "Source         :" & Err.Source) 
48.
End If 
49.
 
50.
Err.Clear 
51.
 
52.
'##### einen Moment Pause 
53.
WScript.Sleep 1000 
54.
 
55.
'#### ADSI abfragen 
56.
adspath = "WinNT://" & strDomainName & "/" & strUserName 
57.
Set adsobj = GetObject(adspath) 
58.
 
59.
'##### vorhandene Laufwerke löschen 
60.
wshNetwork.RemoveNetworkDrive "I:", True, True 
61.
wshNetwork.RemoveNetworkDrive "L:", True, True 
62.
wshNetwork.RemoveNetworkDrive "M:", True, True 
63.
wshNetwork.RemoveNetworkDrive "P:", True, True 
64.
 
65.
'##### Laufwerke mappen 
66.
wshNetwork.MapNetworkDrive "P:", "\\server\Daten" 
67.
wshNetwork.MapNetworkDrive "I:", "\\server\Users\" & strUserName & "" 
68.
 
69.
For Each prop In adsobj.groups 
70.
 
71.
Select Case UCase(prop.Name) 
72.
Case "DOMÄNEN-ADMINS" 
73.
wshNetwork.MapNetworkDrive "M:", "\\server\NETLOGON" 
74.
wshNetwork.MapNetworkDrive "L:", "\\server\DC-BKG-01.LOG" 
75.
 
76.
 
77.
If (Err.Number <> 0) Then 
78.
    Call MsgBox("Error number: " & Err.Number & CRLF & "Description: " & Err.Description & CRLF & "Source:       " & Err.Source) 
79.
End If 
80.
On Error GoTo 0 
81.
 
82.
End Select 
83.
Next 
84.
 
85.
End Sub 
86.
 
87.
Sub subdriverename() 
88.
For Each oShFolderItem In oShFolder.Items 
89.
Select Case oShFolderItem.Path 
90.
Case "I:\" oShFolderItem.Name = "Meine persönlichen Daten" 
91.
Case "L:\" oShFolderItem.Name = "Log Dateien" 
92.
Case "M:\" oShFolderItem.Name = "Das Netlogon" 
93.
Case "P:\" oShFolderItem.Name = "Daten" 
94.
 
95.
End Select 
96.
Next 
97.
 
98.
Set oShell = Nothing 
99.
Set oShFolder = Nothing 
100.
Set oShFolderItem = Nothing 
101.
End Sub 
102.
 
103.
Sub SubZusammenfassung() 
104.
Set colDrives = wshNetwork.EnumNetworkDrives 
105.
Set colPrinters = wshNetwork.EnumPrinterConnections 
106.
Dim CRLF 
107.
CRLF = Chr(13) & Chr(10) 
108.
Dim Company 
109.
Company = "" 
110.
 
111.
strMsg = "Anmelde Ergebnisse" & CRLF & CRLF & "Benutzername" & Chr(9) & "= " & strUserName & CRLF & "Computername" & Chr(9) & "= " & strComputerName & CRLF & "Domäne" & Chr(9) & Chr(9) & "= " & strDomainName & CRLF 
112.
'* Verbundene Laufwerke Listen 
113.
If colDrives.Count = 0 Then 
114.
strMsg = strMsg & CRLF & "Kein Netzlaufwerk ist verbunden." & CRLF 
115.
Else 
116.
strMsg = strMsg & CRLF & "Verbundene Netzlaufwerk(e):" & CRLF 
117.
For i = 0 To colDrives.Count - 1 Step 2 
118.
strMsg = strMsg & CRLF & colDrives(i) & Chr(9) & colDrives(i + 1) 
119.
Next 
120.
 
121.
End If 
122.
 
123.
'### Verbundene Drucker Listen 
124.
If colPrinters.Count = 0 Then 
125.
strMsg = strMsg & CRLF & CRLF & _ 
126.
"Kein Netzwerk-Drucker ist verbunden." & CRLF 
127.
 
128.
Else 
129.
    strMsg = strMsg & CRLF & CRLF & _ 
130.
    "Verbundene Netzwerk-Drucker:" & CRLF 
131.
    For i = 0 To colPrinters.Count - 1 Step 2 
132.
    strMsg = strMsg & CRLF & colPrinters(i) & _ 
133.
    Chr(9) & colPrinters(i + 1) 
134.
Next 
135.
End If 
136.
strMsg = strMsg & CRLF & CRLF & "Dieses Fenster schließt sich in 10 Sekunden automatisch." & CRLF & "Eure Admins wünschen noch einen schönen Arbeitstag" 
137.
 
138.
BtnCode = WshShell.PopUp(strMsg, 10, Company, 64) 
139.
 
140.
End Sub
Mitglied: 60730
05.06.2008 um 12:08 Uhr
Servus,

was genau ist denn dein Problem? Das - was im verlinkten Artikel steht?

Darf ich "ehrlich" sein - dein Script ist nicht "zusammen gebastelt" - das ist übelst gefrikelt.

' ADSI abfragen
WScript.Sleep 550
WScript.Sleep 1000

da kräuseln sich meine nicht vorhandenen Haare auf dem Kopf....
... Wenns denn gehen würde - schön - aber warum nicht Kixtart nehmen oder eine simple .cmd
Ich sehe auf Anhieb keinen Grund - das in .vbs lösen zu wollen.
Außer du verdienst am Kaffee Verkauf der Kantine dein Gehalt

Löse das doch mit Kix - geht schneller und sollte auch wirklich funktionieren.
Bitte warten ..
Ähnliche Inhalte
Windows 10
Windows 10 Powershell Logon Script
Frage von derhoeppiWindows 109 Kommentare

Hallo, ich habe ein einfaches Powershell Script das ich via GPO oder Scheduled Task ausführen möchte. In dem Script ...

Batch & Shell
Standarddrucker per Logon Script
gelöst Frage von QugartBatch & Shell10 Kommentare

Hallo zusammen! ich hab hier einen Drucker, den ich per Logon Script als Standard zuweisen will. Der Drucker namens ...

Windows Userverwaltung
Logon script bleibt hängen
Frage von frakaciWindows Userverwaltung4 Kommentare

Hallo Leute. Folgendes Problem: In unserer Domäne wird mit lokalen Profilen gearbeitet, damit die User auch offline arbeiten können. ...

Windows Userverwaltung
Logon Script mit einer .reg Datei
gelöst Frage von KathakiWindows Userverwaltung7 Kommentare

Hallo ihr Lieben, wir haben die letzten Wochen genutzt und sind mit unserem Terminalserver auf Windows Server 2012 R2 ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 2 TagenWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 2 TagenAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 3 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 3 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Router & Routing
Router auf Orginal Firmware zurück flashen mit Tftpd
Frage von ILeonardRouter & Routing21 Kommentare

Hallo, Ich habe zwei Router, einmal TP-Link 841n v11 und TP-Link 940N v5. Ich wollte fragen, ob jemand mir ...

Router & Routing
WRT keine Verbindung zum Web Interface
gelöst Frage von ILeonardRouter & Routing18 Kommentare

Hallo, Ich habe einen TP-Link WR841n mit wrt geflasht, das Problem ist ich kann mich mit 192.168.1.1 nicht verbinden. ...

TK-Netze & Geräte
Telefonie zweier Fritzboxen mit je eigenem DSL Anschluss verbinden
Frage von hannsgmaulwurfTK-Netze & Geräte10 Kommentare

Hallo zusammen, ich habe hier einen Haushalt mit zwei Anschlüssen. Einmal ISDN, einmal DSL. An jedem Anschluss hängt eine ...

Windows Server
Standortvernetzung zu einem Strato VServer (Windows)
Frage von matzefratze81Windows Server10 Kommentare

Moin, ich komme aus einem Enterprise-Umfeld und habe den Fehler gemacht, dass ich mich auf ein kleines Unternehmen eingelassen ...