Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows Serveur Administration modification auto DNS sur T parc

modification auto DNS sur T parc

17 réponses
Avatar
abdul
Bonjour,
j'ai un parc de 700 machines , je veux modifier l'adresse DNS de l'ensemble
de ces postes (win2k,win2003 et win98), le controleur de domaine est WINNT
4.0 (qu'on est en trein de migrer)
je veux modifier ce script ci-dessous pour qu'il prenne en entréé l'ensemble
de ces machines au lieu d'une lachine par machine

Merci d'avance
--------

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery_("Select * From
Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("212.217.0.12","10.2.240.158")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jonathan Bismuth
Là ça n'est pas en vbs mais en AutoIT (sensiblement pareil mais plus
puissant)

téléchargeable gratuitement ici : http://www.autoitscript.com/autoit3/
Une fois le script compilé (shift +F7), le Framework de dev n'est aucunement
nécessaire sur les postes clients ;)

--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"Gael" a écrit dans le message de news:



ha bah voilà, je ne savais pas si c'était possible en vbs... j'ai la
réponse
;)



Bonjour Abdul, bonjour Gael,

Je m'immisse rapidement dans le thread, mais un simple Script AutoIT
compilé
ne ferait il pas l'affaire pour l'exécution en tant qu'administrateur de
ta
modif DNS?

Ex :
; debut script

$FCheck = FileExists ("c:tmp-dns")

if $FCheck<> 1 Then
DirCreate ("c:tmp-dns")
EndIf

$Script = FileInstall ("ton_script.vbs", "c:tmp-dnston_script.vbs", 1)

RunAsSet ("login_administrateur", "DOMAINE_NETBIOS", "mot_de_passe")

$DNS = RunWait (@ComSpec & " /c " & "cscript c:tmp-dns"& $script &"
")

RunAsSet ()
DirRemove ("c:tmp-dns")

; fin script

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"Gael" a écrit dans le message de news:

ha oui je l'avais oublié celui là... NT4...

je crois qu'il ne reste qu'une solution... les mettre administrateurs
le
temps d'executer le script...


merci encore une pour votre aide,
mais je sais pas comment automatiser le changement de droit sur les
proprietes de IP pour 800 utilisateurs etant donné que les controleurs
c'est
du winNT4.0

merci
"Gael" wrote in message
news:

hum.. excuses moi, j'ai dis une betise, .. enfin à moitié, car on ne
peut
pas passer le mot de passe en argument dans le runas; Donc il faut
trouver
une autre solution..

comme par exemple leur donner le droit de modifier leurs propriétés
ip
le
temps d'appliquer le script?

G


merci, mais ou je peux ajouter le run as au niveau du script "le
script
je


l'ai trouvé sur internet"

Cordialement,

"Gael" wrote in message
news:
tu peux faire un runas... il y aura le pass admin en clair dans
le
script,



mais bon les utilisateurs en verront rien, et qd tout le monde
aura
migré



tu
vire le script...

à toi de voir ;)


Bonjour,
j'ai réessayé avec le logon Script cette fois ci en spécifiant
le
chemin




au
niveau de "terminal server pfofile path" : nom de
serveurnetlogon
et




le
nom de script au niveau de "logon script name" ca marche, mais
le
pb
il




faut
le compte utilisateur ait les privileges d'administration
y'a t'il une solution pour exécuter ce script en ajoutant un
compte
qui




a le
privilege d'administration au niveau du script sans ajouter le
compte




user
aux gpe administrateur


merci

"abdul" wrote in message
news:
bonjour,
merci tout d'abords, j'ai essayé avec le logon script et ca
n'a
pas





marché,
pb de fournisseur WMI peut etre qu'il installer (je ne sais
pas
comment)



et
pb des droits

Cordialement,

"Gael" wrote in message
news:
... pourquoi tu ne mets pas le script dans un script de
logon?
il






sera
executé sur toutes les machines... ;)


Bonjour,
j'ai un parc de 700 machines , je veux modifier
l'adresse
DNS
de







l'ensemble
de ces postes (win2k,win2003 et win98), le controleur de
domaine







est
WINNT
4.0 (qu'on est en trein de migrer)
je veux modifier ce script ci-dessous pour qu'il prenne
en
entréé







l'ensemble
de ces machines au lieu d'une lachine par machine

Merci d'avance
--------

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")





Set colNetCards = objWMIService.ExecQuery_("Select *
From
Win32_NetworkAdapterConfiguration Where IPEnabled =
True")
For Each objNetCard in colNetCards
arrDNSServers = Array("212.217.0.12","10.2.240.158")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next







































Avatar
abdul
merci pour votre aide est ce que je peux mettre mon script Vbs dans un
partage je je lance le script compile par le logon script

merci
"Jonathan Bismuth" wrote in
message news:
Là ça n'est pas en vbs mais en AutoIT (sensiblement pareil mais plus
puissant)

téléchargeable gratuitement ici : http://www.autoitscript.com/autoit3/
Une fois le script compilé (shift +F7), le Framework de dev n'est
aucunement

nécessaire sur les postes clients ;)

