Discussion :

[surion]

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

[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.

[surion]

Biensur, voila :

DNS secondaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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 =)

[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.

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

[in] boolean DsIntegrated,

Ne semble pas être optionel

Je ferais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[surion]

Bonjour et merci pour votre réponse,

malheureusement, l'error reste la même

[surion]

quelqu'un pour m'aider ?? =(