Discussion :

[hackoofr]

J'ai utilisé ce vbscript qui permet de mettre en place les DNS de OpenDNS qui est un service gratuit de redirection DNS. Il se consulte via deux serveurs DNS récursifs accessibles sous les IP anycast suivantes : IPv4 : 208.67.222.222 ; 208.67.220.220; 208.67.222.220 et 208.67.220.222
Mais maintenant je cherche comment le remettre dans son état initial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Call OpenDNS()
'*********************************************************************************
Sub OpenDNS()
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("208.67.222.123", "208.67.220.123")
		objNetCard.SetDNSServerSearchOrder(arrDNSServers)
		If Err = 0 Then
			MsgBox "OpenDNS est activé",VbInformation,"OpenDNS est activé"
		Else
			MsgBox Err.Decription,Vbcritical,Err.Decription
		End If	
	Next
End Sub
'*********************************************************************************

[hackoofr]

Bon, comme d'habitude, j'ai trouvé la solution tout seul et le problème est
Donc, c'est un nouveau Vbscript, qui a pour but de bloquer les sites pornographiques et malveillants en utilisant le service gratuit de OpenDNS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
Dim MessageArabe,MessageFr,MessageEn,Titre,Question,strComputer,objWMIService,colNetCards,objNetCard,arrDNSServers
MessageArabe = ChrW(1607)&ChrW(1604)&ChrW(32)&ChrW(1578)&ChrW(1585)&ChrW(1610)&ChrW(1583)&ChrW(32)&_
ChrW(1581)&ChrW(1580)&ChrW(1576)&ChrW(32)&ChrW(1575)&ChrW(1604)&_
ChrW(1605)&ChrW(1608)&ChrW(1575)&ChrW(1602)&ChrW(1593)&ChrW(32)&ChrW(1575)&ChrW(1604)&_
ChrW(1575)&ChrW(1576)&ChrW(1575)&ChrW(1581)&ChrW(1610)&ChrW(1577)&ChrW(32)&ChrW(1608)&_
ChrW(32)&ChrW(1575)&ChrW(1604)&ChrW(1582)&ChrW(1576)&ChrW(1610)&ChrW(1579)&ChrW(1577)
MessageFr = " Voulez-vous bloquer les sites pornographiques et malveillants ?"
MessageEn = " Do you want to block pornographic and malicious websites ?"
Titre = MessageArabe &" © Hackoo © 2014"
Question = MsgBox(MessageArabe  & VbcrLf & MessageFr & VbcrLf & MessageEn,VbYesNO+VbQuestion,Titre)
If Question = VbYes then
    Call OpenDNS(True)
Else
    Call OpenDNS(False)
End if
'****************************************************************************************************************
Sub OpenDNS(Active)
    Dim OKMsgAR,OKMsgFR,OKMsgEN,NoOKMsgAR,NoOKMsgFR,NoOKMsgEN
    OKMsgAR = ChrW(1578)&ChrW(1605)&ChrW(32)&ChrW(1578)&ChrW(1606)&ChrW(1588)&ChrW(1610)&ChrW(1591)&ChrW(32)&ChrW(1582)&_
    ChrW(1583)&ChrW(1605)&ChrW(1577)&ChrW(32)&ChrW(1571)&ChrW(1576)&ChrW(1606)&ChrW(1583)&ChrW(1606)&ChrW(1587)&ChrW(32)&_
    ChrW(1576)&ChrW(1606)&ChrW(1580)&ChrW(1575)&ChrW(1581)&ChrW(33)
 
    NoOKMsgAR = ChrW(1578)&ChrW(1605)&ChrW(32)&ChrW(1573)&ChrW(1604)&ChrW(1594)&ChrW(1575)&ChrW(1569)&ChrW(32)&ChrW(1582)&_
    ChrW(1583)&ChrW(1605)&ChrW(1577)&ChrW(32)&ChrW(1571)&ChrW(1576)&ChrW(1606)&ChrW(1583)&ChrW(1606)&ChrW(1587)&ChrW(32)&_
    ChrW(1576)&ChrW(1606)&ChrW(1580)&ChrW(1575)&ChrW(1581)&ChrW(33)
 
    OKMsgFR = "Le service OpenDNS est activé avec succès !"
    NoOKMsgFR = "Le service OpenDNS est désactivé avec succès !"
 
    OKMsgEN = "The OpenDNS service is successfully activated !"
    NoOKMsgEN = "The OpenDNS service is off successfully !"
    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")
    If Active = True Then
        For Each objNetCard in colNetCards
            arrDNSServers = Array("208.67.222.123", "208.67.220.123")
            objNetCard.SetDNSServerSearchOrder(arrDNSServers)
            If Err = 0 Then
                MsgBox OKMsgAR & VbCrlF & OKMsgFR & VbCrlF & OKMsgEN,VbInformation, OKMsgAR & OKMsgFR
            Else
                MsgBox Err.Description,Vbcritical,Err.Description
            End If    
        Next
    Else
        For Each objNetCard in colNetCards
            objNetCard.SetDNSServerSearchOrder(null)
            If Err = 0 Then
                MsgBox NoOKMsgAR & VbCrlF & NoOKMsgFR & VbCrlF & NoOKMsgEN,VbExclamation,NoOKMsgAR & NoOKMsgFR 
            Else
                MsgBox Err.Description,Vbcritical,Err.Description
            End If    
        Next
    End If
End Sub
'***************************************************************************************************************