Dns et visual basic/vbscript

Télécharger le projet
Commenter

Description

La classe suivante permet d'ajouter simplement par le code de nouvelles zones dans le serveur DNS de windows 2000. Il utilise pour cela le provider WMI dédié au serveur DNS.

Source / Exemple : 


'Exemple d'utilisation :

Dim Ret As mxDNSError 'Valeur de retour
Dim objDNSManager As New mxDNSManager 'Création d'une nouvelle instance de l'objet

'Les informations pour se connecter au serveur
Dim MyServerData As mxServerData
    With MyServerData
        .ServerIP = "10.10.10.17"               'Ip du serveur
'        .Username = "Administrateur"            'Optionnel sinon essaye avec le compte actuel
'        .Password = "Motdepasse"                'Optionnel sinon essaye avec le compte actuel
    End With
    
'Les informations pour la zone SOA
Dim MyZoneData As mxZoneData
    With MyZoneData
        .PrimaryServer = "ns1.jeromequintard.com"     'Le serveur primaire
        .PrimaryServerIP = "12.34.56.78"        'L'ip du serveur primaire
        .SecondaryServer = "ns2.jeromequintard.com"   'Le serveur secondaire
        .SecondaryServerIP = "12.34.56.78"      'L'ip du serveur secondaire
        .ResponsibleParty = "root.jeromequintard.com" 'Le responsable du domaine . en lieu et place de @ dans un SOA
        .TTL = 86400                            'Temps du TTL
        .RefreshInterval = 86400                'Temps du Refresh
        .RetryDelay = 21600                     'Temps du Retry
        .ExpireLimit = 360000                   'Temps du expire
        .MinimumTTL = 86400                     'Temps du minimum TTL
    End With
    
'Les informations pour les hôtes
Dim objDNSHosts As New mxDNSHosts
    With objDNSHosts
        .Add "www", "12.34.56.78"                'Création d'un www
        .Add "mail", "12.34.56.79"               'Création d'un mail
        .Add "ftp", "12.34.56.80"                'Création d'un ftp
        .Add "smtp", "12.34.56.79"               'Création d'un smtp
        .Add "news", "12.34.56.80"               'Création d'un news
        .Add "", "mail.imarp.com", MX, 10      'Création d'un MX (@ MX 10 mail.mazone.com)
        .Add "www2", "www.jeromequintard.com", CNAME    'Création d'un alias (www2 CNAME www.mazone.com)
    End With
    
'Création de la zone
Ret = objDNSManager.AddZone("imarp.com", MyServerData, MyZoneData, objDNSHosts)

'Affiche le message de retour
MsgBox objDNSManager.GetErrorString(Ret)

Set objDNSManager = Nothing

Conclusion :


L'exemple fonctionne parfaitement pour Windows 2000 Server. Pour windows 2003 server il suffit de changer la valeur d'une variable (indiqué dans le code). En cas de problème n'hésitez pas à m'écrire... Jérôme

Note: le code est facilement portable sous VBScript... Je peux même vous en faire une version pour utiliser via ASP...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.