[ANGRO]

Набросал включение отключение сетевой карточки, мож кому пригодится.

Код:

$sConnectionName = "Home Office Connection"
$shellApp = ObjCreate("shell.application") 
$oNetConnections = $shellApp.Namespace(0x00000031)
For $folderitem in $oNetConnections.items
    For $verb in $folderitem.verbs
        if $folderitem.name = $sConnectionName Then
           $verb.DoIt
           Sleep(1000)
           ExitLoop 2
        EndIf 
    Next
Next
If $folderitem.name <> $sConnectionName Then msgbox(48, "Ошибка", "Имя соединения указанно не правильно")
Exit

Посмотрите позжалуйста Namespace(0x00000031) по этому адресу находятся "Сетевые подключения" по крайней мере у меня, судя по всему и во всех ХР подобных операционках.