Help with some queries with my server and AutoIt

[potitpanda]

I uses this script in order to get Name of my Server and IPADRESS

#include <Constants.au3>

;Récupere le nom et l'IP du S2

$process_id = Run(@ComSpec & " /c nslookup.exe 127.0.0.1 ","", @SW_HIDE,$STDOUT_CHILD)

$line = StdoutRead($process_id)

if StringLen($line)>11 then

$myarray = StringRegExp(StringLower($line),".*(w-013[0-9]{4}[a-z]-).*", 1)

if (StringLen($myarray[0]) >10) then

$S2_name=$myarray[0]&"2"

Msgbox (0,"test",$s2_name)

EndIf

endif

$process_id = Run(@ComSpec & " /c nslookup.exe "& $s2_name ,"", @SW_HIDE,$STDOUT_CHILD)

$line = StdoutRead($process_id)

if StringLen($line)>11 then

$myarray = StringRegExp(StringLower($line),"172.*.*.163",1)

if (StringLen($myarray[0]) >5) then

$S2_ip=$myarray[0]

Msgbox (0,"test",$s2_ip)

EndIf

endif

How to verify if my server Name is like AD-*

How to verify if my IP Begins by 172.*.*.*

Edited April 22, 2008 by potitpanda

[potitpanda]

Up Because Modified !

[weaponx]

We need more info. I'm thinking Nslookup may not be the best option here.

This lines don't make sense to me, why aren't you using a regular expression that takes the server name no matter what format?

if StringLen($line)>11 then

$myarray = StringRegExp(StringLower($line),".*(w-013[0-9]{4}[a-z]-).*", 1)

if (StringLen($myarray[0]) >10) then

[potitpanda]

HAve you other idea, other example script in order to get these informations ?

Thanks

[zackrspv]

I uses this script in order to get Name of my Server and IPADRESS

#include <Constants.au3>

;Récupere le nom et l'IP du S2

$process_id = Run(@ComSpec & " /c nslookup.exe 127.0.0.1 ","", @SW_HIDE,$STDOUT_CHILD)

$line = StdoutRead($process_id)

if StringLen($line)>11 then

$myarray = StringRegExp(StringLower($line),".*(w-013[0-9]{4}[a-z]-).*", 1)

if (StringLen($myarray[0]) >10) then

$S2_name=$myarray[0]&"2"

Msgbox (0,"test",$s2_name)

EndIf

endif

$process_id = Run(@ComSpec & " /c nslookup.exe "& $s2_name ,"", @SW_HIDE,$STDOUT_CHILD)

$line = StdoutRead($process_id)

if StringLen($line)>11 then

$myarray = StringRegExp(StringLower($line),"172.*.*.163",1)

if (StringLen($myarray[0]) >5) then

$S2_ip=$myarray[0]

Msgbox (0,"test",$s2_ip)

EndIf

endif

How to verify if my server Name is like AD-*

How to verify if my IP Begins by 172.*.*.*

i'm having a duh moment here, or just a nonexperienced one, why not use:

ConsoleWrite(@IPAddress1 & @CRLF)
ConsoleWrite(@IPAddress2 & @CRLF)
ConsoleWrite(@IPAddress3 & @CRLF)
ConsoleWrite(@IPAddress4 & @CRLF)
ConsoleWrite(@ComputerName & @CRLF)

data from those? That will give you the ip addresses of all of the network adapters (up to 4) and your host name on the computer you run it on. Since your doing a nslookup on 127.0.0.1, i'd assume you are running this on your own machine.

Now, if you are doing it on a remote machine, ok then it'd make sense. I'm just wondering tho.

[Xenobiologist]

Hi,

there is one thing you need to start:

1. Having the IP you can get the Name

2. Having the name you can get the IP.

What do you want?

Mega

[potitpanda]

I want to verify if my Ip of the local (or remote) machine is something like 172.*.*.* and My Name of remote server Server is like "AD-013* and if his IP is like 172.X.X.X

Edited April 23, 2008 by potitpanda

[weaponx]

This should work for checking the local machine. I suppose you could change localhost in the WMI query to run on remote machines.

#include <inet.au3>

;Retrieve IP address of primary DNS server from the primary network adapter
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE index=1", "WQL", 0x10 + 0x20)
If IsObj($colItems) Then
    For $objItem In $colItems
        $strDNSServerSearchOrder = $objItem.DNSServerSearchOrder(0)
        
        ;Reverse lookup the DNS IP address to find its hostname
        TCPStartup()
        $sResult = _TCPIpToName($strDNSServerSearchOrder)
        
        If @error Then
            MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
        Else
            MsgBox(0, "", "DNS server address: " & $strDNSServerSearchOrder & @CRLF & "DNS hostname: " & $sResult)
            
            If StringLeft($sResult, 6) = "AD-013" AND StringLeft($strDNSServerSearchOrder, 3) = "172" Then
                MsgBox(0, "", "VALID")
            Else
                MsgBox(0, "", "INVALID")
            EndIf
        EndIf
    Next
Else
    MsgBox(0, "WMI Output", "No WMI Objects Found for class: Win32_NetworkAdapterConfiguration")
EndIf