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

VBS Logon Script - Problem!

Frage Entwicklung VB for Applications

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

22.12.2008, aktualisiert 20:23 Uhr, 2892 Aufrufe, 1 Kommentar

Kann mir jemand auf die Sprünge helfen?

Ich danke euch sehr herzlich und schöne Feiertage!

Christoph

Hallo liebe Leute! Ich habe hier ein Logon Script mit VBS geschrieben, nur das einzige Problem ist das es bei der Zuordnung egal ist welche NetzLaufwerke gemappt werden, egal welche Gruppe ich angebe es versucht trotzdem zu verbinden -> Siehe Pfeil im Code!

Ich habe keine Ahnung wo der Fehler ist..
01.
 
02.
' Login Script 
03.
'Author: HOST\Christoph 
04.
'********************** 
05.
On Error Resume Next 
06.
Dim objFSO,objFILE,objShell,objNetwork 
07.
set objFSO=CreateObject("Scripting.FileSystemObject") 
08.
set objShell=CreateObject("Wscript.Shell") 
09.
set objNetwork=CreateObject("Wscript.Network") 
10.
Const Server = "\\host-server\" 
11.
' Standard 
12.
 
13.
 
14.
strWelcomeMsg="Willkommen " & objNetwork.UserName & " in der Domäne " & objNetwork.Userdomain & "!" 
15.
strHelpMsg="Kontaktieren Sie den Administrator um Hilfe zu bekommen!" 
16.
iErrorTimeout=10 
17.
blnShowError=True 
18.
 
19.
 
20.
' Netzlaufwerke mappen 
21.
If (IsAMemberOf("") = true) Then 
22.
MapIt "Y:" , Server & objNetwork.Username 
23.
SetRegKeyNotes 
24.
End If 
25.
 
26.
If (IsAMemberOf("g_buero") = true) Then 
27.
MapIt "Z:" , Server & "tools" 
28.
SetRegKeyNotes 
29.
End If 
30.
 
31.
' Drucker mappen 
32.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"g_buero") Then AddPrinterConnection "\\Printserver\Drucker1" '< --- egal was ich hier schreibe es wird trotzdem verbunden, ich bin auch nicht in der Gruppe g_buero!.. Bei der Gruppe "Administratoren" funktioniert es aber (das es nicht verbunden wird)!  
33.
 
34.
AddPrinterPortConnection "LPT1:","\\Printserver\Drucker1" 
35.
 AddPrinterConnection "\\Printserver\Drucker1" 
36.
objNetwork.SetDefaultPrinter "\\Printserver\Drucker1" 
37.
 
38.
 
39.
' Zusammenfassung zeigen 
40.
iDisplayTimeout=10 
41.
strMsg="" 
42.
strMsg=strMsg & strWelcomeMsg & VbCrLf 
43.
strMsg=strMsg & vbcrlf 
44.
strMsg=strMsg & PasswordExpires(objNetwork.Userdomain,objNetwork.Username) & VbCrLf 
45.
strMsg=strMsg & vbcrlf 
46.
 
47.
' Netzlaufwerke auflisten 
48.
Set objDrives = objNetwork.EnumNetworkDrives 
49.
strMsg=strMsg & "Verbundene Netzlaufwerke:" & vbcrlf 
50.
For i = 0 to objDrives.Count - 1  Step 2 
51.
  strMsg=strMsg & "Laufwerk " & objDrives.Item(i) & "=" & objDrives.Item(i+1) & vbcrlf  
52.
Next 
53.
strMsg=strMsg & vbcrlf 
54.
 
55.
' Drucker auflisten 
56.
Set objPrinters = objNetwork.EnumPrinterConnections 
57.
strMsg=strMsg & vbcrlf &"Verbundene Drucker:" & vbcrlf 
58.
For i = 0 to objPrinters.Count - 1 Step 2 
59.
  strMsg=strMsg & objPrinters.Item(i) &" = "& objPrinters.Item(i+1) & vbcrlf 
60.
Next 
61.
strMsg=strMsg & vbcrlf 
62.
 
