Site Index - Feedback - Impressum |
| |||||||||
|
|
( Archiv ) | ( Neues Thema ) |
12.09.2002 |
REXX Versuch (von: Armin Jakob, 00:04:56) | « ^ » |
/* NetBIOS- und TCP/IP-Namen ermitteln Armin Jakob 11.09.2002 */
/* */ /* aus IBMLAN.INI und der Environment Variablen HOSTNAME */ Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs' Call SysLoadFuncs /* Variablen */ IPname = '' NBname = '' Pfad = '' LANini = '' Zeile = '' p1 = 0 p2 = 0 /* Main */ call SysCls say call GetEnvironment call GetLANini call ParseLANini call GetNames return /* Funktionen */ GetEnvironment: IPname = VALUE('HOSTNAME',,'OS2ENVIRONMENT') Pfad = VALUE('PATH',,'OS2ENVIRONMENT') return GetLANini: parse upper var Pfad Pfad p1 = pos(':IBMLAN',Pfad) if p1 = 0 then do say 'Fehler: kann IBMLAN im PATH nicht finden' exit 1 end LANini = substr(Pfad,p1-1,1)||':IBMLANIBMLAN.INI' return ParseLANini: say 'lese Datei : 'LANini rc = stream(LANini,'c','open read') if rc<>'READY:' then do say 'Fehler: 'rc' beim Lesen von: 'LANini exit 1 end do while lines(LANini) Zeile = linein(LANini) parse upper var Zeile Zeile if pos('COMPUTERNAME',Zeile) <> 0 then NBname = Zeile end rc = stream(LANini,'c','close') return GetNames: p2 = pos('=',NBname) NBname = strip(substr(NBname,p2+1)) say 'TCP/IP-Name : '||IPname say 'NetBIOS-Name: '||NBname return [ Leser: 59 ] |
|
Mit * markierte Felder müssen ausgefüllt werden ! |
( Zeige alle Einträge ) | ( Zur Startübersicht ) |
|
| hanno | 102 | 11.09.2002 | 09:43 |
| 66 | 11.09.2002 | 18:19 |
| sam | 63 | 11.09.2002 | 20:07 |
| Armin Jakob | 59 | 12.09.2002 | 00:04 |
| 56 | 12.09.2002 | 00:06 |
| Armin Jakob | 56 | 12.09.2002 | 00:12 |
| Hanno | 43 | 12.09.2002 | 08:37 |
| sam | 37 | 12.09.2002 | 10:11 |
| hanno | 50 | 12.09.2002 | 08:10 |
| 30 | 12.09.2002 | 18:57 |
|