onu-reg-unreg.vbs

标签：vbs   next   sub   ext   send   reg   sleep   scree   stat   

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

onu-reg-unreg.vbs

标签：vbs   next   sub   ext   send   reg   sleep   scree   stat   

原文地址：https://www.cnblogs.com/classics/p/9747161.html