--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"Gael" a écrit dans le message de news:



ha bah voilà, je ne savais pas si c'était possible en vbs... j'ai la
réponse
;)



Bonjour Abdul, bonjour Gael,

Je m'immisse rapidement dans le thread, mais un simple Script AutoIT
compilé
ne ferait il pas l'affaire pour l'exécution en tant qu'administrateur
de



ta
modif DNS?

Ex :
; debut script

$FCheck = FileExists ("c:tmp-dns")

if $FCheck<> 1 Then
DirCreate ("c:tmp-dns")
EndIf

$Script = FileInstall ("ton_script.vbs", "c:tmp-dnston_script.vbs",
1)




RunAsSet ("login_administrateur", "DOMAINE_NETBIOS", "mot_de_passe")

$DNS = RunWait (@ComSpec & " /c " & "cscript c:tmp-dns"& $script &"
")

RunAsSet ()
DirRemove ("c:tmp-dns")

; fin script

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"Gael" a écrit dans le message de
news:




ha oui je l'avais oublié celui là... NT4...

je crois qu'il ne reste qu'une solution... les mettre administrateurs
le
temps d'executer le script...


merci encore une pour votre aide,
mais je sais pas comment automatiser le changement de droit sur les
proprietes de IP pour 800 utilisateurs etant donné que les
controleurs





c'est
du winNT4.0

merci
"Gael" wrote in message
news:

hum.. excuses moi, j'ai dis une betise, .. enfin à moitié, car on
ne






peut
pas passer le mot de passe en argument dans le runas; Donc il faut
trouver
une autre solution..

comme par exemple leur donner le droit de modifier leurs
propriétés






ip
le
temps d'appliquer le script?

G


merci, mais ou je peux ajouter le run as au niveau du script "le
script
je


l'ai trouvé sur internet"

Cordialement,

"Gael" wrote in message
news:
tu peux faire un runas... il y aura le pass admin en clair
dans








le
script,



mais bon les utilisateurs en verront rien, et qd tout le monde
aura
migré



tu
vire le script...

à toi de voir ;)


Bonjour,
j'ai réessayé avec le logon Script cette fois ci en
spécifiant









le
chemin




au
niveau de "terminal server pfofile path" : nom de
serveurnetlogon
et




le
nom de script au niveau de "logon script name" ca marche,
mais









le
pb
il




faut
le compte utilisateur ait les privileges d'administration
y'a t'il une solution pour exécuter ce script en ajoutant un
compte
qui




a le
privilege d'administration au niveau du script sans ajouter
le









compte
user
aux gpe administrateur


merci

"abdul" wrote in message
news:
bonjour,
merci tout d'abords, j'ai essayé avec le logon script et
ca










n'a
pas





marché,
pb de fournisseur WMI peut etre qu'il installer (je ne
sais










pas
comment)



et
pb des droits

Cordialement,

"Gael" wrote in message
news:
... pourquoi tu ne mets pas le script dans un script de
logon?
il






sera
executé sur toutes les machines... ;)


Bonjour,
j'ai un parc de 700 machines , je veux modifier
l'adresse
DNS
de







l'ensemble
de ces postes (win2k,win2003 et win98), le controleur
de












domaine
est
WINNT
4.0 (qu'on est en trein de migrer)
je veux modifier ce script ci-dessous pour qu'il
prenne












en
entréé







l'ensemble
de ces machines au lieu d'une lachine par machine

Merci d'avance
--------

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")





Set colNetCards = objWMIService.ExecQuery_("Select *
From
Win32_NetworkAdapterConfiguration Where IPEnabled > >> >> > > > > > > > True")
For Each objNetCard in colNetCards
arrDNSServers = Array("212.217.0.12","10.2.240.158")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next











































Avatar
Jonathan Bismuth
Inutile ;)

la commande "$Script = FileInstall ("ton_script.vbs",
"c:tmp-dnston_script.vbs",1)" package de script ton_script.vbs) dans l'exe
même.
Donc, lance le script compilé depuis en logon et ça devrait passer
correctement

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:

merci pour votre aide est ce que je peux mettre mon script Vbs dans un
partage je je lance le script compile par le logon script

merci
...


Avatar
abdul
execusez moi encore une fois pour le derrangement
j'ai testé le script en local sur ma machine, mais ca n'a rien donné , je
t'explique qu'est ce que j'ai fait :
j'ai crée un rep c:tmp-dns et j'ai y copie le script vbs apres j'ai tout
compilé en .exe apres le l'ai exécuté en local sur ma machine mais le dns
n'a pas changé
Cordialement,

"Jonathan Bismuth" wrote in
message news:
Inutile ;)

