Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 5973 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Microsoft
Windows 10 logon script: alle Apps löschen (3)

Frage von thomasreischer zum Thema Microsoft ...

Windows Tools
Windows Datenträgerverwaltung buggy! (Windows Vista bis Windows 10)

Erfahrungsbericht von Lochkartenstanzer zum Thema Windows Tools ...

Windows Vista
11. April 2017: Windows Vista geht in den Ruhestand (9)

Link von MrCount zum Thema Windows Vista ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...