启动/禁用本地连接的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
   
    
    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
   
    
    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 
   
   1000