Hallo zusammen,
ich habe ein kleines VB-Porgramm geschrieben, mit dem ich je nach Bedarf die TCP/IP Adressierung auf den Clients verändern kann. Nach dem Starten des VB-Programms soll auf dem Client eine bat-Datei gestartet werden, die dann eine reg-Datei anspricht und diese dann die TCP/IP Adresse ändert. (Den Quelltext habe ich angehängt)
Das Programm liegt nicht auf dem Windows 2000 Server. Die bat Datei und die reg Datei liegen auf den Clients, die VB Datei auf meinen Lehrerrechner. Die bat Datei läßt sich jedoch nur auf dem Rechner ausführen auf dem das VB-Programm liegt.
Brauche ich um dieses Problem zu beheben unbedingt einen Telnet? Wenn ja, wie mache ich das? Oder gibt es noch eine andere Lösung?
Gruß Nicole
Option Explicit
Dim speichern_ok As Boolean
Public Sub Main()
frmSplash.Show
speichern_ok = False
frm_internet.Show
Unload frmSplash
End Sub
Private Sub cmd_info_Click(Index As Integer)
frm_info.Show vbModal
End Sub
Private Sub cmd_schliessen_Click(Index As Integer)
Dim shellpara As String
Dim zähler As Integer
zähler = 0
While zähler < 4 ' Inner loop.
zähler = zähler + 1 ' Increment Counter.
shellpara = Shell("\\S00" & zähler & "\c$\System16\proxyoff.bat", vbHide)
If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S00" & zähler & " !")
Wend
' While zähler < 34 ' Inner loop.
' zähler = zähler + 1 ' Increment Counter.
' shellpara = Shell("\\S0" & zähler & "\c$\System16\proxyoff.bat", vbHide)
' If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S0" & zähler & " !")
' wend
Unload frm_internet
End Sub
Private Sub cmd_trennen_Click(Index As Integer)
Dim shellpara As String
shellpara = Shell("\\" & Clientliste.Text & "\c$\System16\proxyoff.bat", vbHide)
If shellpara > 0 Then
MsgBox ("Proxy wurde auf Rechner " & Clientliste.Text & " erfolgreich getrennt!")
Else
MsgBox ("Fragen Sie Ihren Systemadminstrator!")
End If
End Sub
Private Sub cmd_verbinden_Click(Index As Integer)
Dim shellpara As String
shellpara = Shell("\\" & Clientliste.Text & "\c$\System16\proxy.bat", vbHide)
If shellpara > 0 Then
MsgBox ("Proxy wurde auf Rechner " & Clientliste.Text & " erfolgreich verbunden!")
Else
MsgBox ("Fragen Sie Ihren Systemadminstrator!")
End If
End Sub
Private Sub TrennenAlle_Click()
Dim shellpara As String
Dim zähler As Integer
zähler = 0
While zähler < 4 ' Inner loop.
zähler = zähler + 1 ' Increment Counter.
shellpara = Shell("\\S00" & zähler & "\c$\System16\proxyoff.bat", vbHide)
If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S00" & zähler & " !")
Wend
' While zähler < 34 ' Inner loop.
' zähler = zähler + 1 ' Increment Counter.
' shellpara = Shell("\\S0" & zähler & "\c$\System16\proxyoff.bat", vbHide)
' If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S0" & zähler & " !")
' wend
End Sub
Private Sub VerbindenAlle_Click()
Dim shellpara As String
Dim zähler As Integer
zähler = 0
While zähler < 4 ' Inner loop.
zähler = zähler + 1 ' Increment Counter.
shellpara = Shell("\\S00" & zähler & "\c$\System16\proxy.bat", vbHide)
If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S00" & zähler & " !")
Wend
' While zähler < 34 ' Inner loop.
' zähler = zähler + 1 ' Increment Counter.
' shellpara = Shell("\\S0" & zähler & "\c$\System16\proxy.bat", vbHide)
' If shellpara <= 0 Then MsgBox ("Fehler beim Trennen von Rechner S0" & zähler & " !")
' wend
End Sub