Laboratoire Microsoft |  Blog |  Webcast |  Students Club |  FaqXP  |  CertifExpress 
 Le Forum de Référence sur les Technologies Microsoft - http://www.forum-microsoft.org

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

Forum sur le système d'exploitation Windows 2000 Server

Modérateur: Modérateurs_Systèmes

Messagepar sergio17 sur Mar 04 Fév 2003, 18:58

Voila mes scripts perso :


@Echo off
Cls
@Echo Bonjour %USERNAME%
bienvenue sur le domaine %USERDOMAIN%
@Echo.
@Echo Mise a l'heure de votre station
Net Time \PDC /SET /Y >Nul
@Echo.
@Echo Connexion de votre dossier personnel sur P:
Net Use P: /d >Nul
Net Use P: \SERVER_FILES_USER\%userrname%$ >Nul
@Echo Connexion du dossier du service sur S:
Net Use S: /D >Nul
Net Use S: \SERVER_FILES_GROUP\GROUP /Yes >Nul
@Echo Connexion du dossier commun sur T:
Net Use T: /D >Nul
Net Use T: \SERVER_FILES_TOUS\TOUS /Yes >Nul
sergio17
Senior
Senior
 
Messages: 259
Inscrit le: Ven 26 Avr 2002, 16:57

Messagepar Thierry DEMAN (MVP Exchan sur Mar 04 Fév 2003, 22:33

Bonsoir,

la mode actuelle est d'utiliser VBSCRIPT (.VBS)

Voici un petit exemple (l'intérêt est le test de l'appartenance à un groupe) qui fonctionne aussi bien sur NT que WIN9X (avec client AD)

A+
NB: les indentations sont généralement perdues...

ON ERROR RESUME NEXT
set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")

DomainName=WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
LogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")

Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)

'wscript.echo "Bonjour "&WshNetwork.username&" connecté sur "&WshNetwork.computername


'Init Groups
Dim UserGroups
Dim GroupObj
UserGroups=""
For Each GroupObj In UserObj.Groups
UserGroups=UserGroups & "[" & GroupObj.Name & "]"
Next

'wscript.echo "Membre de "&UserGroups

if InGroup("Administrators") then
WshNetwork.MapNetworkDrive "X:",logonserver&"\NETLOGON"
end if

'if InGroup("GRPCOMPTA") then
' msgbox("Compta Trouvé")
' WshNetwork.MapNetworkDrive "Q:","\SRVCOMPTA\COMPTA"
'end if

' Recherche du serveur DisqueN
select case left(logonserver,11)
case "\SRVPARIS"
svr="\SRVPARISFICHIER2"
' wscript.echo("Paris "&svr)
case else
svr=logonserver
end select
WshNetwork.MapNetworkDrive "N:",svr&"\DISKN"

DIM unite
unite="Q"
For Each GroupObj In UserObj.Groups
IF UCase(LEFT(GroupObj.Name,2))="Q_" THEN
WshNetwork.MapNetworkDrive unite&":",svr&""&GroupObj.Name
' msgbox(unite& GroupObj.Name)
unite=chr(asc(unite)+1)
END IF
Next

'
Function InGroup(strGroup)
InGroup=False
If InStr(UserGroups,"[" & strGroup & "]") Then
InGroup=True
End If
End Function

