You can have lisp in a script so you could make a list of color and layername then just loop trough them. just easier to call the lisp direct
(setq lst (list
"0,0,255" "318038_TOPO_001|EX-P IRR"
"0,0,255" "318038_TOPO_001|EX-SPRINKLER"
"0,0,255" "318038_TOPO_001|EX-WATER"
"0,0,255" "318038_TOPO_001|EX-WELL"
"0,255,0" "318038_TOPO_001|EX-SD"
"0,255,0" "318038_TOPO_001|EX-SEWER"
"127,0,255" "318038_TOPO_001|EX-IRR"
"204,204,0" "318038_TOPO_001|EX-GAS"
"204,204,0" "318038_TOPO_001|EX-GAS LOC PAINT"
"255,0,0" "318038_TOPO_001|EX-POWER"
"255,0,0" "318038_TOPO_001|EX-POWER LOC PAINT"
"255,127,0" "318038_TOPO_001|EX-FIBER OPTIC"
"255,127,0" "318038_TOPO_001|EX-SIGNAL"
"255,127,0" "318038_TOPO_001|EX-SIGNAL LOC PAINT"
"255,127,0" "318038_TOPO_001|EX-TELE"
"255,127,0" "318038_TOPO_001|EX-TELE LOC PAINT"
))
(setq x 0)
(repeat (/ (length lst) 2)
(command "vplayer" "C" "T" (nth x lst) (nth (+ x 1) lst) "Current" "")
(setq x (+ x 2))
)