63.
' Zusammenfassung zeigen 
64.
If strMsg<>"" Then objShell.Popup strMsg,iDisplayTimeout,"Logon Summary",vbOKOnly+vbInformation 
65.
 
66.
' Ende des Hauptscripts 
67.
 
68.
'////////////////////////////////////////////////// 
69.
 
70.
' Funktion für Alter des Passworts 
71.
Function PasswordExpires(strDomain,strUser) 
72.
On Error Resume Next 
73.
Dim objUser 
74.
Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
75.
PassExp=INT(objUser.MaxPasswordAge/86400)-INT(objUser.PasswordAge/86400) 
76.
 
77.
If PassExp<0 Then 
78.
	strPassMsg="Ihr Passwort läuft nie ab." 
79.
Else 
80.
	strPassMsg="Ihr Passwort läuft ab in " & PassExp & " Tag(en)" 
81.
End If 
82.
 
83.
PasswordExpires=strPassMsg 
84.
End Function 
85.
 
86.
Function IsAMemberOf(strDomain,strUser,strGroup) 
87.
On Error Resume Next 
88.
Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
89.
Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") 
90.
 
91.
If objGrp.IsMember(objUser.ADsPath) Then 
92.
	IsAMemberOf=True 
93.
Else 
94.
	IsAMemberOf=False 
95.
End If 
96.
End Function 
97.
 
98.
Function MapIt(strDrive,strMap) 
99.
On Error Resume Next 
100.
If objFSO.DriveExists(strDrive) Then objNetwork.RemoveNetworkDrive(strDrive) 
101.
 
102.
objNetwork.MapNetworkDrive strDrive,strMap 
103.
 
104.
If Err.Number<>0 And blnShowError Then 
105.
	strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strDrive) & " zu " &_ 
106.
	strMap & VbCrLf & strHelpMsg & VbCrLf & "Errornummer: " & Hex(err.Number) &_ 
107.
	VbCrLf & Err.Description 
108.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
109.
	Err.Clear 
110.
End If 
111.
 
112.
End Function 
113.
 
114.
Sub AddPrinterConnection(strPrinterUNC) 
115.
On Error Resume Next 
116.
 
117.
objNetwork.AddWindowsPrinterConnection strPrinterUNC 
118.
 
119.
If Err.Number<>0 And blnShowError Then 
120.
	strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strPrinterUNC) & ". " &_ 
121.
	vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Errornummer: " & Hex(err.Number) &_ 
122.
	VbCrLf & Err.Description 
123.
	 
124.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
125.
	Err.Clear 
126.
End If 
127.
 
128.
End Sub 
129.
 
130.
Sub AddPrinterPortConnection(strPort,strPrinterUNC) 
131.
On Error Resume Next 
132.
 
133.
objNetwork.AddPrinterConnection strPort,strPrinterUNC 
134.
 
135.
If Err.Number<>0 And blnShowError Then 
136.
	strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strPrinterUNC) & " zu " &_ 
137.
	strPort & vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Errornummer: " & Hex(err.Number) &_ 
138.
	VbCrLf & Err.Description 
139.
	 
140.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
141.
	Err.Clear 
142.
End If 
143.
 
144.
End Sub
Mitglied: bastla
22.12.2008 um 17:49 Uhr
Hallo chrizz-at!

Wenn Du "On Error Resume Next" in Zeile 87 (und Zeile 5) auskommentierst (oder, besser, die fehlenden "Err.Number"-Abfragen für die Zeilen 88, 89 und 91 ergänzt), solltest Du dem Problem auf die Spur kommen ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Windows Server
Anzeige bei "run logon scripts synchronously" möglich?

Frage von ahstax zum Thema Windows Server ...

Windows Userverwaltung
gelöst Logon Script mit einer .reg Datei (7)

Frage von Kathaki zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

Frage von sebastian2608 zum Thema Festplatten, SSD, Raid ...

Windows Netzwerk
DNS ins mehreren Subnetzen (11)

Frage von joerg zum Thema Windows Netzwerk ...

SAN, NAS, DAS
gelöst Synology DS213j (11)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Windows 10
Programm Installation bei Win 10 Fehlerhaft (11)

Frage von Keineahnungvonnix zum Thema Windows 10 ...