Thierry DEMAN (MS MVP Exchange,SQL/server)
WEB PERSO|New FAQ EXCHANGE| FAQ ISA MCITPs SQL2005 DEV&ADM, Exchange 2007,Windows 2008 ADM&Enterprise(52 MCPs).
Avatar de l’utilisateur
Thierry DEMAN (MVP Exchan
Forum Junkie
Forum Junkie
 
Messages: 7563
Inscrit le: Ven 22 Nov 2002, 9:33
Localisation: France, ARRAS (62)

Messagepar sergio17 sur Mar 04 Fév 2003, 23:02

tu as perdu tes dent..... 8O
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 :evil:
le kix a l'air plus convivial est plus simple :roll:
sergio17
Senior
Senior
 
Messages: 259
Inscrit le: Ven 26 Avr 2002, 16:57

Messagepar mr_banni sur Mer 05 Fév 2003, 8:25

salut
voila nos scripts:

@ECHO OFF
CLS

ECHO RESTAURATION DES LECTEURS G: Q: S: T:
ECHO ------------------------------------
ECHO ***************************************

rem ***** PART_GRP *****
NET USE G: /DELETE >NUL
NET USE G: \SERVER02\PART_GR >NUL

rem ***** LOGICIEL *****
NET USE Q: /DELETE >NUL
NET USE Q: \SERVER02\LOGICIEL >NUL

rem ***** COMMUN *****
NET USE S: /DELETE >NUL
NET USE S: \SERVER02\COMMUN >NUL

rem ***** INTERSITE *****
NET USE T: /DELETE >NUL
NET USE T: \SERVER02\INTERSITES >NUL

rem ****** Script de contrôle et d'installation des agents Netwizard ******
IF NOT EXIST C:\KIX32.EXE COPY %LOGONSERVER%\NETLOGON\KIX\KIX32.EXE C:\KIX32.EXE

rem ****** Script D'installation des fichiers KixStart pour les postes 98 ******
If "%OS%" == "Windows_NT" goto skip
set LOGONSERVER=\SERVER02
IF NOT EXIST C:\KIX32.EXE COPY %LOGONSERVER%\NETLOGON\KIX\KIX32.EXE C:\KIX32.EXE
IF NOT EXIST C:\KX16.DLL COPY %LOGONSERVER%\NETLOGON\KIX\KX16.DLL C:\
IF NOT EXIST C:\KX32.DLL COPY %LOGONSERVER%\NETLOGON\KIX\KX32.DLL C:\
IF NOT EXIST C:\KX95.DLL COPY %LOGONSERVER%\NETLOGON\KIX\KX95.DLL C:\
C:\KIX32.EXE %LOGONSERVER%\NETLOGON\KIX\Gener.kix $Server=SERVER02
goto END

:skip

C:\KIX32.EXE %LOGONSERVER%\NETLOGON\KIX\Gener.kix $Server=SERVER02

ECHO RESTAURATION DES CONNEXIONS SERVEUR
ECHO ------------------------------------
ECHO ***************************************

rem ***** Partage sur ETECOM\etecom$ *****
Ifmember PZ-FR\USR_ETECOM
if not errorlevel 1 goto fin
NET USE X: /DELETE >NUL
Net use X: \etecom\etecom$ >NUL
:fin

rem ***** Partage sur SERVER02\InfoC13 *****
Ifmember PZ-FR\USR_SRV02_InfoC13
If not errorlevel 1 goto fin1
NET USE I: /DELETE >NUL
Net use I: \SERVER02\INFOC13 >NUL
:fin1

rem ***** Partage sur SERVER02\logiciel *****
Ifmember PZ-FR\USR_SRV02_EXPLOIT
If not errorlevel 1 goto fin2
NET USE X: /DELETE >NUL
Net use X: \SERVER02\logiciel >NUL
:fin2

rem ***** Rattachement Serveur mises à jour signatures Norton Antivirus *****
copy \172.17.5.39\vplogon\grc.dat c:\winnt\profiles\alluse~1\applic~1\symantec\norton~1\7.5\

rem ***** Utilisation d'un répertoire local pour les rapports Compta *****
IF NOT EXIST D:\MATIERE\TMP MD D:\MATIERE\TMP %0\..\REG ADD HKLM\SOFTWARE\ORACLE\REPORTS25_TMP="D:\matiere\tmp" REG_SZ

rem ***** Accès Intranet: fichiers de récup du login et password NT *****
copy \172.17.5.34\commun\authproj.dll c:\winnt\system32
start regsvr32 -s c:\winnt\system32\authproj.dll

rem ***** modif serveur teletel *****
REM REG UPDATE HKLM\SOFTWARE\MCTEL-SAM\VtxPlug\Network\Server="TEL01"


:END


et voila le fichier Gener.kix

[quote]
IF (INSTR(@WKSTA, "PRI") OR INSTR(@WKSTA, "ECS")) ; Si nommage PC dans les normes (PRI ou ECS)
IF (INSTR(@IPADDRESS0, "172. 18. 15.")) = 0
SHELL "\$Server\media\agents\WINBOOT.EXE -R -N @WKSTA -C @WKSTA_PC -O"
Select
case @inwin=1
; ****** Script D'installation des fichiers KixStart pour les postes NT ******
COPY @LDRIVE\KIX\KIX32.EXE C:\
case @inwin=2
; ****** Script D'installation des fichiers KixStart pour les postes 98 ******
COPY @LDRIVE\KIX\KIX32.EXE C:\
COPY @LDRIVE\KIX\KX16.DLL C:\
COPY @LDRIVE\KIX\KX32.DLL C:\
COPY @LDRIVE\KIX\KX95.DLL C:\
endselect
ENDIF
ELSE
; Liste des PCs hors normes
WRITEPROFILESTRING ("\FRANCENT\Logs\Anomalie.ini", "Hors_Norme", "@WKSTA", " @USERID, @FULLNAME, @IPADDRESS0")
ENDIF

; partage sur SERVER02\PREV
IF INGROUP("USR_SRV02_PREV")
USE H: /DELETE
USE H: "\SERVER02\previsions"
ENDIF

; partage sur SERVER02\PREV
IF (INGROUP("USR_SRV02_CITERNE") OR INGROUP("USR_SRV02_BOUTEILLE"))
USE H: /DELETE
USE H: "\SERVER02\previsions"
ENDIF

; Test application Grille
IF (INGRO
Avatar de l’utilisateur
mr_banni
Posteur Express
Posteur Express
 
Messages: 3278
Inscrit le: Lun 14 Oct 2002, 21:00
Localisation: Vincennes

Messagepar mr_banni sur Mer 05 Fév 2003, 8:39

j'ai oublié de preciser que nous ne sommes pas en Win2000, juste un domaine NT4 avec des stations NT4 et 98 pour les portables
Avatar de l’utilisateur
mr_banni
Posteur Express
Posteur Express
 
Messages: 3278
Inscrit le: Lun 14 Oct 2002, 21:00
Localisation: Vincennes

Messagepar nexius23 sur Mer 05 Fév 2003, 16:12

La connaissance s’accroît quand on la partage… alors partager…je dormirai moins con.....
nexius23
Master
Master
 
Messages: 763
Inscrit le: Lun 02 Déc 2002, 9:39
Localisation: Paris (enfin a coté)

Messagepar mr_banni sur Jeu 06 Fév 2003, 9:12

Avatar de l’utilisateur
mr_banni
Posteur Express
Posteur Express
 
Messages: 3278
Inscrit le: Lun 14 Oct 2002, 21:00
Localisation: Vincennes

Messagepar Thierry DEMAN (MVP Exchan sur Ven 07 Fév 2003, 9:54

Salut,

le problème est que je ne sais pas si KIX sait lire/écrire dans Active Directory !

Avec Vbscript, j'ai des exemples tout fait, et qui peuvent me reservir dans d'autres situations (pages ASP/Web/création d'utilisateurs...)

sergio17 a écrit:tu as perdu tes dent..... 8O
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 :evil:
le kix a l'air plus convivial est plus simple :roll:


Tant qu'à apprendre un nouveau langage, autant apprendre le plus utile!


A bientôt,
Thierry DEMAN (MS MVP Exchange,SQL/server)
WEB PERSO|New FAQ EXCHANGE| FAQ ISA MCITPs SQL2005 DEV&ADM, Exchange 2007,Windows 2008 ADM&Enterprise(52 MCPs).
Avatar de l’utilisateur
Thierry DEMAN (MVP Exchan
Forum Junkie
Forum Junkie
 
Messages: 7563
Inscrit le: Ven 22 Nov 2002, 9:33
Localisation: France, ARRAS (62)

Messagepar kombak sur Ven 07 Fév 2003, 16:03

Pour ceux qui voudraient pas trop se casser la tête, y a un soft très bien qui gère ça sur : www.scriptlogic.com

A+
Avatar de l’utilisateur
kombak
Member
Member
 
Messages: 71
Inscrit le: Mer 17 Avr 2002, 11:16

Messagepar BoOoB0B sur Mar 11 Fév 2003, 16:49

Et pour ceux qui veulent ce la casser..... :roll:

ben...faut continuer a poster.... :wink:

aller au boulot tout le monde !!! 8)
L'erreur est humaine mais un véritable désastre nécessite un ordinateur. :twisted: L'erreur est humaine, mais pardonner est hors des capacités du système d'exploitation.
Avatar de l’utilisateur
BoOoB0B
Senior
Senior
 
Messages: 413
Inscrit le: Mar 10 Déc 2002, 15:22
Localisation: 10.129.1.6

Messagepar Alexnancy sur Ven 14 Fév 2003, 0:11

question un peu bete :(

est il possible dans ces scripts de changer la page de demarrage de IE ??
rememechose est il possible de changer le fond d'écran ??

merci d'aider un inculte comme moi :'(
Alexnancy
Member
Member
 
Messages: 58
Inscrit le: Jeu 17 Oct 2002, 16:30
Localisation: Nancy

Messagepar BoOoB0B sur Ven 14 Fév 2003, 0:31

Alexnancy a écrit:merci d'aider un inculte comme moi :'(



comme on dit (nexuis23 va penser que je c dire que ca, des ptite phrase toute faite... :lol:) :
on est tous ignorant, mais on ignore pas tous la meme chose !
L'erreur est humaine mais un véritable désastre nécessite un ordinateur. :twisted: L'erreur est humaine, mais pardonner est hors des capacités du système d'exploitation.
Avatar de l’utilisateur
BoOoB0B
Senior
Senior
 
Messages: 413
Inscrit le: Mar 10 Déc 2002, 15:22
Localisation: 10.129.1.6

Messagepar nexius23 sur Ven 14 Fév 2003, 9:14

en effet j'vais finir par toutes les noter et jvais en faire un bouquin....jvais me faire un max de bles.....finalement l'info sa raportait pas assez.............. :wink:
La connaissance s’accroît quand on la partage… alors partager…je dormirai moins con.....
nexius23
Master
Master
 
Messages: 763
Inscrit le: Lun 02 Déc 2002, 9:39
Localisation: Paris (enfin a coté)

Messagepar Alexnancy sur Ven 14 Fév 2003, 10:28

et pour mon probleme c'est possible ou pas ?? :'(:'(:'(:'(
Alexnancy
Member
Member
 
Messages: 58
Inscrit le: Jeu 17 Oct 2002, 16:30
Localisation: Nancy

Messagepar nexius23 sur Ven 14 Fév 2003, 10:40

oui il te suffit de creer un cles de registre que tu execute avec un script:
la cles ce trouve dans :
[HKEY_CURRENT_USER\Control Panel\Desktop]
"wallpaper"=.........
La connaissance s’accroît quand on la partage… alors partager…je dormirai moins con.....
nexius23
Master
Master
 
Messages: 763
Inscrit le: Lun 02 Déc 2002, 9:39
Localisation: Paris (enfin a coté)

PrécédentSuivant

Retourner vers 2000 Server

Qui est en ligne ?

Utilisateurs parcourant actuellement ce forum : Aucun utilisateur inscrit et 0 invités



Accueil | News | Articles | Tips | Outils | FAQ XP | Certification | Easters Eggs
Essentiels | Top Sites | Glossaire | Vidéos | Whitepapers | Essentiels | Boîte à Scripts
Conditions d'utilisation é Copyright | Respect de la vie privée