'复制以下代码到记事本,另存为Speak.vbs
Set WMI=GetObject("winmgmts:\\.\root\cimv2")
Set WMIOperatingSystems=WMI.ExecQuery("Select * From Win32_OperatingSystem")
For Each WMIOperatingSystem In WMIOperatingSystems
version=WMIOperatingSystem.Caption+WMIOperatingSystem.Version
Next
H="eggplant"
Do
H=InputBox (VbCrlf&now,Version,H)
if H="" then Exit Do
CreateObject("sapi.spvoice").speak H
Loop