---{[ A quoi ressemblent vos scripts de connexion]}---

[ffeve]

Voici pour changer la page de démarrage de IE, c'est en kixstart

$RegPath="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"
$RegKey="Start Page"
$RegVal="http://www.google.fr"
$RegType="REG_SZ"
$err=WriteValue("$RegPath","$RegKey","$RegVal","$RegType")
$RegKey="First Home Page"
$RegVal=""
$RegType="REG_SZ"
$err=WriteValue("$RegPath","$RegKey","$RegVal","$RegType")

[Mad_Martigan]

Alors, pour revenir à la question initiale, voici à quoi ressemblent mes scripts "type".

LOGON.BAT
SET SCR_PATH=C:\adm\scripts
SET LOG_PATH=\LOGSERVER\LOGS
REM Attribution et montage des imprimantes
@ECHO Mappage des imprimantes > %LOG_PATH%\%USERNAME%.log
FOR /F "eol=; tokens=1,2" %%I in (%SCR_PATH%\gpe_printer.txt) DO %SCR_PATH%\mout_printer.cmd %%I %%J

REM Montage des lecteurs
@ECHO Montage des lecteurs en fonction du groupe >> %LOG_PATH%\%USERNAME%.log
FOR /F "eol=; tokens=1,2,3" %%I in (%SCR_PATH%\gpe_folder.txt) DO %SCR_PATH%\mout_folder.cmd %%I %%J %%K

REM Montage du lecteur Perso
NET USE P: \SERVEURS_FIC\UTILISATEURS\%USERNAME% /PERSISTENT:NO >> %LOG_PATH%\%USERNAME%.log

IF EXIST P:\WINDOWS\BUREAU\NUL GOTO GIVE_ICONS
IF NOT EXIST P:\ GOTO FIN_ERREUR
MKDIR P:\WINDOWS\BUREAU
ATTRIB +H P:\WINDOWS

:GIVE_ICONS
REM Affectation des icones spécifiques
FOR /F "eol=; tokens=1,2" %%I in (%SCR_PATH%\gpe_appli.txt) DO %SCR_PATH%\mout_icons.cmd
GOTO FIN_NORM

:FIN_ERREUR
@ECHO Le lecteur P:\ n'existe pas !!! >> %LOG_PATH%\%USERNAME%.log

:FIN_NORM
@ECHO FIN DU LOGON SCRIPT >> %LOG_PATH%\%USERNAME%.log

MOUNT_PRINTER.CMD
IFMEMBER %1
IF NOT ERRORLEVEL 1 GOTO FIN_MOUNT
%SCR_PATH%\CON2PRT /C %2 >> %LOG_PATH%\%USERNAME%.log

:FIN_MOUNT

MOUNT_FOLDER.CMD
NET USE %2 /D
IFMEMBER %1
IF NOT ERRORLEVEL 1 GOTO FIN_MOUNT
NET USE %2 %3 /PERSISTENT:NO

:FIN_MOUNT

MOUNT_ICONS.CMDIFMEMBER %1
IF NOT ERRORLEVEL 1 GOTO DISMOUNT
COPY %SCR_PAT%\%2 P:\WINDOWS\BUREAU >> %LOG_PATH%\%USERNAME%.log
REM ICI VOUS POUVEZ AJOUTER LES MODIFICATEURS DE REGISTRE
REM NECESSAIRES AUX APPLIS
REM REGEDIT /S FILE.REG à passer en 3eme paramètre
REM n'oubliez par le %%K à ajouter dans le TOKENS du LOGON.BAT !

GOTO FIN_MOUNT

ISMOUNT
IF EXIST P:\WINDOWS\BUREAU\%2 DEL P:\WINDOWS\BUREAU\%2 >> %LOG_PATH%\%USERNAME%.log

:FIN_MOUNT

