Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

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, 2900 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 ...

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 ...

Windows 10
Windows 10 Powershell Logon Script (9)

Frage von derhoeppi zum Thema Windows 10 ...

Neue Wissensbeiträge
Viren und Trojaner

FinFisher: Internetprovider schieben Spitzelopfern Malware unter

(1)

Information von kaiand1 zum Thema Viren und Trojaner ...

Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...