Login-Skript etwas ansprechender gestalten!

Gulliver03 · 19. Juli 2005

Ich habe für jeden User ein Skript auf dem Server hinterlegt, das ihn beim Login mit einigen Server-Shares verbindet ......

=============================

@echo off

echo ==========================

echo Laufwerke werden verbunden

echo ==========================

attrib +h +s desktop.ini /s

net start

net use P: /home /yes

net use M: \\servername\share1

net use N: \\servername\share2

net use X: \\servername\share3

net use T: \\servername\share4

net time \\servername /set /yes

=============================

Das Skript funktioniert einwandfrei, aber ich würde es gerne etwas aufpeppen bzgl. der Statusinformationen. Das einzige was ich sehe ist ""Laufwerke werden verbunden".

Mir schwebt vor, dass folgende Meldungen noch erscheinen:

1) Logon am Server "hier steht sein Name" in der Domäne "Hier steht deren Name" .... vielleicht noch schön unterstrichen :rolleyes:

2a) Verbindung mit Share "XYZ" wird hergestellt .....

2b) Verbindung mit Share "XYZ" erfolgreich hergestellt .....

Beim Abmelden sollten dann diese Laufwerke ebenfalls getrennt werden, mit einer entsprechenden Meldung

3a) Verbindung mit Share "XYZ" wird getrennt .....

3b) Verbindung mit Share "XYZ" erfolgreich getrennt.

Beim An- und Abmelden würde ich gerne noch eine Meldung haben, nach der die Clients die Profildaten vom Server holen bzw. auf diesen wieder zurückspeichern ....... z.B. Benutzerdaten werden geholt bzw. gespeichert.

Wäre toll, wenn mir da jemand ein wenig Unterstützung geben könnte.

Allerbesten Dank. :)

Hr_Rossi · 19. Juli 2005

hi also ich kenn mich

mit scripten echt nicht so aus, aber wenn man logisch denkt (wenn ich logisch denke :D )

probiers mal so keine Ahnung ob das funkt !

@echo off

echo ==========================

echo Laufwerke werden verbunden

echo ==========================

attrib +h +s desktop.ini /s

net start

echo P: wir hergestellt...

net use P: /home /yes

echo P: wurde hergestellt...

net use M: \\servername\share1

net use N: \\servername\share2

net use X: \\servername\share3

net use T: \\servername\share4

net time \\servername /set /yes

Constral · 19. Juli 2005

jepp,

eine tolle Idee mit den Begrüßungsdaten am Anfang.

Unter Novell wird ja sofort einiges mehr angezeigt.

Ich wäre auch für jeden Tipp dankbar.

Gruß

Constral

lefg · 20. Juli 2005

@echo off
color 70
title %username%
c:
cd\
cls

set DC=1fs-lubeca

set local=%computername:~1,3%

echo.
echo Sehr geehrte Dame, sehr geehrter Herr,
echo.
echo Sie haben sich als %username% an der Domain %userdomain% angemeldet.
echo.
echo Der Name Ihrer Workstation ist: %computername% in Raum %local%
echo.
echo Ihr Logonserver ist: %logonserver%
echo.

net use * /del /y
::map user & groups
rem echo on
::map Division
for /f "tokens=2 delims=," %%a in ('%logonserver%\netlogon\dsquery user -name %username%') do set ou=%%a
set group=%ou:~3%


set FS=1FS-LUBECA
if exist \\%FS%\%group%\%username%Home net use P: \\%FS%\%group%\%username%Home /persistent:no 
if exist \\%FS%\%group% net use G: \\%FS%\%group%
if exist \\%FS%\BAFSalt$ net use U: \\%FS%\BAFSalt$ /persistent:no 
rem pause

\\%dc%\netlogon\ifmember.exe NLL

if %errorlevel% equ 1 (
if exist \\%FS%\O2k net use x: \\%FS%\O2k  /persistent:no
if exist \\%FS%\Download net use q: \\%FS%\Download /persistent:no
if exist \\%FS%\Clipart net use r: \\%FS%\Clipart /persistent:no
)

\\%dc%\netlogon\ifmember.exe Doz-BAFS
echo %errorlevel%
if %errorlevel% equ 1 (
net use j: \\%FS%\BA203
net use k: \\%FS%\BA203R
net use l: \\%FS%\BA204
net use m: \\%FS%\BA204R
net use n: \\%FS%\FS203
net use o: \\%FS%\FS204
if exist \\%FS%\Dozenten\%username%Home net use P: \\%FS%\Dozenten\%username%Home /persistent:no 
)

\\%dc%\netlogon\ifmember.exe BAFS
echo %errorlevel%
if %errorlevel% equ 1 (
if exist \\%FS%\Beurteilungen net use R: \\%FS%\Beurteilungen /persistent:no
)

::show map
net use 
rem pause

for /f %%e in ('time /t') do set time=%%e
set separator=%time:~2,1%
if %separator%==: (
 set hour=%time:~0,2%
 set minute=%time:~3,2%
 ) else (
 set hour=%time:~0,1%
 set minute=%time:~2,2%)

set time=%hour%%minute%

for /f "tokens=1,2" %%e in ('date /t') do set date=%%f
set day=%date:~0,2%
set month=%date:~3,2%
set year=%date:~6,4%
set date=%day%%month%%year%
rem pause
set connect=%date%%time%%username%%computername%.txt
rem echo %connect%
net use > %connect%
echo.
rem pause


::Virenschutzkonfiguration auslesen

