Description :
Ce script VBS assigne le domaine DNS supinfo.com comme suffixe DNS.
Script :
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
Wscript.Echo objNetCard.SetDNSDomain("supinfo.com")
Next
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
2
Visites :
15166
|
