Local connection disable / enable batch scripting

Time:2021-5-4

Copy codeThe code is as follows:
Const ssfCONTROLS = 3 

sConnectionName  = ” Local connection“   ‘ Can be changed to need to control the connection name, such as “wireless network connection” and so on  

sEnableVerb  = ” & enable“  
sDisableVerb  = ” & disable“    ‘ XP system should be  ” & disable“  

set shellApp = createobject(“shell.application”) 
set oControlPanel = shellApp.Namespace(ssfCONTROLS) 

set oNetConnections = nothing 
for each folderitem in oControlPanel.items 
  if   folderitem.name   = ” Network connection“   then  
   set oNetConnections = folderitem.getfolder: exit for 
 end if 
next 

if oNetConnections is nothing then 
  msgbox  ” Network connection folder not found“  
 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  ” not found  ‘” &  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 

‘debugging displays left just in case… 
‘ 
‘msgbox s ‘: wscript.quit 
‘msgbox “Enabled: ” & bEnabled ‘: wscript.quit 

‘not sure why, but invokeverb always seemed to work  
‘for enable but not disable.   
‘ 
‘saving a reference to the appropriate verb object  
‘and calling the DoIt method always seems to work. 
‘ 
if bEnabled then 
‘  oLanConnection.invokeverb sDisableVerb 
 oDisableVerb.DoIt 
else 
‘  oLanConnection.invokeverb sEnableVerb 
 oEnableVerb.DoIt 
end if 

‘adjust the sleep duration below as needed… 
‘ 
‘if you let the oLanConnection go out of scope 
‘and be destroyed too soon, the action of the verb 
‘may not take… 
‘ 
wscript.sleep 400 

Recommended Today

Looking for frustration 1.0

I believe you have a basic understanding of trust in yesterday’s article. Today we will give a complete introduction to trust. Why choose rust It’s a language that gives everyone the ability to build reliable and efficient software. You can’t write unsafe code here (unsafe block is not in the scope of discussion). Most of […]