if exist "c:\programme\McAfee\McAfee VirusScan\SDATPACK.LST" set SDATPACK.LST="c:\programme\McAfee\McAfee VirusScan\SDATPACK.LST"
if exist "c:\programme\McAfee\McAfeeVirusScan\SDATPACK.LST" set SDATPACK.LST="c:\programme\McAfee\McAfeeVirusScan\SDATPACK.LST"

if exist %SDATPACK.LST%  for /F "tokens=2" %%e in ('findstr "Engine" %SDATPACK.LST%') do set engine=%%e
if exist %SDATPACK.LST%  for /F "tokens=4" %%e in ('findstr "AVPARAM" %SDATPACK.LST%') do set avparam=%%e
if exist %SDATPACK.LST%  for /F "tokens=4" %%e in ('findstr "MCSCAN" %SDATPACK.LST%') do set mcscan=%%e
if exist %SDATPACK.LST%  for /F "tokens=2" %%e in ('findstr "DAT.Files" %SDATPACK.LST%') do set dat=%%e
if exist %SDATPACK.LST%  for /F "tokens=4" %%e in ('findstr "CLEAN" %SDATPACK.LST%') do set clean=%%e

if not exist "c:\programme\McAfee\*" set dat=0000

set ActivityLogPath="c:\programme\McAfee\McAfee VirusScan\Activity Log\VScan.Log"
if exist %ActivityLogPath% (
for /F "skip=5 tokens=1,1" %%a in ('dir %ActivityLogPath%') do (set activity=%%a & goto out)
:out
set lastscan=%activity:~0,10%
)
::Virenschutzkonfiguration an Server senden
set NAIUpdate=%computername%.%dat%
echo %engine% %avparam% %dat% %clean% %lastscan% > \\%dc%\AntiVirusUpdateProtokolle\%naiupdate%.txt

::Virenschutzkonfiguration anzeigen
echo.
echo Die Virenschutzkonfiguration ist:
echo Engine: %engine% vom %avparam%
echo Scanner and Shield: %mcscan%
echo Virusdefinition: %dat% vom %clean%
if exist %ActivityLogPath% echo Letzter Scan: %lastscan%

haidinger · 20. Juli 2005

Hi

habe hier im Board ein paar verschiendene gefunden und eins für meine Bedürfnisse erstellt, vielleicht gefällts Dir.

logon.vbs 1.teil

Option Explicit

On Error Resume Next

Dim WSHNetwork, WSHShell, CRLF, objArgs, strMsg, strCompany, i, colDrives

Dim colPrinters, strUserName, strLogonSRV, strPrintSRV, strFileSRV, strDomain

Dim nReturnCode, nSecondsToWait, objMember, objGroup

'---------- Muss angepasst werden------------

CRLF = Chr(13) & Chr(10)

strLogonSRV = "01-rhmuc"

strPrintSRV = "01-rhmuc"

strFileSRV = "01-rhmuc"

Set WSHNetwork = Wscript.CreateObject("WScript.Network")

Set WSHShell = WScript.CreateObject("WScript.Shell")

Set objArgs = Wscript.Arguments

' ----------------------------------------------------------

' Synchronisieren der Zeit mit dem Domänencontoller

nReturnCode = wshShell.Run("net time \\" & strLogonSRV & " /set /yes", 0, TRUE)

If (nReturnCode <> 0) Then

MsgBox "Es war nicht möglich die lokale Uhrzeit zu synchronisieren." & vbNewLine &_

"Bitte melden Sie sich beim System-Administrator.",48,"Logon Script Fehler"

Else

strMsg = "Zeitsynchronisation mit """ & strLogonSRV & """ erfolgreich" & CRLF & CRLF

End If

' ----------------------------------------------------------

' Einrichten der Netzlaufwerke und Netzwerkdrucker

' ---------- Muss angepasst werden------------

strCompany = "Firma Test "

strDomain = WSHNetwork.UserDomain

strUserName = ""

On Error Resume Next

Do While strUserName = ""

strUserName = WSHNetwork.UserName

loop

' ----------------------------------------------------------

' Fügt den Printer hinzu und Setzt ihn als Standard optional nach Gruppenzugehörigkeit

' ---------- Muss angepasst werden------------

WSHNetwork.RemovePrinterConnection "\\" & strPrintSRV & "\HPLaserJet5"

'If IsMember("MIPDRUCKER") Then '--------- Drucker nach Gruppenzugehörigkeit zuordnen, falls notwendig (AD Gruppe hinzufügen)

WSHNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\HPLaserJet5"

'WSHNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\HPLaserJet5" ' ------ setzt den Drucker auf Standarddrucker!

'end if

' ---------- Muss angepasst werden------------

' Fügt das Persönliche Laufwerk des Users hinzu und entfernt es vorher!

WSHNetwork.RemoveNetworkDrive "M:"

WSHNetwork.MapNetworkDrive "M:", "\\" & strFileSRV & "\home$\" & strUserName

' ----------------------------------------------------------

' Fügt das Applikationslaufwerk hinzu und entfernt es vorher!

WSHNetwork.RemoveNetworkDrive "P:"

WSHNetwork.MapNetworkDrive "P:", "\\" & strFileSRV & "\test$"

' ----------------------------------------------------------

' Fügt das Firmenlaufwerk hinzu und entfernt es vorher!

WSHNetwork.RemoveNetworkDrive "N:"

WSHNetwork.MapNetworkDrive "N:", "\\" & strFileSRV & "\test1$"

' ----------------------------------------------------------

' Fügt Laufwerke nach Gruppenzugehörigkeit aus dem AD hinzu!

' Wenn Notwendig Laufwerk kopieren und Buchstaben und Ordner anpassen!

haidinger · 20. Juli 2005

teil2 zum script

WSHNetwork.RemoveNetworkDrive "O:"