may be this will help you some what your post is old and i am new to this site but here you go

On Error Resume Next
strComputer = "COMPUTERNA ME OR . FOR LOCAL"
Set objWMIService = GetObject("winm gmts:\\" & strComputer & "\root\cimv 2")
Set objNetworkSetti ngs = objWMIService.G et("Win32_Netwo rkAdapterConfig uration")
rem set your domain name below
arrDNSSuffixes...