Dim s1

Set s1 = CreateObject("S1w.S1Diag")
s1.Prefix="DIAG "
WScript.Echo s1.S1Diag("BEGINaa11ab9ac12ad12ba7bb7bc7bd7ca80cb66cc198da5ea1eb0fa74fb73fc75ga18gb0ha21hb13hc32hd0he71hf215hg5hh255hi255hj32hk16hl19hm18hn18ho20hp20hq20hr20hs19ia22ib22ic22ja0jb0jc0jd6je0ka1kb1kc1kd1ke16kf16kg16kh6ki38kj0kk0kl6km33kn255la135lb133lc135ld103ma0mb0mc42na0nb0oa0ob255oc255od14oe117of5og82pa255pb0qa0qb13qc255ra2rb255rc255rd255re255rf255rg255sa255sb255sc255END")
WScript.Echo s1.S1Diag("BEGINaa4ab4ac8ad8ba4bb4bc8bd8ca77cb67cc120da255ea255eb255fa118fb58fc118ga13gb255ha127hb10hc127hd0he0hf0hg0hh0hi0hj127hk127hl127hm127hn127ho127hp127hq127hr127hs127ia0ib0ic0ja1jb0jc1jd1je0ka0kb0kc0kd0ke0kf0kg0kh255ki255kj255kk0kl71km0kn0la0lb0lc0ld0ma0mb1mc52na0nb0oa0ob255oc255od0oe0of0og0pa8pb11qa23qb4qc255ra2rb255rc255rd255re255rf255rg255sa255sb255sc255END")
