Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: PROBLEME UNTER NT
Autor: anaconda1985
Datum: 02.07.04 10:31
'-----------------------SETS---------------------- Set WshShell = CreateObject("WScript.Shell") Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig In IPConfigSet If Not IsNull(IPConfig.IpAddress) Then For i = LBound(IPConfig.IpAddress) To UBound(IPConfig.IpAddress) '-----------------------HOSTAME ERMITTELN--------- If gethostname(hostname, 256) = SOCKET_ERROR Then MsgBox "Windows Sockets error " & str(WSAGetLastError()) Exit Sub Else hostname = Trim$(hostname) End If hostent_addr = gethostbyname(hostname) If hostent_addr = 0 Then MsgBox "Winsock.dll is not responding." Exit Sub End If RtlMoveMemory host, hostent_addr, LenB(host) RtlMoveMemory hostip_addr, host.hAddrList, 4 '-----------------------CONTEXT-TREE-DHCP--------- Context = regget("HKEY_LOCAL_MACHINE\SOFTWARE\Novell\Login\History\Contexts\1") tree = regget("HKEY_LOCAL_MACHINE\SOFTWARE\Novell\Location Profiles\Services\{1E6CEEA1-FB73-11CF-BD76-00001B27DA23}\Default\Tab1\Tree") var3 = regget("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\DhcpDomain") t = regget("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\DhcpDomain") '------------------------GIFHORN------------------ If t = "gf.iav.de" Then s = "Gifhorn" End If '-------------------------Berlin------------------ If t = "b.iav.de" Then s = "Berlin" End If '-----------------------CHEMNITZ------------------ If t = "c.iav.de" Then s = "Chemnitz" End If '------------------------Berlin------------------- If var3 = "b.iav.de" Then b.value = True End If '------------------------Chemnitz----------------- If var3 = "c.iav.de" Then c.value = True End If '-------------------------Berlin------------------ If var3 = "gf.iav.de" Then g.value = True End If

PROBLEME UNTER NT	1.064	anaconda1985	01.07.04 14:10
Re: PROBLEME UNTER NT	912	Dieter	01.07.04 15:11
Re: PROBLEME UNTER NT	829	anaconda1985	02.07.04 09:01
Re: PROBLEME UNTER NT	777	Dieter	02.07.04 09:27
Re: PROBLEME UNTER NT	786	anaconda1985	02.07.04 09:49
Re: PROBLEME UNTER NT	763	Dieter	02.07.04 09:56
Re: PROBLEME UNTER NT	996	anaconda1985	02.07.04 10:19
Re: PROBLEME UNTER NT	770	Elwood	02.07.04 10:26
Re: PROBLEME UNTER NT	941	anaconda1985	02.07.04 10:29
Re: PROBLEME UNTER NT	764	Joerg	02.07.04 11:17
Re: PROBLEME UNTER NT	884	anaconda1985	02.07.04 11:29
Re: PROBLEME UNTER NT	840	Joerg	02.07.04 13:37
Re: PROBLEME UNTER NT	877	Elwood	02.07.04 15:41
Re: PROBLEME UNTER NT	774	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	901	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	865	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	763	anaconda1985	02.07.04 10:31
Re: PROBLEME UNTER NT	840	anaconda1985	02.07.04 10:31
Re: PROBLEME UNTER NT	760	anaconda1985	02.07.04 10:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen