/*
Bookmark Scan V1.0

Im not a good AREXX programmer so this script should just be
treated as a quick example of how to use AREXX with Go Portscan!

Feel free to send me any scripts you do yourself for inclusion
in future releases.

Script to portscan all hosts listed in the bookmarks

*/

ADDRESS 'GOPORTSCAN.1'
options results

myscantype=0
myportrange='"7,9,11,13,15,17,19-21,23,25,37,79-80,110,137,139"'


ANNOTATE '"bStaring Bookmark Scan AREXX Script.n"'

GETNUMBOOKMARKS
bookmarknum=result

IF bookmarknum >0 THEN
    DO loop = 0 TO (bookmarknum-1)
        GETBOOKMARK loop
        host=result
        NEWSCAN host myportrange myscantype
        GOSCAN
        result=1
        DO WHILE result='1'
            ISSCANNING
        END
    END
ELSE
    ANNOTATE '"uYou have no bookmarks to scan!n"'