能把这样的VBS脚本改写为VB代码吗?

Question

On Error Resume NextSet objNet = WScript.CreateObject( "WScript.Network" )
Set ServiceObj = GetObject("WinNT://" & objNet.ComputerName & "/schedule")if ServiceObj.Status=1 then
 ServiceObj.start
end ifaHour = hour(now)
aMinute = minute(now)+"1"set wshshell = createobject ("wscript.shell")
wshshell.run ("at " & aHour & ":" & aMinute & ":" & aSecond & " " & "/interactive cmd.exe")Wscript.echo "Waiting for the cmd window for NT AUTHORITY\SYSTEM at " & aHour & ":" & aMinute & "..." 

Answer 1

忘了说明一点了.我想知道能不能把"WScript.Network"对象的调用和方法也改造为VB内置的方法或VB的什么控件能提供类似的功能.