Créer une zone DNS secondaire
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:
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 :/
