אני זקוק לזה לכמה מטרות. גם להפעיל וגם לכבות.

..

בויסטה ו-Server 2003 אתה יכול לעשות את זה עם netsh
ב-XP ו-2000, למיטב ידיעתי צריך משהו אחר - אתה יכול להשתמש ב-Devcon של מיקרוסופט.
אגב, מיקרוסופט מציעים את זה, אבל זה לא כ"כ רציני...

אני זקוק לXP, והלינק באמת מעפן.. מה גם שכמו שהבנתי מדובר שם על חומרה, ואני מעוניין רק בהגדרת החיבור.

..

VBSCRIPT מתאים לך ?
אני משתמש בו הרבה כדי לכבות ולהדליק את הכרטיס שלי,
הסקריפט פשוט משנה את המצב הנוכחי
תוכל לבודד את החלקים עבור כיבוי או הפעלה בנפרד

קוד:

Const ssfCONTROLS = 3

sConnectionName = "Realtek RTL8139 Family Fast Ethernet NIC"

sEnableVerb = "En&able"
sDisableVerb = "Disa&ble"

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

set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Network Connections" then
'if folderitem.name = "Network and Dial-up Connections" then
   set oNetConnections = folderitem.getfolder: exit for
end if
next

if oNetConnections is nothing then
msgbox "Couldn't find 'Network and Dial-up Connections' folder"
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 "Couldn't find '" & 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
MsgBox "Disabling Network Card"
else
' oLanConnection.invokeverb sEnableVerb
oEnableVerb.DoIt
'MsgBox "Enabling Network Card"
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 1000 

תודה רבה, אני אבדוק את זה.

..

עובד מעולה לקח כמה שניות לגייר את הסקריפט לשפת הקודש, אבל עובד סבבה. נראה לי שאשאר עם הפטנט המקורי של פעם ביטול ופעם הפעלה.

..

סבבה,
במקור השתמשתי בו כדי לתקן קישוריות לשרת 2000 עם שגעונות
אבל מצאתי בו שימוש ביום יום מאז שאני משתמש באינטרנט בכבלים

עכשיו עלה לי רעיון להשתמש בזה גם לביטול והפעלת הבלוטות'

..