tnsping script?

lhorstma

Anyone have a script already written to do basic tnspings? Would save me a lot of time if someone had one and could upload it to content exchange.

 

Thanks

lhorstma

Well I wrote my own and got it working. Pasted here for anyone else to use or modify. Just change the tnsname to what you want to ping, the temporary output file to something unique, and check the path to your tnsping. Returns status of up if it get's an OK result, and down if it gets anything else, plus the time in msecs to do the tnsping as a statistic. This was my first attempt at vbscript so don't make fun of me too much if it's ugly.

dim obj_shell
dim obj_fso, str_output, str_record, int_strsearch, int_statistic, int_exitcode
dim obj_regex, col_match

int_exitcode = 1

set obj_FSO = CreateObject("Scripting.FileSystemObject")
set obj_shell = wscript.createobject ("wscript.shell")
set obj_regex = CreateObject ("VBScript.Regexp")

obj_regex.pattern = "[0-9]+"

obj_shell.run "cmd /c \oracle\OraClient10g\BIN\tnsping.exe ENTERTNSNAMEHERE > c:\temp\output.txt", 10, true

set str_output = obj_fso.opentextfile ("c:\temp\output.txt", 1, false)
do until str_output.atendofstream
    str_record = str_output.readline
    int_strsearch = InStr(str_record, "OK ")
    if int_strsearch > 0 then
        int_exitcode = 0
        set col_match = obj_regex.execute(str_record)
        if col_match.count > 0 then
            int_statistic = col_match(0)
        end if
    end if
loop

wscript.echo "Statistic: " & int_statistic

str_output.close
wscript.quit(int_exitcode)