WshShell.Run "BFactory"
For i=0 To 11
if i>5 Then
Exit For
end if
Log.Message(i)
Next
Sub main
Set WshNetwork = CreateObject("WScript.Network")
Log.Message(WshNetwork.UserDomain)
Log.Message(WshNetwork.ComputerName)
Log.Message(WshNetwork.UserName)
end sub
Rem Comment on a line with no code; no colon is needed.
Sub main
On Error Resume Next
Err.Raise 6 '抛出异常 Raise an overflow error。
Log.Message "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Clear the error.
end sub
Dim Counter Counter = 0 ' Initialize variable. While Counter < 20 ' Test value of Counter. Counter = Counter + 1 ' Increment Counter. Alert Counter Wend ' End While loop when Counter > 19.
|