禁用、启用网络连接

电脑启动时进入桌面后特慢，要等差不多两分钟才能正常操作。要等网络连接图标出现。这个图标在杀毒软件图标出现后才出现，怀疑杀毒软件的防火墙功能检测网络连接时阻塞了。

 

于是要想个方法，在关机时把所有网络连接都禁用，这样如果有效，开机时进入桌面的阻塞问题就不存在了。正常启动后，再手动恢复连接，虽然多了两个手动的过程，但过程肯定少于两分钟。

 

网上搜了一下，找个了脚本实现方法，实现网络连接的禁用，启用。自己研究了一下，改成可以应用当前系统所有连接的（不包括拨号连接）。

 

只可惜事实证明，这个问题不是网络连接的问题，后来我把当前系统的相关DHCP服务改为手动，还是不行。。。

 

我想可能这两个脚本对别人有用，就把它发表上来了。希望能帮到你一下^_^

 

如果有人知道这个启动慢的问题的问题所在，请务必告诉我啊。想当年我装windows me时，整个启动速度只需要15秒。

 

因为忘了抄网上哪位仁兄的代码了，里面有些注释我都没删掉。大家将就看下。

如果这代码是你写的，给我留个言啊。呃，这个还不至于侵权吧。

 

以下代码保存为vbs文件，双击执行。使用－>停用;停用->启用

 

Const   ssfCONTROLS   =   3  
       
  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     
   set   oLanConnection   =   folderitem  
   
   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 (Not oEnableVerb Is Nothing) Or (Not oDisableVerb Is Nothing) Then
    if   bEnabled   then  
    oDisableVerb.DoIt 
    else   
      oEnableVerb.DoIt  
    end   if 
  End If
   
   wscript.sleep   400   
  next