|
Site Index - Feedback - Impressum |
| |||||||||
|
![[Forum]](../../../images.os2.org/de/forum.gif){kind=small} |
|
![[Forum]](../../../images.os2.org/de/forum2.gif){kind=small} |
| ( Archiv ) | ( Neues Thema ) |
| ( Zeige die Threadübersicht ) | ( Zur Startübersicht ) |
| 11.09.2002 |
| Computername finden (von: hanno, 09:43:59) | ^ |
| Hallo!
Ich suche eine Möglichkeit, den Computernamen (fallweise auch als "Systemname", "Einheiten-ID", "Rechnername" bezeichnet) der eigenen Arbeitsstation abzufragen. Dieser Name entspricht dem Eintrag in der IBMLAN.INI-Datei unter "COMPUTERNAME = ...". In einem REXX-Programm soll der Wert dann in einer Variablen gespeichert bzw. in einem Vergleich abgefragt werden können. Vielen Dank im Voraus für eure Tipps. Hanno [ Leser: 102 ] |
| Re: Computername finden (18:19:00) | |
| ja klar geh unter windows 98 starte den ms dos modus und gib format c: ein. bestätige mit enter dann j und wieder enter und schon kannst du singen :) |
| Re: Dein Tip, beweist ganz ausgezeichnet Deine ... (von: sam, 20:07:00) | |
| ... Einfaeltigkeit !
Um unter MS-DOS zu formattieren, benoetigt ein intelligenter Mensch ganz bestimmt kein M$ WINdoof !! Das schafft mensch mit barem DOS ... ... das Problem ist nur, dass die anonymen WINcleverles halt nicht (mehr) wissen, wie mensch ohne Maus formattiert ;-(( |
| 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 |
| Re: Dein Tip, beweist ganz ausgezeichnet Deine ... (00:06:12) | |
| ich weiß ich wusste nicht was ich am ende schreiben sollte :) aber wer hat schon noch das wahre reine dos auf der platte? |
| Re: 'ich wusste nicht, was ich am ende schreiben sollte' (von: Armin Jakob, 00:12:55) | |
| ahem, von mir aus hättest du gerne noch etwas länger überlegen dürfen, bevor du in die Tasten gegriffen hast.
Wir sind hier nicht im heise Newsticker, wo es als Prestige-trächtig gilt, einen Thread mit der vielsagenden Meldung 'Erster' zu verzieren. Also, kein Stress, darfst ruhig die grauen Zellen etws anstrengen - wer weiss: vielleicht fällt dir ja sogar noch dein Name ein .... ;-) |
| Re: REXX Versuch - klappt wunderbar! (von: hanno, 08:10:47) | |
| Hallo Armin!
Vielen Dank für deine Hilfe. Es funktioniert alles bestens! Schön, dass es Menschen gibt, die nachts um 12 noch für andere solche "Progrämmchen" schreiben. Hanno |
| Re: 'ich wusste nicht, was ich am ende schreiben sollte' (von: Hanno, 08:37:41) | |
| Hallo sam und Armin!
Danke für eure Schützenhilfe gegen "Unbekannt". Im Laufe der Zeit bin ich zu dem Schluss gekommen, dass es am besten ist, auf solche blöden Meldungen einfach gar nicht zu reagieren. Wenngleich es mich auch ein wenig ärgert und ich gerne eine "passende" Antwort geben würde. Aber vielleicht wollte Mr. Noname ja nur einen kleinen Scherz machen ...? Na, ja - wirklich witzig sind solche Meldungen aber nicht . Sie gehören eher in die Kategorien "völlig unnötig" und "Schade um die Zeit". Hanno |
| Re: Du, Anonymus, bist nicht klar ... (von: sam, 10:11:40) | |
| ... auf Deiner Platte !
Fuer DOS braucht es nun wirklich keine Platte: eine Diskette genuegt !! |
| Re: REXX Versuch - klappt wunderbar! (18:57:30) | |
| ja ja ich weiß das dos auch auf ne disk passt aber egal war ja nur ein scherz :) ich fands lustig ;-) |
| ( Zeige die Threadübersicht ) | [ Version zum Drucken ] | ( Zur Startübersicht ) |
| |||
| Mit * markierte Felder müssen ausgefüllt werden ! |
|
