'DNS aktiv
         RunBat "netsh -f DHCPwDNS.sysipconf", vbHide
 
         'Momentan wird noch nicht geprüft, ob die cmd fertig ist
         sResult = ""
         If sResult = "" Then
            frmSprechblase.Tag = ""
            music.FileName = App.Path & "\Music\complete.wav"
            music.Command = "Open"
         Else
            sErrorInfo = sResult
            frmSprechblase.Tag = "error"
            music.FileName = App.Path & "\Music\error.wav"
            music.Command = "Open"
         End If
         frmSprechblase.Show
         If chkSounds.Value = cAktiviert Then
            music.Command = "Play"
         Else
            music.Command = "Close"
         End If
 
'------------------------------------------------------------------------------
' --------------
'Modul:
 
Public Function RunBat(CommandLine As String, Optional ByVal WindowStyle As _
  VbAppWinStyle = vbHide) As Long
   RunBat = Shell(Environ$("COMSPEC") & " /c " & CommandLine, WindowStyle)
End Function

Zitat:

#============================ # Schnittstellenkonfiguration #============================ pushd interface reset all popd # Ende der Schnittstellenkonfiguration # ---------------------------------- # Schnittstellen-IP-Konfiguration # ---------------------------------- pushd interface ip # Schnittstellen-IP-Konfiguration f�r ""LAN-Verbindung"" set address name = "LAN-Verbindung" source = dhcp set dns name = "LAN-Verbindung" source = dhcp set wins name = "LAN-Verbindung" source = dhcp popd # Ende der Schnittstellen-IP-Konfiguration

>> <<