Introduction au WSH [15 mn de lecture - paru le 11/6/2006 2:26:58 PM - Public : Confirmé]

Auteur

Florian RIEU Elève-Ingénieur Supinfo Paris Promotion SUPINFO 2008    Lui écrire    Tous les projets de cet auteur    Le mini-CV de cet auteur

3 Exemples de scripts

Le WSH permet de faire de nombreuses modifications sur un ordinateur. Le WSH permet par exemple de changer les ips des serveurs DNS primaire et secondaire d'une machine ou bien de désactiver le proxy sur internet explorer (voir exemple ci dessous) :

3.1 Changer les adresses IP des serveurs DNS primaire et secondaire

'On instancie nos objets et on récupère les IPs des DNS actuels
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
  End If
  intSetDNSServers = _
   objNicConfig.SetDNSServerSearchOrder(arrNewDNS)
'On remplace les IP des anciens DNS par les nouvelles stockées dans notre tableau
Next

3.2 Désactiver le proxy sous Internet Explorer

'Valeur hexadécimal
Const HKEY_CURRENT_USER = &H80000001
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
' Chemin de l'endroit où sont stockées les options d'Internet Explorer
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
'Clé
strValueName = "ProxyEnable"
'Valeur 0 pour désactivé et 1 pour activé
dwValue = 0
'On modifie les valeurs dans la base de registre.
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue