Local connection disable / enable batch scripting


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 

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

if oLanConnection is nothing then 
  msgbox  ” not found  ‘” &  sConnectionName  & “‘  item”  
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 

‘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 
‘  oLanConnection.invokeverb sEnableVerb 
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 […]