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

gelöst Login Script mit Zeitsynchronisation?

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

18.09.2008, aktualisiert 22.09.2008, 6628 Aufrufe, 3 Kommentare

Jetzt habe ich die Zeitsynchronisation (mittels Shellrun) eingebaut. Wie kann ich jetzt aber wenn die Zeitsynchronisation fehlschlägt einen Error ausgeben?

Bitte um eure Hilfe! Mein Code sieht derzeit so aus:

Liebe Gemeinde,
Habe ein sogut wie fertiges Logon Script, Welches nach Gruppenzugehörigkeit Netzlaufwerke und auch Drucker verbindet.
Es gibt auch die Errors aus (Wenn die Freigabe nicht existiert usw.)
01.
' Logon Script 
02.
' Author: HOST\Christoph Strassmair 
03.
'********************** 
04.
On Error Resume Next 
05.
 
06.
Dim objFSO,objFILE,objShell,objNetwork, strWelcomeMsg, strHelpMsg, iErrorTimeout, blnShowError 
07.
Set objFSO=CreateObject("Scripting.FileSystemObject") 
08.
Set objShell=CreateObject("Wscript.Shell") 
09.
Set objNetwork=CreateObject("Wscript.Network") 
10.
Const Company = "HOST" 
11.
 
12.
 
13.
strWelcomeMsg="Willkommen " & objNetwork.UserName & ", in der Domain " & objNetwork.UserDomain & "!" & vbCrLf & vbCrLf & "Ihre Systemzeit wurde mit dem Anmeldeserver synchronisiert." & vbCrLf & vbCrLf & "Aktuelles Datum und Uhrzeit: " & vbCrLf & Now() 
14.
strHelpMsg="" 
15.
iErrorTimeout=60 
16.
blnShowError=True 
17.
 
18.
' Zeit Synchronisieren 
19.
objShell.Run "net time \\host-ulysses /set /yes" 
20.
 
21.
' Netzlaufwerke mappen 
22.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Domänen-Admins") Then MapIt "F:","\\host-server\users\" & objNetwork.Username & "$" 
23.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "T:","\\host-server\Tools" 
24.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "U:","\\host-server\" & objNetwork.Username 
25.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "V:","\\host-server\verwaltung" 
26.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "S:","\\host-server\Treiber" 
27.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "Z:","\\192.168.11.101\test" 
28.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"") Then MapIt "P:","\\host-server\projekte" 
29.
 
30.
' Drucker Mappen 
31.
AddPrinterPortConnection "LPT1:","\\Printserver\Drucker1" ' Drucker die LPT1 brauchen 
32.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Domänen-Admins") Then AddPrinterConnection "\\Printserver\Drucker1" 
33.
 objNetwork.SetDefaultPrinter "\\Printserver\Drucker1" ' als Standarddrucker definieren 
34.
 
35.
' Zusammenfassung erstellen 
36.
iDisplayTimeout=45 ' Nachricht schließt sich nach 45 Sekunden 
37.
strMsg="" 
38.
strMsg=strMsg & strWelcomeMsg & VbCrLf 
39.
strMsg=strMsg & vbcrlf 
40.
strMsg=strMsg & PasswordExpires(objNetwork.Userdomain,objNetwork.Username) & VbCrLf 
41.
strMsg=strMsg & vbcrlf 
42.
 
43.
' Netzlaufwerke auflisten 
44.
Set objDrives = objNetwork.EnumNetworkDrives 
45.
strMsg=strMsg & "Verbindung zu Netzlaufwerk(en):" & vbcrlf 
46.
 
47.
If objDrives.Count = 0 Then 
48.
	strMsg = strMsg & CRLF & _ 
49.
	"Kein Netzlaufwerk ist verbunden." & CRLF 
50.
Else 
51.
For i = 0 to objDrives.Count - 1  Step 2 
52.
	strMsg=strMsg & "Laufwerk " & objDrives.Item(i) & "=" & objDrives.Item(i+1) & vbcrlf  
53.
Next 
54.
	strMsg=strMsg & vbcrlf 
55.
End if 
56.
 
57.
' Drucker auflisten 
58.
Set objPrinters = objNetwork.EnumPrinterConnections 
59.
strMsg=strMsg & vbcrlf & "Verbindung zu Drucker(n):" & vbcrlf 
60.
 
61.
If objPrinters.Count = 0 Then 
62.
	strMsg = strMsg & CRLF & CRLF & _ 
63.
	"Kein Netzwerk-Drucker ist verbunden." & CRLF 
64.
Else 
65.
For i = 0 to objPrinters.Count - 1 Step 2 
66.
	strMsg=strMsg & objPrinters.Item(i) &" = "& objPrinters.Item(i+1) & vbcrlf 
67.
Next 
68.
	strMsg=strMsg & vbcrlf 
69.
End if 
70.
 
71.
' Zusammenfassung zeigen 
72.
If strMsg<>"" Then objShell.Popup strMsg,iDisplayTimeout,Company,vbOKOnly+vbInformation 
73.
 
