Anmeldeskript in VB

' Zentrales Loginscript zum Mappen der Netzlaufwerke über die Gruppenzugehörigkeit  
'  
' Stand XY  
' EDV-Abteilung    
' Update: Abfrage des Flagfiles    


	Dim IWshShell3, WshNet, oExec, Dir, driveletter1, driveletter2, driveletter3, driveletter4, driveletter5,driveletter6,driveletter7,driveletter8


	Dim share1, share2, share3 ,share4 ,share5, share6,share7,share8,folder

	driveletter1 = "R:"  
	driveletter2 = "J:"  
	driveletter3 = "X:"  
	driveletter4 = "Q:"  
	driveletter5 = "T:"  
	driveletter6 = "K:"  
	driveletter7 = "M:"  
	driveletter8 = "S:"  
	

	share1 = "\\Server1\share1"  
	share2 = "\\Server2\share2"  
	share3 = "\\Server3\share3"  
	share4 = "\\Server4\share4"  
	share5 = "\\Server5\share5"  
	share6 = "\\Server6\share6"  
	share7 = "\\Server7\share7"  
	share8 = "\\Server\share8"  
	

   	'Im Fehlerfall zur nächsten Zeile gehen  
	On Error Resume Next


	Set IFileSystem = CreateObject("Scripting.FilesystemObject")  

	Set IFileSystem1 = CreateObject("Scripting.FilesystemObject")  

	Set IWshShell3 = CreateObject("WScript.Shell")  

	Set WshNet = WScript.CreateObject("WScript.Network")  
	 
	'Falls Anmeldung auf Terminalserver dann vorzeitiges Beenden des Loginscripts da bei neuer Farm Preferences benutzt werden  
		
	 If IFileSystem.FileExists("C:\windows\scripts\ts.txt") then WScript.Quit  
		
	
	Set oExec = IWshShell3.Exec("\\SERVER_XY\NETLOGON\IFMEMBER.exe /l")  

	'Im Fehlerfall zur nächsten Zeile gehen  
	'On Error Resume Next  
	


	Do while oExec.Status=0
		Dir = Dir & oExec.StdOut.ReadAll
	Loop




	'R-Laufwerk mappen  
	If InStr(Dir,"GRUPPE5") then  
			WshNet.MapNetworkDrive driveletter1, share1
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'J-Laufwerk mappen  
	If InStr(Dir,"GRUPPE6") then  
			WshNet.MapNetworkDrive driveletter2, share2
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'X-Laufwerk mappen  
	If InStr(Dir,"GRUPPE1") then  
			WshNet.MapNetworkDrive driveletter3, share3
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'Q-Laufwerk mappen  
	If InStr(Dir,"GRUPPE7") then  
			WshNet.MapNetworkDrive driveletter4, share4
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'T-Laufwerk mappen  
	If InStr(Dir,"GRUPPE2") then  
			WshNet.MapNetworkDrive driveletter5, share5
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'K-Laufwerk mappen  
	If InStr(Dir,"GRUPPE3") then  
			WshNet.MapNetworkDrive driveletter6, share6
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

	'M-Laufwerk mappen  
	If InStr(Dir,"GRUPPE4") or InStr(Dir,"vredenu.lg.pictures_l") then  


	   		'WshNet.RemoveNetworkDrive driveletter7,true,true  
	   		WshNet.MapNetworkDrive driveletter7, share7



	End If

	'S-Laufwerk mappen( KOM-Archiv )  
	If InStr(Dir,"GRUPPE5") then  
			WshNet.MapNetworkDrive driveletter8, share8
			If err.number <>0 then
				'MsgBox "Laufwerk konnte nicht verbunden werden!" & err.Description  
			End If
	End If

  






'Notesdaten am Freitag sichern  
if weekday(date) = 6 then

	On Error Resume next

	'Falls kein Thinclient  
	If not IFileSystem.FileExists("C:\windows\ts.txt")then  
		'Ordner erstellen  
		If not IFileSystem.FolderExists("P:\NotesEDV")then  
			IFileSystem.CreateFolder "P:\NotesEDV"  
		end if
		'Backup auf P:\NotesEDV  
		IFileSystem.CopyFile "C:\Notes\Data\*.id","P:\NotesEDV\",true  
		IFileSystem.CopyFile "C:\Notes\Data\names.nsf","P:\NotesEDV\",true  
		IFileSystem.CopyFile "C:\Notes\Data\bookmark.nsf","P:\NotesEDV\",true  
		IFileSystem.CopyFile "C:\Notes\Data\desktop*.*","P:\NotesEDV\",true  
		IFileSystem.CopyFile "C:\Notes\notes.ini","P:\NotesEDV\",true  
		'Cache.ndk löschen für Fatclients  

		If IFileSystem.FileExists("C:\Notes\data\cache.ndk")then  
			IFileSystem.DeleteFile "C:\Notes\data\cache.ndk",true  
		end if

	'ID's kopieren falls Fatclient && ICA-ClientUser sowie erstellungsdatumsabhängig  
		If IFileSystem.FolderExists("P:\TSNotes\de\data")then  

			Set folder = IFileSystem.GetFolder("C:\Notes\Data")  

			Set file = folder.Files

			For Each item In file

	  			if IFileSystem.getextensionname(item.Name) = "id" then  
				'Nur ID-File kopieren falls Erstellungsdatum auf C jünger ist als das auf P  
					help = "P:\TSNotes\de\Data\" & item.Name  
					'msgbox help  

					Set Pdrivedat = IFileSystem1.getfile(help)
	  				if item.DateLastModified > Pdrivedat.DateLastModified then
	  					IFileSystem.CopyFile item,"P:\TSNotes\de\data\",true  

	  				end if

	  			end if

			Next

	    end if

	end if

'Cache.ndk für Thinclients löschen  
	If IFileSystem.FileExists("P:\TSNotes\de\data\cache.ndk")then  
		IFileSystem.DeleteFile "P:\TSNotes\de\data\cache.ndk",true  
	end if


end if
    	'allokierten Speicher der Objekte freigeben  
    	Set WshNet = nothing
	Set IWshShell3 = nothing
	Set IFileSystem = nothing