调整脚本语言的超时设置 n Error resume next Dim wsc.rr (创建She对象:) set wscr=CreateObject( Wscript. Shell (读注册表信息:) rr=wscr. RegRead("HKEY CURRENT_ USERISoftwarelMicr osoftlWindows Scripting HostISettingslTimeout") (如果键值≥1,则修改键值为0:) if(rr>=1)then wscr. Reg Read HKEY CURRENT USERISoftwarelMicros oftwindows Scripting Host SettingslTimeout 0,REG DWORD) endif 调整脚本语言的超时设置  n Error Resume Next  Dim wsc,rr  (创建Shell对象：)  set wscr=CreateObject("Wscript.Shell")  ( 读注册表信息：)  rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micr osoft\Windows Scripting Host\Settings\Timeout")  (如果键值1,则修改键值为0：)  if(rr>=1)then  wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Windows Scripting Host\ Settings\Timeout", 0,"REG_DWORD")  endif