Hallo,
ich habe folgenden Code gefunden und angepasst, der die Netzwerk-Verbindung "WiFi" je nach Status aktiviert/deaktiviert. Ich bekomme den Code leider nicht so geändert, dass das Script grundsätzlich die Netzwerk-Verbindung "WiFi" deaktiviert und wieder aktiviert. Die Toggle-Funktion möchte ich nicht. Kann mir jemand helfen?
Vielen Dank.
Gruß
frankieman
ich habe folgenden Code gefunden und angepasst, der die Netzwerk-Verbindung "WiFi" je nach Status aktiviert/deaktiviert. Ich bekomme den Code leider nicht so geändert, dass das Script grundsätzlich die Netzwerk-Verbindung "WiFi" deaktiviert und wieder aktiviert. Die Toggle-Funktion möchte ich nicht. Kann mir jemand helfen?
Vielen Dank.
Gruß
frankieman
Visual Basic-Quellcode
- '~ Toggle a SPECIFIED NIC on or off
- Option Explicit
- Const NETWORK_CONNECTIONS = &H31&
- Dim objShell, objFolder, objFolderItem, objEnable, objDisable
- Dim folder_Object, target_NIC
- Dim NIC, clsVerb
- Dim str_NIC_Name, strEnable, strDisable
- Dim bEnabled, bDisabled
- ' ========================================================
- ' ===== place the name of your network adapter here ======
- ' examples:
- ' str_NIC_Name = "Local Area Connection 2"
- ' str_NIC_Name = "Wireless Connection 1"
- ' ========================================================
- str_NIC_Name = "wifi"
- ' ========================================================
- 'strEnable = "En&able"
- 'strDisable = "Disa&ble"
- strEnable = "&Aktivieren"
- strDisable = "&Deaktivieren"
- ' create objects and get items
- Set objShell = CreateObject("Shell.Application")
- Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)
- Set objFolderItem = objFolder.Self
- Set folder_Object = objFolderItem.GetFolder
- ' see if the namespace exists
- If folder_Object Is Nothing Then
- Wscript.Echo "Could not find Network Connections"
- WScript.Quit
- End If
- Set target_NIC = Nothing
- ' look at each NIC and match to the chosen name
- For Each NIC In folder_Object.Items
- If LCase(NIC.Name) = LCase(str_NIC_Name) Then
- ' proper NIC is found, get it
- Set target_NIC = NIC
- End If
- Next
- If target_NIC Is Nothing Then
- WScript.Echo "Unable to locate proper NIC"
- WScript.Quit
- End If
- Set objEnable = Nothing
- Set objDisable = Nothing
- bEnabled = True
- For Each clsVerb In target_NIC.Verbs
- '~ Wscript.Echo clsVerb
- If clsVerb.Name = strEnable Then
- Set objEnable = clsVerb
- bEnabled = False
- End If
- If clsVerb.Name = strDisable Then
- Set objDisable = clsVerb
- End If
- Next
- If bEnabled Then
- objDisable.DoIt
- Else
- objEnable.DoIt
- End If
- '~ Give the connection time to stop/start
- WScript.Sleep 1000
- WScript.Quit
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „frankieman“ ()