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
GELÖST

Login Script mit Zeitsynchronisation?

Frage Entwicklung

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

18.09.2008, aktualisiert 22.09.2008, 6600 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
Windows Server
Login Script verzögert ausführen (6)

Frage von Intruder0001 zum Thema Windows Server ...

Windows Server
Login Script als Domänenadmin ausführen (27)

Frage von erikro zum Thema Windows Server ...

Windows Server
gelöst Login Script nach der Anmeldung Zeitverzögert ausführen (4)

Frage von Intruder0001 zum Thema Windows Server ...

Windows Server
gelöst Login Script (kix) bei Windows Server 2012 R2 (6)

Frage von TechNoob17 zum Thema Windows Server ...

Neue Wissensbeiträge
Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(4)

Information von Dobby zum Thema Firewall ...

LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(8)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...