Bonjour à tous,

je suis actuellement en recherche sur un script pour créer une zone secondaire sur un serveur DNS, grave à l'utilisation de script VBS et à WMI.

Voici mon script, avec un jolie erreur de type "Type Mismatch".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim strNull
Dim ObjDeSortie
Set objDNS = GetObject("winMgmts:root\MicrosoftDNS")
Set objDNSZone = objDNS.Get("MicrosoftDNS_Zone")
strNull = objDNSZone.CreateZone("test.fr",1, true,"C:\test.txt","NomDeLaMachine","admin@test.fr", ObjDeSortie)
L'erreur se trouve sur la ligne 4, et je n'arrive pas à trouver de l'aide sur le web, j'ai pourtant suivit la doc MSDN à la lettre :/