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

Frage Microsoft Windows Netzwerk

Mitglied: seppel19

seppel19 (Level 1) - Jetzt verbinden

05.06.2008, aktualisiert 23.10.2012, 6000 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.

http://www.administrator.de/frage/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
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 7 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 11 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware8 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...