Discussion :

[surion]

Bonjour à tous,

Voici le code source que j'ai codé il y a quelques temps, et je désire le passer en VB.NET , tout est ok , sauf le Array de l'ip :/

VBS :

Code :

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

1
2
3
4
5
 
dim strNull,obj
Set objDNS = GetObject("winMgmts:root\MicrosoftDNS")
Set objDNSZone = objDNS.Get("MicrosoftDNS_Zone")
strNull = objDNSZone.CreateZone("testdelamortue",1,false,"dinao.dns.txt",array("192.168.0.4"))

VB.NET :

Code :

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

1
2
3
4
5
6
Dim strNull
objDNS = GetObject("winMgmts:root\MicrosoftDNS")
objDNSZone = objDNS.Get("MicrosoftDNS_Zone")
Dim MyArray() As String
MyArray(0) = "192.168.0.4"
strNull = objDNSZone.CreateZone("unpetittest", 1, False, "dinao.dns.txt", MyArray)

Type Mismatch sur MyArray :/

[Danyel]

Code :

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

Dim MyArray() As String = {"192.168.0.1" , "192.168.0.2" .....}

[surion]

Type Mismatch, encore et toujours

En faite je n'ais qu'une seul IP à affecter, et sa ne passe pas

[Pol63]

quel est le type requis par CreateZone ?

[surion]

Code :

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

1
2
3
4
5
6
7
8
9
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
);

IpAddr [in, optional]

IP address of the master DNS Server for the zone.


http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

[Pol63]

le dernier n'a pas l'air d'etre optionnel, donc il doit prendre ton array pour le dernier !