Netzwerk-Verwaltung (Peer) verschwunden

(DE) System, Installation, Konfiguration, Hardware, Treiber, Netzwerk, Virtualisierung, etc.
(EN) System, Installation, Configuration, Hardware, Drivers, Network, Virtualisation, etc.
hneubert7

Netzwerk-Verwaltung (Peer) verschwunden

Post by hneubert7 »

Hallo,

unter OS/2 Warp 4 ist kürzlich das Aufrufsymbol für die Netzwerk-Verwaltung (Peer) verschwunden, womit Benutzer angelegt und Freigaben verwaltet werden können. Früher war dies über "Verbindungen", "Netzwerk", "Netwerkdienst" und "gemeinsame Benutzung und Verbindungen" aufrufbar.

Wie kann diese Verknüpfung wieder hergestellt werden? Welche Programmdatei o.ä. wird damit aufgerufen - kann dies auch direkt per Kommandozeile geschehen?

MfG
Heinz
User avatar
wilfried
Posts: 667
Joined: Mon 23. Dec 2013, 18:26
Location: Barsinghausen

Post by wilfried »

Hier ein Ausschnitt aus meiner Desktopsicherung:

Code: Select all

  i=i+1;
  objects.i.__Title    = "Gemeinsame Ressourcen^und Netzwerkverbindungen"
  objects.i.__Class    = "LSPeerWorkstation"
  objects.i.__Setup    = "TITLE=Gemeinsame Ressourcen^und Netzwerkverbindungen;" ||,
                         "NOPRINT=YES;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
                         "CCVIEW=DEFAULT;DEFAULTVIEW=SETTINGS;" ||,
                         "OBJECTID=<NEWMERLIN_WKST_OBJECT>;"
  objects.i.__location = "<LS_FOLDER>"
Erzeugt wurde das durch GETOBJ.CMD von Bernd Schemmer
hneubert7

Post by hneubert7 »

Vielen Dank für den Auszug der Desktopsicherung.

Doch wie kann hieraus die Verknüpfung generiert werden? Welche Voraussetzungen bzw. Vorgehensweise ist nötig?
User avatar
wilfried
Posts: 667
Joined: Mon 23. Dec 2013, 18:26
Location: Barsinghausen

Post by wilfried »

Hol dir gbj111.zip von hobbes.
Entpacken in ein Work-Verzeichnis.
GETOBJ.CMD laufen lassen.
Aufruf:

Code: Select all

GETOBJ /REXX=CREOBJ.CMD /L:getobj.log
Die erzeugte CREOBJ.CMD editieren und alle Einträge bis auf den verlorenen entfernen.
Bei mir sieht das dann so aus

Code: Select all

/* ------------------------------------------------------------------ */
/* REXX program to recreate the objects from the folder               */
/* D:\ARBEITSOBERFLÄCHE                                               */
/* Created on 4 Sep 2015 at 08:01:15 with GETOBJ.CMD v1.11            */
/* This files contains the data for 1358 objects.                     */
/*                                                                    */
/* Usage: CREOBJ.CMD                                                  */
/*                                                                    */
/* ------------------------------------------------------------------ */


                        /* load the dll REXXUTIL                      */
  call rxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  call SysLoadFuncs

                        /* ask the user if we should continue         */
  say "REXX program to recreate the 1358 saved objects from the folder"
  say "  D:\ARBEITSOBERFLÄCHE"
  say "Saved on 4 Sep 2015 at 08:01:15 with GETOBJ.CMD v1.11"
  say ""
  say "Caution: Check this file carefully before using it!!!"
  say ""
  call CharOut , "Press Y to recreate the saved objects ... "
  if translate( SysGetKey( "NOECHO" ) ) <> "Y" then exit
  say ""

  i = 0
  objects.0 = i
                        /* stem elements for the folder               */


  i=i+1;
  objects.i.__Title    = "Gemeinsame Ressourcen^und Netzwerkverbindungen"
  objects.i.__Class    = "LSPeerWorkstation"
  objects.i.__Setup    = "TITLE=Gemeinsame Ressourcen^und Netzwerkverbindungen;" ||,
                         "NOPRINT=YES;HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;" ||,
                         "CCVIEW=DEFAULT;DEFAULTVIEW=SETTINGS;" ||,
                         "OBJECTID=<NEWMERLIN_WKST_OBJECT>;"
  objects.i.__location = "<LS_FOLDER>"


  objects.0 = i


                        /* now create the objects                     */
  errorCounter = 0
  okCounter = 0

  do i = 1 to objects.0
    say " Creating the object """ || objects.i.__title || """ ..."
    if SysCreateObject( objects.i.__class       ,,
                        objects.i.__title       ,,
                        objects.i.__location    ,,
                        objects.i.__setup       ,,
                        "UPDATE" ) <> 1 then
    do
      errorCounter = errorCounter + 1
      say "  *** Warning: Can not create the object """ || ,
          objects.i.__title || """ (Index=" || i || ")!"
    end /* if SysCreateObject( ... */
    else
      okCounter = okCounter + 1
  end /* do i = 1 to objects.0 */

  say okCounter || " object(s) created, " || ,
      errorCounter || " object creation(s) failed."

exit

CREOBJ laufen lassen und das fehlende Objekt sollte wieder da sein.
Alles ohne Gewähr und auf eigene Gefahr!!! 8-)