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

Login Script mit Zeitsynchronisation?

Frage Entwicklung

Mitglied: chrizz-at

chrizz-at (Level 1) - Jetzt verbinden

18.09.2008, aktualisiert 22.09.2008, 6561 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Server
Windows 10 und Windows SSB 2008 - Login Script greift nicht (21)

Frage von heisenberg4 zum Thema Windows Server ...

Batch & Shell
gelöst PowerShell Script Move-Item nach x Tagen (5)

Frage von lupolo zum Thema Batch & Shell ...

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

Frage von Sentinel87 zum Thema VB for Applications ...

Windows 10
Nonstop Login im Sperrbildschirm (4)

Frage von TiCar zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...