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