如何以编程方式启用/禁用网络接口？(Windows XP)

Option Explicit

Const NETWORK_CONNECTIONS = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\NetworkSetup"
Const NETWORK_CONNECTIONS_PATH = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards"

Function EnableNetworkInterface(ByVal sInterfaceName, ByVal bEnable)
    Dim oReg, sInterfaceID, sCardName, sKeyPath
    Dim iRetVal, iValue

    ' 打开注册表
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
        ".\\root\default:StdRegProv")

    ' 查找网络接口的ID
    sKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}"
    oReg.EnumKey HKEY_LOCAL_MACHINE, sKeyPath, arrSubKeys

    For Each sInterfaceID In arrSubKeys
        oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyPath & "\" & sInterfaceID, _
            "DriverDesc", sCardName
        If sCardName = sInterfaceName Then
            Exit For
        End If
    Next

    ' 设置网络接口的状态
    sKeyPath = NETWORK_CONNECTIONS_PATH & "\" & sInterfaceID & "\Connection"
    iValue = IIf(bEnable, 1, 0)
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE, sKeyPath, "PnpInstanceID", iValue

    ' 刷新网络连接
    iRetVal = ShellExecute(0, "open", "netsh", "interface set interface """ & sInterfaceID & """ admin=" & IIf(bEnable, "enable", "disable"), "", 0)
    If iRetVal > 32 Then
        EnableNetworkInterface = True
    Else
        EnableNetworkInterface = False
    End If
End Function

' 示例用法
If EnableNetworkInterface("Local Area Connection", True) Then
    MsgBox "网络接口已启用。", vbInformation, "成功"
Else
    MsgBox "启用网络接口失败。", vbCritical, "错误"
End If