Script VBS pour DNS

Version imprimable

12/06/2009, 11h09
surion

Script VBS pour DNS

Bonjour à tous,

Je suis actuellement en stage, et je dois réaliser plusieurs script en VBS afin de :

- créer des zones DNS primaires.
- créer des zones DNS secondaires.
- créer des records ( A, MX, CNAME, TXT, NS etc.)
- modifier un record en particulier.
- supprimer un record en particulier.

En vert ce sont les scripts que j'ai déjà réussit à faire, en rouge ceux qui me posent un peu problème.

Je cherche en vains depuis plusierus jours, et je ne trouve pas vraiment ce que je cherche :(

Help me plz :D
12/06/2009, 12h02
ced600

Et peux tu poster le ou les scripts associés au zones en rouges et nous dire ce qu'il ne va pas, histoire que l'on puisse t'aider.

Biensur, voila :

DNS secondaire :

Code:

1
2
3
4
5
strnewzone = WScript.Arguments.Named("zone")
 
Set objDNS = GetObject("winMgmts:root\MicrosoftDNS")
Set objDNSZone = objDNS.Get("MicrosoftDNS_Zone")
strNull = objDNSZone.CreateZone(strNewZone,1)

( Le chiffre 1 dans CreateZone doit normalement faire une zone secondaire, sauf que je ne précise à aucun moment le DNS principale :/ )

Modifier :

(Je n'ai rien trouvé :( )

Supprimer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
strHostName = WScript.Arguments.Named("HostName")
 
set objDNS = GetObject("winMgmts:root\MicrosoftDNS")
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")
 
set objRRs = objDNS.ExecQuery(" select * " & _
                          " from MicrosoftDNS_ResourceRecord " & _
                          " where OwnerName = """ & strHostName & """" & _
                          " Or RecordData = """ & strHostName & """")
if objRRs.Count < 1 then
   WScript.Echo "No matches found for " & strHostName
else
   for each objRR in objRRs
      objRR.Delete_
      WScript.Echo "Deleted " & objRR.TextRepresentation
   next
end if

(Je n'arrive pas à supprimer un seul record, sa me supprime toute une zone)

Voila, merci d'avance =)

12/06/2009, 17h32
pitchalov

Salut.

L'utilisation de l'outil Dnscmd.exe (en ligne de commandes, donc utilisable avec vbs), du pack Windows Support Tools (http://www.microsoft.com/downloads/d...displaylang=en, pourrait t'aider.
17/06/2009, 09h14
surion
Bonjour,

j'ai bien avancé dans mes recherches, je suis maintenant bloqué sur la création d'une zone secondaire :

Voila la structure de la fonction createZone :

Citation:

void CreateZone(
[in] string ZoneName,
[in] uint32 ZoneType,
[in] boolean DsIntegrated,
[in, optional] string DataFileName,
[in, optional] string IpAddr[],
[in, optional] string AdminEmailName,
[out, ref] MicrosoftDns_Zone &RR);

Et voila mon
Code:

1 2 3 Set objDNS = GetObject("winMgmts:root\MicrosoftDNS") Set objDNSZone = objDNS.Get("MicrosoftDNS_Zone") strNull = objDNSZone.CreateZone("test.fr",1, , ,"127.0.0.1")
Error : Type Mismatch sur le CreateZone :(
17/06/2009, 09h35
ced600

Citation:

[in] boolean DsIntegrated,

Ne semble pas être optionel

Je ferais plutôt :

Code:

strNull = objDNSZone.CreateZone("test.fr",1, False, ,"127.0.0.1")

ou

Code:

strNull = objDNSZone.CreateZone("test.fr",1, True, ,"127.0.0.1")
17/06/2009, 10h37
surion

Bonjour et merci pour votre réponse,

malheureusement, l'error reste la même :(
22/06/2009, 14h21
surion

quelqu'un pour m'aider ?? =(