Do While True currentTime = FormatDateTime(Now, vbLongTime) WScript.Echo "当前时间：" & currentTime WScript.Sleep(30000) Loop 修改建议

可以在循环体内添加一个判断条件，比如当达到一定时间或者执行次数时退出循环，可以使用类似如下的代码实现：

Dim count
count = 0
Do While True
    currentTime = FormatDateTime(Now, vbLongTime)
    WScript.Echo "当前时间：" & currentTime
    WScript.Sleep(30000)
    count = count + 1
    If count > 100 Then ' 执行100次后退出循环
        Exit Do
    End If
Loop

或者使用定时器来控制循环的执行，比如：

Dim timer
Set timer = WScript.CreateObject("WScript.Timer")
Dim startTime
startTime = timer.ElapsedMilliseconds
Dim interval
interval = 30000
Do While True
    currentTime = FormatDateTime(Now, vbLongTime)
    WScript.Echo "当前时间：" & currentTime
    WScript.Sleep(interval - (timer.ElapsedMilliseconds - startTime) Mod interval)
Loop

这样可以保证循环每隔一定的时间执行一次，同时也可以避免程序无法正常退出的问题。