74.
' Ende des Haupscripts 
75.
 
76.
' Benötigte Funktionen 
77.
Function PasswordExpires(strDomain,strUser) 
78.
	On Error Resume Next 
79.
	Dim objUser 
80.
	Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
81.
	PassExp=INT(objUser.MaxPasswordAge/86400)-INT(objUser.PasswordAge/86400) 
82.
	If PassExp <0 Then  
83.
		strPassMsg="Ihr Passwort läuft nie ab." 
84.
	Else 
85.
		strPassMsg="Passwort läuft ab in: " & vbCrLf & PassExp & " Tag(en)" 
86.
	End If 
87.
	PasswordExpires=strPassMsg 
88.
End Function 
89.
 
90.
Function IsAMemberOf(strDomain,strUser,strGroup) 
91.
	On Error Resume Next 
92.
	Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
93.
	Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") 
94.
		If objGrp.IsMember(objUser.ADsPath) Then 
95.
			IsAMemberOf=True 
96.
		Else 
97.
			IsAMemberOf=False 
98.
		End If 
99.
End Function 
100.
 
101.
Sub MapIt(strDrive,strMap) 
102.
	On Error Resume Next 
103.
		If objFSO.DriveExists(strDrive) Then objNetwork.RemoveNetworkDrive(strDrive) 
104.
		objNetwork.MapNetworkDrive strDrive,strMap 
105.
 
106.
		If Err.Number <> 0 and blnShowError Then 
107.
			strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strDrive) & " zu " &_ 
108.
			strMap & VbCrLf & Err.Description 
109.
			objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
110.
			Err.Clear 
111.
		End If 
112.
End Sub 
113.
 
114.
Sub AddPrinterConnection(strPrinterUNC) 
115.
	On Error Resume Next 
116.
	objNetwork.AddWindowsPrinterConnection strPrinterUNC 
117.
	 
118.
		If Err.Number <> 0 Then 
119.
			strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strPrinterUNC) & ". " &_ 
120.
			VbCrLf & Err.Description 
121.
			objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
122.
			Err.Clear 
123.
		End If 
124.
End Sub 
125.
 
126.
Sub AddPrinterPortConnection(strPort,strPrinterUNC) 
127.
	On Error Resume Next 
128.
	objNetwork.AddPrinterConnection strPort,strPrinterUNC 
129.
 
130.
		If Err.Number <> 0 Then 
131.
			strMsg="Es ist ein Fehler aufgetreten beim Verbinden von " & UCase(strPrinterUNC) & " zu " &_ 
132.
			strPort & VbCrLf & Err.Description 
133.
			objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
134.
			Err.Clear 
135.
		End If 
136.
End Sub
Mitglied: 60730
18.09.2008 um 11:40 Uhr
Servus,

01.
' Zeit Synchronisieren  
02.
objShell.Run "net time \\host-ulysses /set /yes && if not %errorlevel%==0" strMsg="Es ist ein Fehler beim Zeit Synchronisieren aufgetreten"
Gruß
Bitte warten ..
Mitglied: chrizz-at
18.09.2008 um 13:09 Uhr
Hallo, danke für deine schnelle antwort, aber wenn ich das einfüge, kommt die fehlermeldung "Anweisungsende erwartet"
Beschreibung: Kompilierungsfehler in Microsoft VBScript
Bitte warten ..
Mitglied: chrizz-at
22.09.2008 um 16:03 Uhr
ich habs

01.
'Zeit Synchronisieren  
02.
nReturnCode = wshShell.Run("net time \\host-ulysses /set /yes", 0, TRUE)  
03.
   If (nReturnCode <> 0) Then 
04.
      strMsg = "Es war nicht möglich die lokale Uhrzeit zu synchronisieren!" 
05.
			objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
06.
			nReturnCode.Clear 
07.
   End If
Bitte warten ..
Ähnliche Inhalte
PHP
MYSQL und PHP Login Script
gelöst Frage von GoldencreeperPHP17 Kommentare

Hallo liebe Administrator Community. Ich habe Arbeite grade an einer Status Seite für einen Hoster. Die Seite ist auch ...

Windows Server

Login Script verzögert ausführen

Frage von Intruder0001Windows Server6 Kommentare

Hallo gibt es die Möglichkeit das login Script verzögert nach der Anmeldung ca. 10-20sek auszuführen ?? Gerade bei schnellen ...

Windows Server

Pdf per login script

gelöst Frage von ToggleWindows Server4 Kommentare

Hallo zusammen, ich habe hier intern eine Fragestellung bekommen. Wir haben hier im 3 Stunden-Takt Personen, die sich an ...

Windows Server

Login Script als Domänenadmin ausführen

Frage von erikroWindows Server27 Kommentare

Hallo zusammen, folgendes Problem: Es sollen Außendienstmitarbeiter je nach Einsatzort einer bestimmten Gruppe im AD zugewiesen werden, damit sie ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 14 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 20 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...