On Error Resume Next localMachine = "." suffixesDns = Array("maisel.enst-bretagne.fr","enst-bretagne.fr") Const DISABLE_NETBIOS = 2 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ localMachine & "\root\default:StdRegProv") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & localMachine & "\root\cimv2") Set interfaces = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each interface In interfaces WScript.Echo VbCrLf & " Interface n°" & interface.Index & _ VbCrLf & " " & interface.Description & VbCrLf Rem ///////////// Activer DHCP ///////////////////// If Not interface.DHCPEnabled Then WScript.Echo " Activation du DHCP ..." errCode = interface.EnableDHCP If errCode = 0 Then result = " DHCP activé." Else result = " Impossible d'activer le DHCP :: Erreur " & errCode End If WScript.Echo result Else WScript.Echo " Le DHCP est déjà activé" WScript.Echo " Serveur DHCP : " & interface.DHCPServer End If Rem ///////////// Activer recherche de DNS automatique ////////////// baseCmd = "netsh interface ip set dns """ Set objNic = objWMIService.Get ("Win32_NetworkAdapter.DeviceID=" & interface.Index) connecName = objNic.NetConnectionID autoDnsBatch = baseCmd & connecName & """ dhcp" Set Wshell = CreateObject("WScript.Shell") If (Not interface.DHCPEnabled) and (not errCode = 0) Then WScript.Echo " Activer DHCP par netsh ..." Set oExec = Wshell.exec("netsh interface ip set address """ & connecName & """ dhcp") Do While oExec.Status = 0 WScript.Sleep 100 Loop WScript.Echo " DHCP activé" End If WScript.Echo " Activer la recherche de DNS automatique ..." Set oExec = Wshell.exec(autoDnsBatch) Do While oExec.Status = 0 WScript.Sleep 100 Loop WScript.Echo " Recherche DNS automatique activée" Set Wshell = nothing Rem //////////// Desactiver de NetBios over TCP/IP (NBT) //////////////// nbtErrCode = interface.SetTCPIPNetBIOS(DISABLE_NETBIOS) If nbtErrCode = 0 Then WScript.Echo " NetBIOS désactivé" ElseIf nbtErrCode = 1 Then WScript.Echo " NetBIOS désactivé, redémarrage necessaire" Else WScript.Echo " Impossible de désactiver NetBIOS" End If Next WScript.echo VbCrLf Rem ////////// Suffixes DNS pour la complétion des adresses ///////////// Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration") intSetSuffixes = objNetworkSettings.SetDNSSuffixSearchOrder(suffixesDns) If intSetSuffixes = 0 Then WScript.Echo " Suffixes DNS ajoutés" ElseIf intSetSuffixes = 1 Then WScript.Echo " Suffixes DNS ajoutés, redemarrage necessaire" Else WScript.Echo " Impossible de changer les suffixes DNS :: Erreur " & intSetSuffixes End If Rem ///////// Desactiver la recherche LMHOST ////////////// intEnableWINS = objNetworkSettings.EnableWINS(False, False, "", "") If intEnableWINS = 0 Then WScript.Echo " Recherche LMHOST desactivé" ElseIf intEnableWINS = 1 Then WScript.Echo " Recherche LMHOST desactivé, redemarrage necessaire" Else WScript.Echo " Impossible de desactiver la recherche LMHOST :: Erreur " & intEnableWINS End If Rem //////// Utiliser le proxy avec Internet Explorer ///////////// regPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" regKey = "AutoConfigURL" regVal = "http://resel.fr/proxy/proxy.pac" objReg.SetStringValue HKEY_CURRENT_USER, regPath, regKey, regVal Wscript.Echo " Proxy activé pour Internet Explorer" Rem ////// Utiliser le proxy avec Firefox si présent ///////////// Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("Process") userprofile = WshSysEnv("userprofile") ffFolder = userprofile & "\Application Data\Mozilla\Firefox\" If (fso.FileExists(ffFolder & "profiles.ini")) Then WScript.Echo " Firefox détecté" Set dossier = fso.GetFolder(ffFolder & "\Profiles\") Set profiles = dossier.SubFolders For Each profile in profiles Set preferences = fso.OpenTextFile(profile.Path & "\prefs.js", 1, False) Set newPrefs = fso.OpenTextFile(profile.Path & "\newprefs.js", 2, True) do while not preferences.AtEndOfStream ligne = preferences.ReadLine setting = Left(ligne,30) if ((not setting = "user_pref(""network.proxy.type""") and (not setting = "user_pref(""network.proxy.autoc")) Then newPrefs.WriteLine ligne end if loop WScript.echo " Configuration du proxy pour Firefox ..." newPrefs.WriteLine "user_pref(""network.proxy.autoconfig_url"", ""http://resel.fr/proxy/proxy.pac"");" newPrefs.WriteLine "user_pref(""network.proxy.type"", 2);" newPrefs.Close preferences.Close fso.CopyFile profile.Path & "\newprefs.js" , profile.Path & "\prefs.js" , True fso.DeleteFile profile.Path & "\newprefs.js" WScript.echo " Proxy configuré, redemarrer Firefox" Next Else WScript.Echo " Firefox n'est pas installé" End If Rem ///////// Change le serveur NTP pour celui du ResEl //////////// regPath = "Software\Microsoft\Windows\CurrentVersion\DateTime\Servers" regVal = "ntp.maisel.enst-bretagne.fr" objReg.GetStringValue HKEY_LOCAL_MACHINE, regPath, "", regKey if regKey = "" then regKey = 1 objReg.SetStringValue HKEY_LOCAL_MACHINE, regPath, "", 1 end if objReg.SetStringValue HKEY_LOCAL_MACHINE, regPath, regKey, regVal Wscript.Echo " Serveur NTP modifié"