Vbscript .vbs脚本以更改特定于连接的DNS后缀

我正在寻找一种方法，让这个.vbs文件为一个名为LAN的以太网适配器添加一个特定于连接的DNS后缀

该代码形成了一个小型shell脚本，该脚本：

更改主DNS后缀

刷新DNS

检查IP详细信息以确保一切正常

更改启动类型或服务

启动上述服务

ping know服务器以确保网络连接

似乎找不到任何可行的代码来完成第一步。目前我有：

 'add dns

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Policies\Microsoft\Windows NT\DNSClient"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = "AppendToMultiLabelName"
'Enabled
strValue = "mysuffix.com"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


'flush dns

set shell = createobject("wscript.shell") 
shell.run("ipconfig /flushdns")
Wscript.echo "DNS Flushed."


'check DNS

Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("ipconfig /all")
strIpConfig = objScriptExec.StdOut.ReadAll
WScript.Echo strIpConfig


'start McAfee

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'enterceptAgent'")

For Each objService in colServiceList
    If objService.State = "Stopped" Then
        objService.StartService()
        Wscript.Sleep 5000
        Wscript.Echo "McAfee Started"
    Else
        Wscript.Echo "McAfee already running"
        Wscript.Sleep 5000
    End If
    errReturnCode = objService.ChangeStartMode("automatic")   
Next

'network test

set shell = createobject("wscript.shell") 
shell.run("ping pmo2 -t")

干杯

试试这个（配置为正确的GUID，请参阅

objNetCard.SettingID

属性）：

---

请参见

IMHO，至少有两个注册表位置用于主DNS后缀设置；我不确定它的首选项（相当于一个查询）：key

HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Paramaters

、value

Domain

和

SearchList

；和key

HKEY\u LOCAL\u MACHINE\SOFTWARE\Policies\Microsoft\windowsnt\DNSClient

，value

NV primarydnsuffix

。任何注册表操作都可能需要重新启动才能应用…感谢JosefZ，我发现要操作的注册表项位于HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Adapters中，但需要选择正确的GUID，这意味着手动操作比使用脚本更容易，但我将研究您的建议

option explicit
'On Error Resume Next
On Error GoTo 0
Dim strResult: strResult = Wscript.ScriptName

Dim strComputer, objWMIService, colNetCards, objNetCard
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
  strResult = strResult _
    & vbNewLine & objNetCard.Caption & vbTab & "'" & objNetCard.DNSDomain & "'" & vbTab & CBool( IsEmpty( objNetCard.DNSDomain)) & vbTab & CBool( IsNull( objNetCard.DNSDomain))
  strResult = strResult _
    & vbNewLine & objNetCard.SetDNSDomain("mysuffix.com") 
''    strResult = strResult & vbNewLine & objNetCard.SetDNSSuffixSearchOrder("mysuffix.com") 

Next 
'strResult = strResult & vbNewLine

Wscript.Echo strResult