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?

Frage Entwicklung

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

18.09.2008, aktualisiert 22.09.2008, 6617 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 Powershell Script Fehler
Frage von agnostikerWindows Server3 Kommentare

Hi, eigentlich wollte ich nur ein simples Script verfassen welches nach einem Erfolgreichen Anmelden eines Users dessen Workstation und ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 4 StundenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 8 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware7 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...