IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Supprimer les boites de dialogues dans script vbs


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Inscrit en
    Décembre 2013
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Décembre 2013
    Messages : 3
    Par défaut Supprimer les boites de dialogues dans script vbs
    Bonjour,

    Voici mon problème, j’essaie d'automatiser la création de comptes sur ultrabackup à partir des comptes AD, mais lorsque je lance ce script à la fin il ouvre une boite de dialogue indiquant si l'utilisateur à bien été créé ou pas...
    J'aimerai ne pas avoir à cliquer sur cette boite à chaque import d'utilisateur.
    Je ne connait pas les scripts vbs. Merci de bien vouloir m'aider.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
     
        Set connection = CreateObject("NsAPI.NsConnection")
        Set sysutils = CreateObject("NsAPI.NsScriptUtils")
     
        if connection.ConnectToLocalServer then
     
        set server = CreateObject("NsAPI.NsServer")
     
        if server.Load(connection) then ' Charger les informations serveur
     
        ' On veut créer un utilisateur dans le groupe "litware".
        ' Première étape : obtenir la liste des groupes.
        set groups = server.UserGroups(connection)
        ' Seconde étape : obtenir la position du groupe dans la liste.
        index = groups.FindByDomain("litware")
        if index > -1 then
        set parentGroup = groups(index)
        set myUser = CreateObject("NsAPI.NsUser")
     
        const nsPlatformWindowsNT = 1 ' Le client est un client Windows
        const nsUserConnectionModeDynamicIP = 2 ' Il possède une IP dynamique
        maxBytes = 1 * 1024 * 1024 * 1024 ' Quotas en volume de données : 1Gb
        myUser.ID = -1 ' Constante nécessaire pour créer un nouvel utilisateur
        myUser.UserName = "jlabarre" ' Nom de connexion
        myUser.Description = "Jacques Labarre" ' Description
        myUser.Platform = nsPlatformWindowsNT ' Platforme = Windows
        myUser.IsAdmin = false ' L'utilisateur ne pourra PAS administrer le serveur
        myUser.GroupID = parentGroup.ID ' Le groupe parent est Litware
        myUser.ConnectionMode = nsUserConnectionModeDynamicIP ' Connexion avec une IP dynamique
        myUser.SetPassword "secret" ' Affectation d'un mot de passe arbitraire
        ' Quotas en volume de données définis à 1 Gb
        myUser.SizeQuotasSoft = int(0.95 * maxBytes)
        myUser.SizeQuotasHard = maxBytes
        ' Pas de quotas en nombre d'éléments définis
        myUser.MaxFilesQuotasSoft = 0
        myUser.MaxFilesQuotasHard = 0
        if myUser.Update(connection) then
        ' Définir les options de reporting
        const nsEMailAlways = 2 ' Envoyer des e-mails à chaque exécution d'une tâche
        if not myUser.SetReportingSettings(connection, nsEMailAlways, "jlabarre@litware.com") then
        MsgBox "Echec de la définition des options de reporting !"
        end if
        MsgBox "L'utilisateur a été créé, son identifiant unique est #" & sysutils.Int64ToStr(myUser.ID) & "." & vbCrLf & "Nom de connexion : " & myUser.Login
        else
        MsgBox "Echec lors de la création de l'utilisateur" ' Utilisez la console d'admin pour voir le message d'erreur
        end if
        else
        MsgBox "Impossible de trouver le groupe 'litware' pour lui créer un nouvel utilisateur !"
        end if
        else
        MsgBox "Impossible de créer un groupe car les informations serveur n'ont pu être chargées."
        end if
        connection.Disconnect
        else
        MsgBox "Connexion au serveur local impossible."
        end if

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Salut bienvenue sur DVP

    Ligne 40
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       MsgBox "L'utilisateur a été créé, son identifiant unique est #" & sysutils.Int64ToStr(myUser.ID) & "." & vbCrLf & "Nom de connexion : " & myUser.Login
    MsgBox est la boite de dialogue, toutes les autres permettent d'indiquer un problème de création du nouveau utilisateur.
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Futur Membre du Club
    Inscrit en
    Décembre 2013
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Décembre 2013
    Messages : 3
    Par défaut
    En fait ce que je voudrais, c'est supprimer ces boites de dialogues, ou les remplacer par des fenêtres pop-up qui ne demande pas d'action de l'utilisateur.

  4. #4
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    salut,
    ajouter en 1ère ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set WshShell = WScript.CreateObject("WScript.Shell")
    remplacer ensuite chaque ligne MsgBox "TEXTE" par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WshShell.Popup "TEXTE", N
    ou N représente le nombre de secondes maxi pendant lequel le message sera affiché
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  5. #5
    Futur Membre du Club
    Inscrit en
    Décembre 2013
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Décembre 2013
    Messages : 3
    Par défaut
    Cela fonctionne parfaitement, c'est exactement ce dont j'avais besoin.

    Merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 05/11/2012, 18h37
  2. Les caractères dans les boites de dialogues javascript
    Par Invité dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 26/08/2009, 11h45
  3. Erreur d'affichage dans les boite de dialogue windows
    Par DEVELSI dans le forum Windows
    Réponses: 3
    Dernier message: 26/06/2007, 08h31
  4. Réponses: 1
    Dernier message: 30/05/2005, 17h02
  5. personaliser Les boites de dialogue !!
    Par leo13 dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 19/01/2005, 18h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo