Déploiement de DHCP sur un réseau

+1 pour Autoit !!!
essayé = adopté  :bounce:

Merci ShonGail   :hello:

 
 
Même réponse que sur un topic récent à propos d'une commande à lancer avec droits admin :
 
Essaye Autoit, très bon langage de script. Il va te permettre de créer un script où tu vas lancer ta commande avec identifiants admin. Il va aussi te permettre de compiler le script en executable. Le mdp admin demeure donc sauf.
 
L'auteur de l'autre topic y a trouvé son bonheur.

 
Vi vi, j'y ai pensé... Mais bon, je ne suis qu'un petit stagiaire lol et je ne peux pas trop passer sur chaque poste pour les renommer.
 
Bon sinon, juste pour info, ce que j'ai trouvé marche, faut juste ouvrir une session avec un compte qui est administrateur du domaine. C'est le seul petit problème à l'heure actuelle. J'utilise un runas pour lancer ma commande quand les gens se connectent avec leur compte et çà leur demande un mot de passe, que bien entendu, je leur aurais communiqué à l'avance sinon je sens que je vais avoir des dizaines d'appels le jour du basculement en dhcp lol

Par exemple : "Connexion au r‚seau local" -> LAN
                        "Connexion au réseau sans fil " -> WIFI
                            ...

C'est un peu moins chiant à gérer, surtout pour les commandes consoles...

++ :hello:

Lance un script sur tous les postes avec cette ligne :

1/netsh interface ip reset. ( netsh natif 2000 et XP pas sur NT, 9x )

2/Reboot des ordinateurs.

2 BIS/ ou lancer deux fois ce script qui désactive l'interface ( ici "lan" ) puis l'active ( donc lance les requetes DHCP...) :

Const ssfCONTROLS = 3

sConnectionName = "lan"

sEnableVerb = "&Activer"
sDisableVerb = "&Désactiver"

set shellApp = createobject("shell.application" )
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
  if folderitem.name  = "Connexions réseau" then
    set oNetConnections = folderitem.getfolder: exit for
  end if
next

if oNetConnections is nothing then
  msgbox "Couldn't find 'Network and Dial-up Connections' folder"
  wscript.quit
end if

set oLanConnection = nothing
for each folderitem in oNetConnections.items
  if lcase(folderitem.name)  = lcase(sConnectionName) then
    set oLanConnection = folderitem: exit for
  end if
next

if oLanConnection is nothing then
  msgbox "Couldn't find '" & sConnectionName & "' item"
  wscript.quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
  s = s & vbcrlf & verb.name
  if verb.name = sEnableVerb then
    set oEnableVerb = verb
    bEnabled = false
  end if
  if verb.name = sDisableVerb then
    set oDisableVerb = verb
  end if
next

'debugging displays left just in case...
'
'MsgBox s ': wscript.quit
'MsgBox "Enabled: " & bEnabled ': wscript.quit

'not sure why, but invokeverb always seemed to work
'for enable but not disable.
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then
'  oLanConnection.invokeverb sDisableVerb
  oDisableVerb.DoIt
else
'  oLanConnection.invokeverb sEnableVerb
  oEnableVerb.DoIt
end if

'adjust the sleep duration below as needed...
'
'if you let the oLanConnection go out of scope
'and be destroyed too soon, the action of the verb
'may not take...
'
wscript.sleep 1000

:hello:

 
Oui, je connais cette console. Mais actuellement, mes 150 postes sont en ip fixes. Je dois installer un serveur DHCP avec plan d'adressage fixe. Donc je cherche un moyen pour que mes postes deviennent des clients dhcp sans avoir à passer sur chaque poste.
Voilà tout le problème ;-)

 :whistle: Ce script (qui n'est q'un exemple...) permet non seulement d'afficher les paramètres réseau, mais de comprendre également à quelles propriétés de l'objet correspond telles valeurs, pour enfin utiliser celles que l'on désire modifier par script...
 :jap:

 :heink: Pourquoi télécharger ce qui est déjà fournit avec tout bon XP Pro, serveur 2k & 2k3 ?