la commande "$Script = FileInstall ("ton_script.vbs",
"c:tmp-dnston_script.vbs",1)" package de script ton_script.vbs) dans
l'exe

même.
Donc, lance le script compilé depuis en logon et ça devrait passer
correctement

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:

merci pour votre aide est ce que je peux mettre mon script Vbs dans un
partage je je lance le script compile par le logon script

merci
...






Avatar
Jonathan Bismuth
Re,

mes excuses, j'ai oublié une ligne ... ça m'apprendra à pondre des trucs de
tête sans tester :)

version qui marche :

; debut script

$FCheck = FileExists ("c:tmp-dns")

if $FCheck <> 1 Then
DirCreate ("c:tmp-dns")
EndIf

$Script = FileInstall ("ton_script.vbs", "c:tmp-dnston_script.vbs", 1)

$path = "c:tmp-dnston_script.vbs"
RunAsSet ("login_admin", "domaine", "mot de passe")

$DNS = RunWait (@ComSpec & " /c " & "cscript "& $path &"")

RunAsSet ()

DirRemove ("c:tmp-dns",1)

; fin script


ne crée pas de dossier, il le fait puis le supprime tout seul :)

--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:
%
execusez moi encore une fois pour le derrangement
j'ai testé le script en local sur ma machine, mais ca n'a rien donné , je
t'explique qu'est ce que j'ai fait :
j'ai crée un rep c:tmp-dns et j'ai y copie le script vbs apres j'ai tout
compilé en .exe apres le l'ai exécuté en local sur ma machine mais le dns
n'a pas changé
Cordialement,

"Jonathan Bismuth" wrote in
message news:
Inutile ;)

la commande "$Script = FileInstall ("ton_script.vbs",
"c:tmp-dnston_script.vbs",1)" package de script ton_script.vbs) dans
l'exe

même.
Donc, lance le script compilé depuis en logon et ça devrait passer
correctement

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:

merci pour votre aide est ce que je peux mettre mon script Vbs dans un
partage je je lance le script compile par le logon script

merci
...










Avatar
abdul
le scripte compilé crée le repertoire tmp-dns et y met le scripte vbs mais
l'adresse dns ne change pas
qg je le lance directement le scripte vbs à partir du tmp-dns l'adresse dns
change

"abdul" wrote in message
news:%
execusez moi encore une fois pour le derrangement
j'ai testé le script en local sur ma machine, mais ca n'a rien donné , je
t'explique qu'est ce que j'ai fait :
j'ai crée un rep c:tmp-dns et j'ai y copie le script vbs apres j'ai tout
compilé en .exe apres le l'ai exécuté en local sur ma machine mais le dns
n'a pas changé
Cordialement,

"Jonathan Bismuth" wrote in
message news:
Inutile ;)

la commande "$Script = FileInstall ("ton_script.vbs",
"c:tmp-dnston_script.vbs",1)" package de script ton_script.vbs) dans
l'exe

même.
Donc, lance le script compilé depuis en logon et ça devrait passer
correctement

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:

merci pour votre aide est ce que je peux mettre mon script Vbs dans un
partage je je lance le script compile par le logon script

merci
...










Avatar
abdul
Bravo, ca marche tres bien

Merci beaucoup

"Jonathan Bismuth" wrote in
message news:
Re,

mes excuses, j'ai oublié une ligne ... ça m'apprendra à pondre des trucs
de

tête sans tester :)

version qui marche :

; debut script

$FCheck = FileExists ("c:tmp-dns")

if $FCheck <> 1 Then
DirCreate ("c:tmp-dns")
EndIf

$Script = FileInstall ("ton_script.vbs", "c:tmp-dnston_script.vbs", 1)

$path = "c:tmp-dnston_script.vbs"
RunAsSet ("login_admin", "domaine", "mot de passe")

$DNS = RunWait (@ComSpec & " /c " & "cscript "& $path &"")

RunAsSet ()

DirRemove ("c:tmp-dns",1)

; fin script


ne crée pas de dossier, il le fait puis le supprime tout seul :)

--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:
%
execusez moi encore une fois pour le derrangement
j'ai testé le script en local sur ma machine, mais ca n'a rien donné ,
je


t'explique qu'est ce que j'ai fait :
j'ai crée un rep c:tmp-dns et j'ai y copie le script vbs apres j'ai
tout


compilé en .exe apres le l'ai exécuté en local sur ma machine mais le
dns


n'a pas changé
Cordialement,

"Jonathan Bismuth" wrote
in


message news:
Inutile ;)

la commande "$Script = FileInstall ("ton_script.vbs",
"c:tmp-dnston_script.vbs",1)" package de script ton_script.vbs) dans
l'exe

même.
Donc, lance le script compilé depuis en logon et ça devrait passer
correctement

Cordialement,
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"abdul" a écrit dans le message de news:

merci pour votre aide est ce que je peux mettre mon script Vbs dans
un




partage je je lance le script compile par le logon script

merci
...














1 2