|
|||||||||||
| Le Forum de Référence sur les Technologies Microsoft - http://www.forum-microsoft.org | |||||||||||
Modérateur: Modérateurs_Systèmes

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

@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



sergio17 a écrit: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



Alexnancy a écrit:merci d'aider un inculte comme moi :'(
on est tous ignorant, mais on ignore pas tous la meme chose !



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