Jump to content

Ip per Batch auslesen und auf Desktop posten?


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

ja, über netware, manchen pxe tools und samba geht das schon, aber wenn er beim kunden "nur" nt4/5 background findet wird's schwer, das ist doch m.e. das problem - mit nem novell client wär's megaeinfach: %node% wird automatisch geliefert... aber ich bin mir sicher, all das kennt grizzly999. es geht halt um ein echtes "native dos tool" ;)

Link zu diesem Kommentar
Original geschrieben von ws2003

Warum müssen deine Kunden die IP Adresse überhaupt telefonisch durchgeben?

Du solltest für jeden Kunden eine DynDNS adresse erstellen (z.B unter http://www.staticip.de. (ist kostenlos)

Ein kleines Programm liest die IP Adresse des Kunden alle 5min (oder je nach einstellung).

Du mußt nicht jedes mal die IP Adresse nachfragen sondern jedes mal über z.B Kunde.staticip.de mit den Kunden kontakt aufnehmen.

 

Schon klar, das mit DynDNS, allerdings wollen wir es auch für die Kunden nicht zu komfortabel machen, sonst häng ich nämlich den ganzen Tag auf irgendwelchen Kundenrechnern, um Desktophintergründe zu ändern...

Aber vom Grundsatz her schon richtig, dass ist der Optimalfall.

Link zu diesem Kommentar

Hi!

 

Kopiere Dir mal den folgenden Text in eine *.txt Datei hinein und dann speicherst Du die Datei als *.vbs ab.

Da durch wird Dir dann, wenn der Kunde Online ist, die IP angezigt. Funktioniert auch im LAN.

 

arAddresses = GetIPAddresses()

msgbox ubound(arAddresses)+1 & " IP Addresse/en gefunden"

for each ip in arAddresses

msgbox ip

next

 

 

Function GetIPAddresses()

'=====

' Returns array of IP Addresses as output

' by ipconfig or winipcfg...

'

' Win98/WinNT have ipconfig (Win95 doesn't)

' Win98/Win95 have winipcfg (WinNt doesn't)

'

' Note: The PPP Adapter (Dial Up Adapter) is

' excluded if not connected (IP address will be 0.0.0.0)

' and included if it is connected.

'=====

set sh = createobject("wscript.shell")

set fso = createobject("scripting.filesystemobject")

 

Set Env = sh.Environment("PROCESS")

if Env("OS") = "Windows_NT" then

workfile = fso.gettempname

sh.run "%comspec% /c ipconfig > " & workfile,0,true

else

'winipcfg in batch mode sends output to

'filename winipcfg.out

workfile = "winipcfg.out"

sh.run "winipcfg /batch" ,0,true

end if

set sh = nothing

set ts = fso.opentextfile(workfile)

data = split(ts.readall,vbcrlf)

ts.close

set ts = nothing

fso.deletefile workfile

set fso = nothing

arIPAddress = array()

index = -1

for n = 0 to ubound(data)

if instr(data(n),"IP-Adresse") then

parts = split(data(n),":")

if trim(parts(1)) <> "0.0.0.0" then

index = index + 1

ReDim Preserve arIPAddress(index)

arIPAddress(index)= trim(cstr(parts(1)))

end if

end if

next

GetIPAddresses = arIPAddress

End Function

 

 

Viel Erfolg....

 

 

Andy

Link zu diesem Kommentar
  • 4 Monate später...
  • 2 Jahre später...
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...