31. oktober 2012 - 06:58Der er
9 kommentarer og 1 løsning
Disable netkort
Jeg har en laptop hvor der sker det at det trådløse netnærk fra tid til anden falder ud. Jeg skal så enten genstarte maskinen eller gå ind i enhedshåndtering og disable netkortet og enable det igen.
Nu sidder jeg så og funderer over om ikke man kunne lave en lille stump kode i Delphi der disabler netkortet, venter 5 sek. og så enabler det igen.
Det ville jeg også meget gerne men hvis jeg skriver:
netsh interface show interface
Admin State State Type Interface Name ------------------------------------------------------------------------- Enabled Connected Dedicated Local Area Connection Enabled Connected Dedicated VMware Network Adapter VMnet1 Enabled Connected Dedicated VMware Network Adapter VMnet8
så vil jeg jo mene at nedenstående skulle være rigtig, men som du kan se så får jeg en fejl.
netsh interface set interface "Local Area Connection" disabled An interface with this name is not registered with the router.
Synes godt om
Slettet bruger
31. oktober 2012 - 08:59#3
Mener du skal bruge administrative rettigheder når du kører kommandoen, tror det kan være det, som er problemet.
Jo men da det er lidt bekosteligt at fremskaffe, hvis man kan, til denne lidt ældre PC, så er det ikke lige den første løsning.
Jeg har fået et VB script der ser ud til at kunne gøre det på en XP maskine. Netsh virker af en eller anden grund ikke på XP. M$ erkender at det er sådan, men hvorfor kan jeg ikke lige finde ud af.
Det er ikke nok med at IPConfig'ge desværre. Netkortet skal disables helt og derefter enables
Jeg har fundet nedenstående som ved første kørsel disabler/enabler kortet og næstekørsel gør det modsatte
Const ssfCONTROLS = 3
sConnectionName = "Local Area Connection" sConnectionName = "Wireless network Connection"
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 set oNetConnections = folderitem.getfolder: exit for end if next
if oNetConnections is nothing then msgbox "Couldn't find 'Network 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 for each verb in oLanConnection.verbs if verb.name = sEnableVerb then set oEnableVerb = verb bEnabled = false end if if verb.name = sDisableVerb then set oDisableVerb = verb end if next
if bEnabled then oDisableVerb.DoIt() else oEnableVerb.DoIt end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.