bonjour a tous je susi en train de creer un script d'ouverture de session. mais ne connaisant pas vbs je lutte. Je cherhce comment faire pour faire un if sur le nom du user c est a dire :
 
if le user s appelle admin faire
xxxxxx
 
sinon faire
xxxx
 
comment je peux traduire ca en vbs sil vous plait ?

if user="admin" then
 
else
 
end if

ya que ca a faire ? et dans le sinon il prend en compte tous les autres utilisateurs  ?

oui

ok merci de ta reponse
 
j aurais maintenant une 2e question. comment je peux faire pour recuperer dans le script le nom du poste qui se connecte et etudier les deux 1eres lettres ?
 
merci de ton aide

Dim oWshNetwork
Dim sNomOrdinateur
Set oWshNetwork = CreateObject("WScript.Network" )
sNomOrdinateur = oWshNetwork.ComputerName  

merci
 
donc avec ca je recupere le nom du poste. et est ce que je n'ai plus qu a faire un :
 
mid(%computername%,1,1)=S pour etudier la 2e lettre et voir si c'est un S ?
 
merci de ta reponse

ça me semble bon

j'ai fini mon script mais je ne suis pas sur de moi
 
est ce que je peux le poster afin que tu y regarde ?

vas-y, pas de problème

Script
 
 
 
   
If user = admin  Then
      Dim net
             Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
 
 
Else  
     
 
 Dim strComputerName  
Dim WshShellObj  
Dim WshProcessEnv  
Dim WshComputername  
 
 
Set WshShellObj = WScript.CreateObject("WScript.Shell" )  
Set WshProcessEnv = WshShellObj.Environment("PROCESS" )  
WshComputername = GetComputerName  
 
   
 
 
Private Function GetComputerName()  
Dim oNetwork  
     
   On Error Resume Next  
   Set oNetwork = CreateObject("WScript.Network" )  
   GetComputerName = oNetwork.ComputerName  
   Set oNetwork = Nothing  
End Function
 
 
                                    IF  
 
(Mid(%computerName%, 1, 1) = S then
 
 
                           Dim net
                               Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection «\\dirennantes\LXW820PCLSEMA»
 
                         Else IF
 
(Mid(%computerName%, 1, 1) = H then
 
        Dim net
Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection \\dirennantes\hydrohp3200
net.AddWindowsPrinterConnection "\\dirennantes\faxhydro"
           
                         Else IF
 
(Mid(%computerName%, 0, 1) = P then
 
            Dim net
Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
 
 
Else If
 
(Mid(%computerName%, 0, 1) = S then
 
      Dim net
Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
 
 
 
else if
 
(Mid(%computerName%, 1, 2) = M2 then
           
 
        Dim net
Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
     net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
 
                      Else if
 
(Mid(%computerName%, 1, 2) = M3 then
           
 
        Dim net
Set net= CreateObject("WScript.Network" )
             net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
     net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
             
 
Else if
 
(Mid(%computerName%, 1, 2) = M4 then
 
        Dim net
Set net= CreateObject("WScript.Network" )
 
               net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
             net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
 
Else if
 
(Mid(%computerName%, 1, 2) = M5 then
 
        Dim net
Set net= CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
     net.AddWindowsPrinterConnection \\dirennantes\LXC910PCL5
 
 
End if
 
End

heuuuu c'est pas super lisible

Pour récupérer le nom de l'utilisateur, il faut faire  
Dim oWshNetwork  
Dim sNomUtilisateur  
Set oWshNetwork = CreateObject("WScript.Network" )  
sNomUtilisateur = oWshNetwork.UserName  
 
 
 
Et plutot que de faire un CreateObject("WScript.Network" ) dans chaque else de ton script, fais le une fois au début de ton script et réutilise le par la suite

pour le nom de l'utilisateur, faut que je place tes lignes au debut du script ?

ben oui vu que tu t'en sers dès le début

ok en tout cas je te remercie pour tout

de rien.
 
Teste ton script quand même parce qu'il m'a l'air un peu ... brouillon

oué je le testerai demain et jte redirais