Le principe est simplissime :
on fait appel à trois fichiers textes, à placer dans le répertoire contenant les scripts, (référencé par la variable SCR_PATH).
GPE_PRINTER contiens les affectations d'imprimante en fonction du groupe au format suivant
Nom_du_groupe Chemin_de_mappage
Il faut donc créer autant de groupes NT qu'il y a d'imprimantes (en les nommant IMP_xxxx par exemple. Cela permet ensuite d'affecter une imprimante instantanément via le user manager sans retoucher les scripts.
Chaque fois que l'appartenance de l'utilisateur à un groupe sera déterminée l'imprimante concernée sera mappée.
Le fichier GPE_FOLDER fonctionne sur le même principe
Nom_du_groupe Lecteur Chemin_de_mappage
Et le fichier GPE_ICONS de même
Nom_du_Groupe Nom_de_l_icone

Evidement c'est faisable en VBS (et probablement moins lourd) mais je ne maitrise pas du tout le VBS (mais alors pas du tout). Si quequ'un s'amuse à le traduire en VB qu'il m'envoie le source, ça m'interesse.

A+

MAD[/b]

[BoOoB0B]

y a t-il d'autres personnes qui veulent participer

tous les sripts peuvent être postés ....

[destrieux]

bonjour,
savez vous si il y a une possibilité de changer le label des disque réseau par script.
j'y arrive bien en les renomant dans explorer. mais je ne sais pas l'integer dans le net use !

d'avance merci

[bouboufatal]

bonjour!
Je viens de finir de lire ce tres interessant forum, mais... Je n'y connais rien en script, et ce n'est pas facile de tout comprendre!
Pouvez vous me dire en gros:

--> à quoi cela sert?
--> quel est le langage utilisé?
--> je vois des .cmd, des .bat... y a t il plusieurs definitions de script?
-->j'ai vu qu'il existait des logiciels destinés au script... sont ils simplement des editeurs, comme phpedit par exemple, ou permettent ils des choses plus interessantes?
-->ou ces fichiers doivent ils etre placés dans le systeme?
-->qq p'tits logiciels ou sites web intérèssants pour débutants...

Voila, bon, ca fait beaucoup mais j'espere que vous pourrez m'eclairer un peu...
Merci a tous !!

[mr_banni]

salut

voila le site de kixstart : http://www.kixstart.org/
avec le manuel, des exemples de scripts ...

[karan]

le mien va peut etre vous paraitre desordonne. il a ete fait pour eviter que les etudiants (je travail ds un centre de formation) n enregistre leur donne ds mes documents ou sur le bureau, vu qu ils ont un dossier de sauvegarde sur le serveur par le lien z:



net use y: \\serveur\recup


md "y:\%computername%"


rem ****** recuperation date et heure ******

@echo %date% >"y:\%computername%\date.txt"

for /F "eol=; tokens=2-4 delims=./ " %%i in (y:\%computername%\date.txt) do @echo %%i-%%j-%%k >y:\%computername%\date.txt


@echo %time% >"y:\%computername%\time.txt"

for /F "eol=; tokens=1,2 delims=: " %%i in (y:\%computername%\time.txt) do @echo %%ih%%j >y:\%computername%\time.txt


rem ****** creation dossier date ******

for /F "eol=; tokens=1 delims=./ " %%i in (y:\%computername%\date.txt) do md "y:\%computername%\%username%\%%i"


rem ****** connection au dossier de sauvegarde ******

y:

for /F "eol=; tokens=1 delims=./ " %%i in (y:\%computername%\date.txt) do cd y:\%computername%\%username%\"%%i"


rem ****** creation dossier time ******


for /F "eol=; tokens=1 delims=: " %%i in (y:\%computername%\time.txt) do md "%%i"

for /F "eol=; tokens=1 delims=: " %%i in (y:\%computername%\time.txt) do cd "%%i"


rem ****** recup de mes doc******

xcopy "C:\Documents and Settings\%username%\Mes documents" "mes docs" /E/C <y:\rep.txt

rd "C:\Documents and Settings\%username%\Mes documents" /Q/S
md "C:\Documents and Settings\%username%\Mes documents"


rem ****** recuperation du bureau ******

xcopy "C:\Documents and Settings\%username%\bureau" "bureau" /E/C <y:\rep.txt

rd "C:\Documents and Settings\%username%\bureau" /Q/S


rem ****** re-creation du bureau ******

c:
cd C:\Documents and Settings\%username%
md bureau

rem ****** deconnexion du lecteur y *****
z:
net use y: /delete



ensuite j aurai une question concernant les imprimantes. j ai deux salles avec une imprimante chaucune. comment faire pour que les eleves avec leur login ne puisse voir que l imprimante qui est dans leur salle en evitant d installer l imprimante en local. sachant que les eleves peuvent se deplacer avec leur compte d une salle a lautre.

[blackjack]

J'édite le titre de ce post et je le déplace vers Widnows 2000/2003 Server.
Je le met également en Post-It (ça pourrait aider de le voir immédiatement ).

[karan]

d accord merci

[yannH]

salut à tous,

Alors moi j'ai une question.
Il faudrait que je fasses un script qui mette à jour l'heure de mes stations clientes dans le script de logon. Jusque la vous me direz...trop facile....sauf que mes utilisateurs ne possèdent pas le droit de modifier l'heure eux-même et que je n'ai pas envie de stocker mon mot de passe admin dans un fichier texte et que de toute facon, ce mot de passe change tous les 90 jours et que je n'ai pas une folle envie de le modifier tous ces 90 jours dans ce fichier (entre nous, j'ai deja assez de boulot comme ca...)
Quelqu'un aurait il une idée ?

[blackjack]

salut à tous,

Alors moi j'ai une question.
Il faudrait que je fasses un script qui mette à jour l'heure de mes stations clientes dans le script de logon. Jusque la vous me direz...trop facile....sauf que mes utilisateurs ne possèdent pas le droit de modifier l'heure eux-même et que je n'ai pas envie de stocker mon mot de passe admin dans un fichier texte et que de toute facon, ce mot de passe change tous les 90 jours et que je n'ai pas une folle envie de le modifier tous ces 90 jours dans ce fichier (entre nous, j'ai deja assez de boulot comme ca...)
Quelqu'un aurait il une idée ?

Salut,

Crée un post pour poser ta question stp.

[fgilain]

Voici mon script de login pour un domaine sous windows 2000 pro , sRv et XP :

' login.vbs
' But : Script de login de connexion pour la société SOCIETE
' Date : 20/12/2004
' Version : 1.0 - initiale
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ComputerName, UserName, Domain, ResultMessage, MyHour, MyMinute, MySec, MyDay, MyMonth, MyYear, strComputer, MessageFinal
Dim WSHShell, WSHFso, WshNetwork, objWMIService, colOperatingSystems, objOperatingSystem, UserObj, GroupObj

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set WSHFso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")

ComputerName = WshNetwork.ComputerName
UserName = WshNetwork.UserName
Domain = WshNetwork.UserDomain
ResultMessage = ""
strComputer = "."

MyHour = Hour(Now)
If MyHour < 10 Then
MyHour = "0" & MyHour
End If

MyMinute = Minute(Now)
If MyMinute < 10 Then
MyMinute = "0" & MyMinute
End If

MySec = Second(Now)
If MySec < 10 Then
MySec = "0" & MySec
End If

MyDay = Day(Now)
If MyDay < 10 Then
MyDay = "0" & MyDay
End If

MyMonth = Month(Now)
If MyMonth < 10 Then
MyMonth = "0" & MyMonth
End If

MyYear = Year(Now)

ResultMessage = ResultMessage & "Domaine : " & Domain & Chr(13)
ResultMessage = ResultMessage & "Ordinateur : " & ComputerName & Chr(13)

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select Caption,Version from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ResultMessage = ResultMessage & "Système d'exploitation : " & objOperatingSystem.Caption & Chr(13)
ResultMessage = ResultMessage & "Version : " & objOperatingSystem.Version & Chr(13)
Next

ResultMessage = ResultMessage & "Nom d'utilisateur : " & UserName & Chr(13)

' Récupération de ses groupes d'appartenance et connexion des lecteurs réseau appropriés
ResultMessage = ResultMessage & Chr(13) & "== Mappage des lecteurs Réseau ==" & Chr(13)
MapAllNetworkDrives(UserName)

MessageFinal = "Bienvenue sur le réseau de SOCIETE." & Chr(13) & Chr(13) & ResultMessage
MessageFinal = MessageFinal & Chr(13) & Chr(13) & "Cette fenêtre se fermera automatiquement après 5 secondes..."
MessageFinal = WshShell.Popup(MessageFinal, 5, "Résumé du Script de connexion...", 65)

' Vérification de l'espace disponible sur C:\If DriveSizeFree("C:") < 500 Then
WScript.Echo "ATTENTION : Votre Disque Dur C:\ n'a plus beaucoup d'espace disponible (" & DriveSizeFree("C:") & " Mo restant seulement sur 500 attendus)" & Chr(13) & Chr(13) & "NB : L'Administrateur a aussi été averti."
' Envoi d'une alerte type net send à l'Administrateur si plus assez d'espace disque sur C:\ Dim objShell, Shell, AdminToALerte, Message
AdminToALerte = "nom_pc_admin"
Message = "Espace disque insuffisant sur c:\ pour l'utilisateur " & UserName & " de l'ordinateur " & ComputerName & Chr(13) & "Ceci est une simple alerte de sécurité"
Set objShell = CreateObject("WScript.Shell")
objShell.run "net send " & AdminToALerte & " " & Message
End If

Dim fso, file_handler
Const ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set file_handler = fso.OpenTextFile("\\SERVEUR\Audits$\Connexions.txt", ForAppending, True)
file_handler.WriteLine(UserName & " : Connexion le " & GetCurrentDate & " à " & MyHour & ":" & MyMinute & ":" & MySec & " sur le poste " & ComputerName)
file_handler.Close

' Routine de Récupération de ses groupes d'appartenance et connexion des lecteurs réseau appropriés
Sub MapAll

[Syruis]

pas besoin de script tou marche nickel sans.
A si j'en ai un!

Code: Tout sélectionner

shutdown -r -f -t 0 -m "machine"

[ripp]

Un grand MERCI à fgilain pour son script !!!!

Vraiment, nickel le script, j'ai repris quelques petites chose, étant un gros débutant en vbscript, j'ai enfin compris certaines chose

[c-colle]

Bien dis !

Le VBS pose des problèmes comme modifier une clé binaire de plus de 4 caractères dans le registre... hé oui, ça VBS ne sait pas faire !

Le KIX est très simple d'utilisation et fonctionne très très bien.

tu as perdu tes dent.....
oauip c'est la grande mode le vbs faudrait que je m'y mette, j'ai achété des bouquins il me reste plus qu'a trouver le temps de les lires
le kix a l'air plus convivial est plus simple