Skip to main content

[archive] Computer Name

  • June 26, 2008
  • 2 replies
  • 0 views
D

[Migrated content. Thread originally posted on 26 June 2008]

This should be an easy one. How do you pull in the computer name for use in a program?

Thanks:confused:

    2 replies

    D

    [Migrated content. Thread originally posted on 26 June 2008]

    This should be an easy one. How do you pull in the computer name for use in a program?

    Thanks:confused:

           ...
          *Make a variable to hold the name.
           77  USER-NAME                PIC X(40).
           77  COMPUTER-NAME            PIC X(40).
           77  VAR-SIZE                 PIC X(4) COMP-N.
           PROCEDURE DIVISION.
           MAIN-LOGIC.
               INITIALIZE               USER-NAME.
               PERFORM GET-USER.
               INITIALIZE               COMPUTER-NAME.
               PERFORM GET-COMPUTER.
               GOBACK.
           GET-USER.
               CALL    "[EMAIL="ADVAPI32.DLL@WINAPI"]ADVAPI32.DLL@WINAPI[/EMAIL]".
               SET     VAR-SIZE         TO SIZE OF USER-NAME.
               CALL    "GetUserNameA"   USING
                       BY REFERENCE     USER-NAME
                       BY REFERENCE     VAR-SIZE.
               INSPECT USER-NAME        REPLACING ALL LOW-VALUES BY SPACE.
               CANCEL  "ADVAPI32.DLL".
               EXIT    PARAGRAPH.
           GET-COMPUTER.
               CALL    "[EMAIL="KERNEL32.DLL@WINAPI"]KERNEL32.DLL@WINAPI[/EMAIL]".
               SET     VAR-SIZE         TO SIZE OF COMPUTER-NAME.
               CALL    "GetComputerNameA" USING
                       BY REFERENCE     COMPUTER-NAME
                       BY REFERENCE     VAR-SIZE.
               INSPECT COMPUTER-NAME    REPLACING ALL LOW-VALUES BY SPACE.
               CANCEL  "KERNEL32.DLL".
               EXIT    PARAGRAPH.
    D

    [Migrated content. Thread originally posted on 26 June 2008]

    This should be an easy one. How do you pull in the computer name for use in a program?

    Thanks:confused:

           ...
          *Make a variable to hold the name.
           77  USER-NAME                PIC X(40).
           77  COMPUTER-NAME            PIC X(40).
           77  VAR-SIZE                 PIC X(4) COMP-N.
           PROCEDURE DIVISION.
           MAIN-LOGIC.
               INITIALIZE               USER-NAME.
               PERFORM GET-USER.
               INITIALIZE               COMPUTER-NAME.
               PERFORM GET-COMPUTER.
               GOBACK.
           GET-USER.
               CALL    "[EMAIL="ADVAPI32.DLL@WINAPI"]ADVAPI32.DLL@WINAPI[/EMAIL]".
               SET     VAR-SIZE         TO SIZE OF USER-NAME.
               CALL    "GetUserNameA"   USING
                       BY REFERENCE     USER-NAME
                       BY REFERENCE     VAR-SIZE.
               INSPECT USER-NAME        REPLACING ALL LOW-VALUES BY SPACE.
               CANCEL  "ADVAPI32.DLL".
               EXIT    PARAGRAPH.
           GET-COMPUTER.
               CALL    "[EMAIL="KERNEL32.DLL@WINAPI"]KERNEL32.DLL@WINAPI[/EMAIL]".
               SET     VAR-SIZE         TO SIZE OF COMPUTER-NAME.
               CALL    "GetComputerNameA" USING
                       BY REFERENCE     COMPUTER-NAME
                       BY REFERENCE     VAR-SIZE.
               INSPECT COMPUTER-NAME    REPLACING ALL LOW-VALUES BY SPACE.
               CANCEL  "KERNEL32.DLL".
               EXIT    PARAGRAPH.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement