Simple question I guess..

[g37s]

I have this code below that will write a registry value to a file. I want the next line in the code to say if the registry value = 1 then write [PASSED!] if anything else write [FAILED!].


Set WshShell = WScript.CreateObject("WScript.Shell")
outfile.writeline "Append parent suffix of the primary DNS suffix setting... " & WshShell.RegRead("HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\UseDomainNameDevolution")

 

[markdmac]

You need to use On Error Resume Next so you can trap the error code.

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Result = WshShell.RegRead("HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\UseDomainNameDevolution")
If Err.Number = 0 Then
	outfile.writeline "Append parent suffix of the primary DNS suffix setting... " & Result
	outfile.writeline "[Passed]"
Else
	outfile.writeline "[Failed]"
End If

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[PHV]

if the registry value = 1 then write [PASSED!]

Set WshShell = WScript.CreateObject("WScript.Shell")
regvalue = WshShell.RegRead("HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\UseDomainNameDevolution")
outfile.WriteLine "Append parent suffix of the primary DNS suffix setting... " & regvalue
If regvalue = 1 Then
  outfile.WriteLine "[PASSED!]"
Else
  outfile.WriteLine "[FAILED!]"
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[g37s]

Thanks it helped!

 

[markdmac]

PHV, if the reg value were missing then your code will fail. But looking back at my code it only takes that into account and doesn't verify the actual value.

A combination of our code seems to be in order.

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Result = WshShell.RegRead("HKLM\System\CurrentControlSet\Services\Tcpip\Parameters\UseDomainNameDevolution")
If Err.Number = 0 Then
    If regvalue = 1 Then
       outfile.WriteLine "[PASSED!]"
    Else
       outfile.WriteLine "[FAILED!]"
    End If
Else
    outfile.writeline "[Failed]"
End If

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.