Login Script

Recherche :

Dernière réponse
Sujet : Login Script
KenShInouU	si tu veux du simple, télécharge kix ici, mets le dans le partage netlogon, et dans ton script de login tu mets %0\..\Kix32.exe %0\..\lenomduscriptkix.kix après c'est tout simple, dans lenomduscriptkix.kix, mets : IF INGROUP("ungroupe" ) use L: "\\unserveur\unpartage" endif If ingroup("unautregroupe" ) AddPrinterConnection ("\\unautreserveur\uneimprimante" ) Endif

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

KenShInouU

si tu veux du simple, télécharge kix ici, mets le dans le partage netlogon, et dans ton script de login tu mets
%0\..\Kix32.exe %0\..\lenomduscriptkix.kix

après c'est tout simple, dans lenomduscriptkix.kix, mets :

IF INGROUP("ungroupe" )
use L: "\\unserveur\unpartage"
endif

If ingroup("unautregroupe" )
AddPrinterConnection ("\\unautreserveur\uneimprimante" )
Endif

nightzone

Normalement le processus est le meme pour les imprimantes ?

on error resume next
Set wshNetwork = CreateObject("WScript.Network" )
user = wshNetwork.username
Set ADSysInfo = CreateObject("ADSystemInfo" )
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = UCase(Join(CurrentUser.MemberOf))
if err.number <> 0 then
strGroups = Ucase(CurrentUser.Memberof)
end if
err.clear

If InStr(strGroups, "P-ACCOUTING" ) Then
Network.AddPrinterConnection "\\artfiles\accounting"
if err.number <> 0 then
wscript.echo err.description & " Veuillez contactez votre administrateur"
end if
err.clear
end if

---------

Mais ca ne marche pas .. et jai aucun message derreur ! Une idéée ?

Merci!

arnaud1206

Salut,
Un bon vieux batch comme ca marche tres bien:

\....\ifmember group1
if %errorlevel NEQ 1 goto suite
net use d: ........
:suite
\....\ifmember group2
if %errorlevel NEQ 1 goto fin
net use f: .......
:fin

ps ifmember se trouve dans le kit de ressource

@++
@++

yan746

Effectivement dans des cas comma ça, le bon vieux batch fonctionne très bien sinon voilà tu peux essayer ce truc là si tu es dans un domaine AD par exemple:

on error resume next
Set wshNetwork = CreateObject("WScript.Network" )
user = wshNetwork.username
Set ADSysInfo = CreateObject("ADSystemInfo" )
set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = UCase(Join(CurrentUser.MemberOf))
if err.number <> 0 then
strGroups = Ucase(CurrentUser.Memberof)
end if
err.clear

'-----------------------
'Lecteurs NOMDUGROUPE
'-----------------------
If InStr(strGroups, "NOMDUGROUPE" ) Then
wshNetwork.MapNetworkDrive "G:" , "\\nom du serveur\nom du patage\chemin du répertoire"
if err.number <> 0 then
wscript.echo err.description & " Veuillez contactez votre administrateur"
end if
err.clear
end if

ViZiR_

un batch n'est pas suffisant ? net use x: \\serveur\partage ?

nightzone

Bonjour,

Je cherche un bout de scrips en vb pour un logon script mais je rush !

Voici ce que je veux faire.

Quand un user ce log, si il est dans le groupe1 et groupe3 il sera maper sur le drive d et drive f.

Meme chose pour les imprimantes.

Merci!