區域連線的停用與啟用

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-16 23:46 | 只看該作者

區域連線的停用與啟用

請問,如何用VBA控制區域網路
連線的 ON & OFF
(Google很久找不到T__T)

或是有其他 [ 非手動] 方式可行?!

樓主熱帖

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-9-17 10:57 | 只看該作者

本帖最後由 HSIEN6001 於 2014-9-17 11:04 編輯

找到了!!
參考1:http://alexchuo.blogspot.tw/2004/10/blog-post_13.html
參考2: http://www.pczone.com.tw/vbb3/thread/3/150830/

請先下載devcon.exe, 解壓縮得到32-bit 和64-bit 版本, 將適合您的版本移到%SystemRoot%\system32 之下
以系統管理員身分執行cmd：
1.DevCon find PCI\* 按下 Enter 找到PCI裝置名稱
2.devcon help 可以顯示參數說明
3.DevCon disable PCI裝置名稱 [停用]
DevCon enable PCI裝置名稱 [啟用]
DevCon restart PCI裝置名稱 [重新啟動] (可避免影響其他不相干的裝置)

以上，測試成功！
但是要如何完成[自動化]??

如要做成執行檔 .bat 指令要怎麼寫？
或者
可以寫成VBA模組嗎?
懇請協助！！

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-9-17 14:57 | 只看該作者

回復 2# HSIEN6001

重啟連線

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2014-9-17 18:21 | 只看該作者

回復 3# GBKEE
您好!!
不知道為甚麼出現
Err: 沒有使用權限'70

然後,請問光世代寬頻
這句 Shell("rasphone.exe [-d
要改 Shell("rasphone.exe [-H 還是 D
還是不用改???

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2014-9-18 17:18 | 只看該作者

回復 3# GBKEE

您好，我已經測試OK下面語法，達到寬頻的連線及斷線目的
Shell "cmd.exe /c Rasdial 寬頻連線名稱 /disconnect" '斷線
Shell "cmd.exe /c Rasdial 寬頻連線名稱帳號密碼" '連線

但存在問題是【區域網路】並沒有因此斷線
表示連線一直都在ㄚ
??

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2014-9-19 09:09 | 只看該作者

本帖最後由 HSIEN6001 於 2014-9-19 09:10 編輯

回復 3# GBKEE

終於找到答案了!!
門外漢的我還是得摸索很久才能貫通
還是謝謝您的指引^^

Shell "cmd.exe /c ipconfig /release" '釋放IP連線
Shell "cmd.exe /c ipconfig /renew" '重新取得IP連線

趕緊做成筆記!!