大家帮忙看看这个vbs文件，运行时出错

Const  ssfCONTROLS  =  3  
 
sConnectionName  =  "本地连接"  
 
sEnableVerb  =  "启用(&A)"  
sDisableVerb  =  "禁用(&B)"  
 
set  shellApp  =  createobject("shell.application")  
set  oControlPanel  =  shellApp.Namespace(ssfCONTROLS)  
 
set  oNetConnections  =  nothing  
for  each  folderitem  in  oControlPanel.items  
 if  folderitem.name    =  "网络连接"  then  
     set  oNetConnections  =  folderitem.getfolder:  exit  for  
 end  if  
next  
 
if  oNetConnections  is  nothing  then  
 msgbox  "未找到网络连接"  
 wscript.quit  
end  if  
 
set  oLanConnection  =  nothing  
for  each  folderitem  in  oNetConnections.items  
 if  lcase(folderitem.name)    =  lcase(sConnectionName)  then  
     set  oLanConnection  =  folderitem:  exit  for  
 end  if  
next  
 
if  oLanConnection  is  nothing  then  
 msgbox  "未找到  '"  &  sConnectionName  &  "'  item"  
 wscript.quit  
end  if  
 
bEnabled  =  true  
set  oEnableVerb  =  nothing  
set  oDisableVerb  =  nothing  
s  =  "Verbs:  "  &  vbcrlf  for  each  verb  in  oLanConnection.verbs  
 s  =  s  &  vbcrlf  &  verb.name  
 if  verb.name  =  sEnableVerb  then    
     set  oEnableVerb  =  verb      
     bEnabled  =  false  
 end  if   if  verb.name  =  sDisableVerb  then    
     set  oDisableVerb  =  verb      
 end  if  
next  if  bEnabled  then  
     oDisableVerb.DoIt  
else  
     oEnableVerb.DoIt  
end  if  
 
wscript.sleep  400