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:
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 |
