One option would be to not use ping to check for online hosts. You could check for the existence of any file under C: on the remote host instead, and then write those hosts to a file. I HAVE NOT tested this so please test first.

@echo off
setlocal enabledelayedexpansion

REM checking for existence of output.txt and deleting if it is present
if not exist X:\output.txt goto nofile
del X:\output.txt

:nofile
for /f “tokens=*” %%A in (“X:\FQDNs.txt”) do (
REM checking for online status by looking for any file under c drive and output to list of online hosts
if exist \\%%A\c$\*.* echo %%A >> online.txt
)

REM using list of online hosts to set IPadd variable
for /f “tokens=*” %%A in (“online.txt”) do (
set IPadd=%%A
echo !IPadd:~0,-1!>>X:\output.txt

X:\psshutdown.exe -c -t 900 @X:\output.txt

See less

here is a batch game codes I now!
here it is:

:menu
@echo off
title Guess That Number!
echo type 1 to play
echo type 2 to exit
echo type 3 to play multiplayer
set /p C=
if “%C%”==”1” goto play
if “%C%”==”2” goto exit
if “%C%”==”3” goto multiplayer
if “%C%”==”%C%” goto invalid

:play
echo guess my favorite number 1 through 100!
set /p G=
if “%G%”==”none” goto win
if “%G%”==”%G%” goto lose
Exit

:multiplayer
echo do you want to see multiplayer instructions?
set /p MC=
if “%MC%”==”yes” goto M-instructions
if “%MC%”==”no” goto M-play

:M-instructions
echo the point of multiplayer in this game is to guess the correct number before the other player does! good luck!
pause
goto M-play

:M-play
set /p P1=type player 1’s name here:
set /p P2=type player 2’s name here:
echo %P1%
echo vs
echo %P2%
pause
echo to start multiplayer you need an extra player to choose the winning number!
pause
set /p N=type the winning number here:
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
echo loading…
pause
echo %P1%’s turn
echo guess my favorite number 1 through 100!
set /p MG=
if “%MG%”==”%N%” goto M-win
if “%MG%”==”%MG%” goto M-lose

:M-win
echo %MG% IS CORRECT!
echo %P1% WINS!
pause
Exit

:M-lose
echo I’m sorry, the answer %MG% is wrong. you lose!
echo %P1% LOSES!
pause
goto P2-M-play

:P2-M-play
echo %P2%’s turn
echo guess my favorite number 1 through 100!
set /p MGP2=
if “%MGP2%”==”%N%” goto P2-M-win
if “%MGP2%”==”%MGP2%” goto P2-M-lose

:p2-M-win
echo %MGP2% IS CORRECT!
echo %P2% WINS!
pause
Exit

:P2-M-lose
echo I’m sorry, the answer %G% is wrong. you lose!
echo TIE!
pause
echo and the wwinning number is…
pause
echo %N%!
pause
Exit

:win
echo %G% IS CORRECT!
pause
Exit

:lose
echo I’m sorry, the answer %G% is wrong. you lose!
pause
echo do you want to try again?
set /p Y=
if “%Y%”==”yes” goto play
if “%Y%”==”no” goto exit
if “%Y%”==”%Y%” goto invalid2

:exit
Exit

:invalid
echo I’m sorry but the command %C% is an invalid command.
pause
goto menu

:invalid2
echo I’m sorry but the command %Y% is an invalid command.
pause
goto lose

P.S. this is a guess the number game.
P.S.S. you can say this batch game is yours because I don’t have a website to post it on so that’s why I posted it. PEACE!

See less

I tried your formula with 3 different links: This thread, an Amazon product page and a Google search result. All three links returned by the formula worked fine. Since I can’t replicate your problem, I can’t offer any suggestions.

Could you share a couple of the links that are giving you trouble – assuming the target pages don’t contain personal or confidential information?

Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

See less

Hurrah! Success! It was a question of “Doh”! on my part. When the preview of the screenshot comes up on the screen it is “live”. I thought that it was just a picture and that any operation, such as “print” was to be found elsewhere. Of course I couldn’t find the print operation – until I hovered the mouse over the screenshot and found that it was “live” i.e. that there were operations available on the screenshot itself. The green Tick mark (I think you call it a Check mark) in the top left of the screenshot is the operation to allow you to “continue to output”. In fact, the operations are not actually part of the screenshot (i.e. it does not appear as part of the printout) they are just outside the screenshot but within the total frame of the preview. This I had not realised, because I viewed it as a part-screen not full screen mode. It is more obvious in full screen mode. My previous version of Printscreen had a much more obvious way of proceeding – even in part-screen mode. Oddly enough things have changed over time – funny I was not aware of this phenomenon! It was a question of “shouting before I was hurt” as my Dad would have said. Anyway, I’ve got it to work. “God is in His heaven and all’s right with the world”! Thanks to my respondents who caused me to think that I should look a little closer before “drawing stumps” (an English cricket expression meaning to finish and go home – just in case it’s not familiar States-side!)
Best wishes
Bobyk See less

First. to make your code easier to read in both the VBA editor and in this forum, please use the “continuation character” (an underscore) to break up long lines of code. A space then underscore tells VBA that the next line is a continuation of the current line:

nxtList = WorksheetFunction.Choose(colNum - 8, "Diagnosis", "DIAS4", _
          "STITCHII", "STROKE", "TARDIS", "ENOS", "SOS", "DARS", "CADISS", _
          "VIST", "METB", "IRIS", "DNA", "BMET", "GENESIS", "Soma", "Hospital")

I can think of 2 reasons why the code might present an error:

1 – One of the Names you have listed is not a Named Range and therefore the code can not use that Name as the source for the Drop Down.

In this case the code will probably error out whenever you enter Yes in Column H, even if No was in the cell previously.

2 – The Row already contains the Drop Downs and the code is trying to “Add” a Validation List where one already exists.

In this case the code will probably only error out when there are already Drop Downs in Columns I:Y. Actually a Drop Down in any one of those columns would cause the error since the code loops through each column adding the validation one by one and will fail as soon as it finds the first cell with Validation already applied.

If that’s the case, then add a .Delete just before the Validation is added:

With Cells(Target.Row, colNum).Validation
               .Delete
               .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:="=" & nxtList

That will Delete the current validation and allow the code to Add validation back in.

Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

See less