nabezo wiki

Const ssfCONTROLS = 3 
Const sConPaneName = "ネットワーク接続" 
Const sConnectionName = "ローカル エリア接続" 
Const sDisableVerb = "無効にする(&B)" 
Const sEnableVerb = "有効にする(&A)" 

set shellApp = createobject("shell.application") 
set oControlPanel = shellApp.Namespace(ssfCONTROLS) 
set oNetConnections = nothing 

for each folderitem in oControlPanel.items 
	if folderitem.name = sConPaneName 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 
sEnableVerb
'*******無効
for each verb in oLanConnection.verbs 
	if verb.name = sDisableVerb then 
		verb.Doit 
		WScript.Sleep 4000 
	end if 
next

'*******有効
for each verb in oLanConnection.verbs 
	if verb.name = sEnableVerb then 
		verb.Doit 
		WScript.Sleep 2000 
	end if 
next