_RunDos need help. Missing EndIF ?

[pjw73nh]

Greetings,

Please take a quick look at my code. I have two questions regarding it.

I want my script to test a machine for an IP address in a specific range, and then run a command if any of the conditions are true. The script functions OK as it is written. However,

1. If I remove the ";" before the #include <process.au3>... IE (un-rem) the line, I will get a "missing EndIf" error and I am not sure why.

I have only put the DIR C: command in, because I want to test THIS DOS command before I put my actual command in there. The MsgBox commands are just for testing.

2. Is there a better way to tighten up the code? I was thing of using a boolean OR instead of the multiple ElseIf commands, but I couldn't find the right syntax.

Thank you in advance.

Paul...

Verifies if OS is Windows XP, exits script if not.
If @OSVersion <> "WIN_XP" Then
    Exit
EndIf
;  Checks to see if IP address falls in the DHCP range for the EH site. Exits if not.
$IP1 = StringLeft(@IPAddress1, 7)

If $IP1 = "1.1.1.40" Then
    MsgBox(0, "The program will run", "40 Leftmost 7 characters of IP Address are: " & $IP1)
;   #include <Process.au3>_RunDOS("dir c:\")
    Exit
ElseIf $IP1 = "1.1.41." Then
    MsgBox(0, "The program will run", "41 Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
ElseIf $IP1 = "1.1.42." Then
    MsgBox(0, "The program will run", "42 Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
ElseIf $IP1 = "1.1.43." Then
    MsgBox(0, "The program will run", "43 Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
ElseIf $IP1 = "1.1.44." Then
    MsgBox(0, "The program will run", "44Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
Else
    MsgBox(0, "The program will NOT run", "Leftmost 7 characters of IP Address are: " & $IP1)
EndIf


$IP2 = StringLeft(@IPAddress1, 3)
If $IP2 = "10." Then
    MsgBox(0, "The program will run", "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
    Exit
Else
    MsgBox(0, "The program will NOT run", "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
    Exit
EndIf

[blademonkey]

your problem is in your first line, you need to add a semicolon to make that a comment or else it takes it as code (including the if)

So this:

Verifies if OS is Windows XP, exits script if not.

becomes this:

;Verifies if OS is Windows XP, exits script if not.

[pjw73nh]

your problem is in your first line, you need to add a semicolon to make that a comment or else it takes it as code (including the if)

So this:

Verifies if OS is Windows XP, exits script if not.

becomes this:

;Verifies if OS is Windows XP, exits script if not.

Sorry about that. I just didn't get the first semi-colon when I selected the text with the copy/paste into the forum post. The semi is acutally in my script. So I think the problem is elsewhere. Thanks for the reply though. Paul...

[BigDod]

_RunDos will not work with "dir c:\" try

Run(@ComSpec & " /c " & 'dir c:\', "")

[Danny35d]

The reason why your script not work is because you have this line all together #include <Process.au3>_RunDOS("dir c:\") you should put #include<Process.au3> at the begining of your script

I short your script a little. I hope this will help you....

#include <Process.au3>

;Verifies if OS is Windows XP, exits script if not.
If @OSVersion <> "WIN_XP" Then
   Exit
EndIf
;  Checks to see if IP address falls in the DHCP range for the EH site. Exits if not.
$IP1 = StringLeft(@IPAddress1, 7)
$IP2 = StringLeft(@IPAddress1, 3)

If $IP1 = "1.1.1.40" Then
    MsgBox(0, "The program will run", "40 Leftmost 7 characters of IP Address are: " & $IP1)
    _RunDOS("dir c:\")
    Exit
ElseIf $IP1 = "1.1.41." Or $IP1 = "1.1.42." Or $IP1 = "1.1.43." Or $IP1 = "1.1.44." Then
    MsgBox(0, "The program will run", StringMid($IP1, 5,2) & " Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
ElseIf $IP2 = "10." Then
    MsgBox(0, "The program will run", "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
    Exit
Else
    MsgBox(0, "The program will NOT run", "Leftmost 7 characters of IP Address are: " & $IP1 & @CRLF & @CRLF & "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
EndIf

Keep in mind that _RunDos will work with "dir c:\" but the command window is hiden so you will not be able to see anything I will try "dir c:\ > c:\Dir.Log" after the script is done check the log file at the C: drive. Edited December 20, 2005 by Danny35d

[pjw73nh]

The reason why your script not work is because you have this line all together #include <Process.au3>_RunDOS("dir c:\") you should put #include<Process.au3> at the begining of your script

I short your script a little. I hope this will help you....

#include <Process.au3>

;Verifies if OS is Windows XP, exits script if not.
If @OSVersion <> "WIN_XP" Then
   Exit
EndIf
;  Checks to see if IP address falls in the DHCP range for the EH site. Exits if not.
$IP1 = StringLeft(@IPAddress1, 7)
$IP2 = StringLeft(@IPAddress1, 3)

If $IP1 = "1.1.1.40" Then
    MsgBox(0, "The program will run", "40 Leftmost 7 characters of IP Address are: " & $IP1)
    _RunDOS("dir c:\")
    Exit
ElseIf $IP1 = "1.1.41." Or $IP1 = "1.1.42." Or $IP1 = "1.1.43." Or $IP1 = "1.1.44." Then
    MsgBox(0, "The program will run", StringMid($IP1, 5,2) & " Leftmost 7 characters of IP Address are: " & $IP1)
    Exit
ElseIf $IP2 = "10." Then
    MsgBox(0, "The program will run", "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
    Exit
Else
    MsgBox(0, "The program will NOT run", "Leftmost 7 characters of IP Address are: " & $IP1 & @CRLF & @CRLF & "IP2 Leftmost 3 characters of IP Address are: " & $IP2)
EndIf

Keep in mind that _RunDos will work with "dir c:\" but the command window is hiden so you will not be able to see anything I will try "dir c:\ > c:\Dir.Log" after the script is done check the log file at the C: drive.

Thanks folks. Both of those ideas solved the issue. Thanks for tightening up my code for me. That is exactly the syntax I was looking for.

Paul...

[MrSpacely]

_RunDos will not work with "dir c:\" try

Run(@ComSpec & " /c " & 'dir c:\', "")

uhm whats the real diffence and when doesn't rundos work??

my _rundos I found in the include directory was made for running commands like that

Func _RunDOS($sCommand)
    Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc;==>_RunDOS

So it does work, and like the other pointed out you cannot see the output

Edited December 21, 2005 by MrSpacely

[BigDod]

So it does work, and like the other pointed out you cannot see the output

That is what I meant to say but did not word it correctly. He stated in the original post that the _rundos command was there so that he could see if it worked. What I meant to say was that the _rundos command he was using would not let him see if it was working.

Thanks for pointing out my error.

[MrSpacely]

That is what I meant to say but did not word it correctly. He stated in the original post that the _rundos command was there so that he could see if it worked. What I meant to say was that the _rundos command he was using would not let him see if it was working.

Thanks for pointing out my error.

Thanks for reacting

[LxP]

There's a small logic error here:

···
$IP1 = StringLeft(@IPAddress1, 7)
If $IP1 = "1.1.1.40" Then
···

As you are comparing a 7-character string to an 8-character one, that test will always fail. If you would like to check whether one string begins with another, then you could do this:

If StringInStr('this is my long string', 'this is my') = 1 Then
    MsgBox(0x40, '', 'The first string begins with the second.')
EndIf

Also, as you are basically doing comparison of numbers you could split the IP address into four separate numbers and look at them that way. Here's another approach to what you're going for:

; Only continue under XP
If @OSVersion <> 'WIN_XP' Then
    MsgBox(0x10, 'Error', 'This utility can only be called under Windows XP.')
    Exit
EndIf

; Determine if the IP address falls in the DHCP range for the EH site
$IP = StringSplit(@IPAddress1, '.')

; $IP is now an array where $IP[1] is the first octet, etc.

; If the IP address is in the form 1.1.[40-44].x or 10.x.x.x then
If ($IP[1] = 1 And $IP[2] = 1 And $IP[3] >= 40 And $IP[3] <= 44) Or ($IP[1] = 10) Then
    $Message = 'The program will run.'
Else
    $Message = 'The program will NOT run.'
EndIf

MsgBox(0x40, 'IP address: ' & @IPAddress1, $Message)