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
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "未找到 '" & 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作者: fanliukund 时间: 2010-4-27 14:42 标题: 回复 2# 的帖子 天啊..这么多..有没有..几句话就可以的..比如..引用xp的命令作者: fanliukund 时间: 2010-4-27 15:00 标题: 回复 2# 的帖子 不错不错....很好很好...
谢谢谢谢作者: mball 时间: 2010-4-27 15:18
如果用的是路由，直接连到路由上选择重启路由←这个通过录制脚本应该能实现~作者: fanliukund 时间: 2010-4-27 15:33 标题: 回复 5# 的帖子 能说的详细点吗?作者: fanliukund 时间: 2010-4-27 15:34 标题: 回复 2# 的帖子 能不能 封装起来..
然后用函数一句话写出来作者: fanliukund 时间: 2010-4-27 15:38 标题: 回复 2# 的帖子 用QTP运行起来
报错 缺少对象: 'wscript'
怎么定义啊作者: TIB 时间: 2010-4-27 15:52
在QTP中不能直接用WScript作者: fanliukund 时间: 2010-4-27 16:14 标题: 回复 9# 的帖子 哦..那我删掉去..哈哈...
直接用wait()作者: fanliukund 时间: 2010-4-27 16:26
new->function library
粘贴
function network_link
中间代码
end function
保存
然后放入资源池..就可以用啦file->settings->resources