Netzwerk-Verwaltung (Peer) verschwunden

[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

[wilfried]

Hier ein Ausschnitt aus meiner Desktopsicherung:

Code: Alles auswählen

  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]

Vielen Dank für den Auszug der Desktopsicherung.

Doch wie kann hieraus die Verknüpfung generiert werden? Welche Voraussetzungen bzw. Vorgehensweise ist nötig?

[wilfried]

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

Code: Alles auswählen

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: Alles auswählen

/* ------------------------------------------------------------------ */
/* 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!!!