onu-reg-unreg.vbs

Sub Main
crt.Sleep 10000
Dim cnt
For cnt = 0 To 1000000
crt.screen.Send "admin-status down" & Chr(10)
crt.Sleep 600000
crt.screen.Send "admin-status up" & Chr(10)
crt.Sleep 600000
Next
End Sub