Adresse dieser Verbindung im DNS registrieren (dekativieren mittels VBScript)

'On Error Resume Next  

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set objNicConf = objWMIService.Get("Win32_NetworkAdapterConfiguration")  

Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration")  

For Each objNicConfig In colNicConfigs
If InStr(objNicConfig.Description, "Wireless") <> 0 Then  
	'wscript.echo objNicConfig.Description	  
	intDNS = objNicConfig.SetDynamicDNSRegistration(True, True)
	
end if

Next