#170856 - 2006-11-30 08:30 PM
Change DNS suffix search order
|
jadewith
Fresh Scripter
Registered: 2003-06-13
Posts: 45
Loc: Good ole U S of A
|
Hello everyone,
I am trying to Change DNS Suffix search order to accomodate our new(meaning very first) DNS name spaces. I found a VB script that does what I need but would like to convert it to KiXtart and have had no luck.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
$strHostName = ""
arrDNSSuffixes = Array("crappy.com,silly.net")
objNetworkSettings.EnableDNS strHostName, , , arrDNSSuffixes
I have figurred out this part from poking around the board, but haven't been able to pull the trigger.
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\" + $remotepc + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=-1")
strHostName = ""
For each $objNetworkSettings in $colItems
$dnssuffix=$objNetworkSettings.DNSDomainSuffixSearchOrder("crappy.com,silly.net")
Next
Thanks for any help
Edited by jadewith (2006-11-30 08:33 PM)
|
Top
|
|
|
|
#170861 - 2006-11-30 11:36 PM
Re: Change DNS suffix search order
[Re: jadewith]
|
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4545
Loc: USA
|
|
Top
|
|
|
|
#170863 - 2006-12-01 12:10 AM
Re: Change DNS suffix search order
[Re: Allen]
|
jadewith
Fresh Scripter
Registered: 2003-06-13
Posts: 45
Loc: Good ole U S of A
|
Hi Allen,
I've looked at your udf and it doesn't have a Dns Suffix Search order setting. I tried adding it myself:
case $setting="DNSSearchSuffixes"
$settings[0]='SetDNSDomainSuffixSearchOrder($value)'
but even if it didn't give me the error "expected ')' Line 153", it would only be good for one domain right? and I've got at least 3 to enter. Is SetDNSDomainSuffixSearchOrder even a valid wmi command?
|
Top
|
|
|
|
#170868 - 2006-12-01 01:10 AM
Re: Change DNS suffix search order
[Re: Skip]
|
jadewith
Fresh Scripter
Registered: 2003-06-13
Posts: 45
Loc: Good ole U S of A
|
Thanks Skip,
I found something similar earlier today, and it wrote the entry just fine, only the card wouldn't use the suffixes listed. Yours works fine though, so go figure.
I would prefer to make the change via wmi but beggers can't be choosers. I think the reason that the wmi command wasn't working (other than that I'm only a mediocre script writer) comes from microsmurf:
DNSDomainSuffixSearchOrder String Space-delimited list of DNS domain suffixes to be appended to the end of host names during name resolution. When attempting to resolve a fully-qualified domain name (FQDN) from a host only name, the system will first append the local domain name. If this is not successful, the system will use the domain suffix list to create additional FQDNs in the order listed and query DNS servers for each
Example: "samples.microsoft.com example.microsoft.com"
And I don't know how to set a "space delimited" array.
Edited by jadewith (2006-12-01 01:12 AM)
|
Top
|
|
|
|
#170874 - 2006-12-01 04:33 AM
Re: Change DNS suffix search order
[Re: Allen]
|
jadewith
Fresh Scripter
Registered: 2003-06-13
Posts: 45
Loc: Good ole U S of A
|
Does this mean that setting the DNSDomainSuffixSearchOrder cannot be done through WMI with KiXtart? If so "THANK GOD!", that means I'm not as bad as I thought (of course I'm back to even because I didn't know that when I started). If anyone has any idea how to do this through WMI I'd love to hear it, otherwise thank you all for your help.
Jason
|
Top
|
|
|
|
#170961 - 2006-12-04 06:03 AM
Re: Change DNS suffix search order
[Re: jadewith]
|
Chris S.
MM club member
Registered: 2002-03-18
Posts: 2368
Loc: Earth
|
This seemed to work for me...
$strComputer = "."
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2")
$objNetworkSettings = $objWMIService.Get("Win32_NetworkAdapterConfiguration")
$strHostName = ""
$arrDNSSuffixes = Split("crappy.com,silly.net",",")
$rc = $objNetworkSettings.EnableDNS($strHostName, , , $arrDNSSuffixes)
@SERROR ?
|
Top
|
|
|
|
#170965 - 2006-12-04 08:19 AM
Re: Change DNS suffix search order
[Re: Chris S.]
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
Do I see another update coming for Al's UDF
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 515 anonymous users online.
|
|
|