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

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

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

Frage von Luuke257 zum Thema Batch & Shell ...

VB for Applications
gelöst VBS Script kann Prgramm nicht starten (15)

Frage von C.Boerner zum Thema VB for Applications ...

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