Jump to content
Gold Sponsor: Data-Way IT-Consulting, Austria

  • GetComputerName

    GetComputerName

    VBScript

     

    This function returns the name of the computer (i.e. the host hame) the current script (i.e. the SwyxWare) is running on.

    Please see the Introduction chapter for some usage instructions.

     

    ''-------------------------------------------------------------------
    '' Name:     GetComputerName
    ''           ===============
    '' 
    '' Returns the name of the machine/computer this script (i.e. the SwyxWare) is running on.
    '' 
    '' return value:
    ''      string      computer name
    ''
    ''--------------------------------------------------------------------
    Function GetComputerName()
        PBXScript.OutputTrace "---------> GetComputerName"
    
        Dim sReturn
        sReturn = ""
    
        On Error Resume Next
    
        Dim ob
        Set ob = CreateObject("WScript.Network")
    
        If err <> 0 Then
            PBXScript.OutputTrace "Error instanziating 'WScript.Network'! (" & err & ")"
            PBXScript.OutputTrace err.description
        Else
            sReturn = ob.ComputerName
            If err <> 0 Then
                PBXScript.OutputTrace "Error getting property 'ComputerName'! (" & err & ")"
                PBXScript.OutputTrace err.description
            End If
        End If
        Set ob = Nothing 
    
        GetComputerName = sReturn
    
        PBXScript.OutputTrace "sReturn = " & sReturn
        PBXScript.OutputTrace "<--------- GetComputerName"
    End Function

     

    This function makes use of the Server Script API function PBXScript.OutputTrace to write trace information into the SwyxServer trace file.

     

    This function was initially posted into this forum topic.

     

     


    Tom Wellige
     Share


     Share




    User Feedback

    Recommended Comments

    There are no comments to display.



    Guest
    Add a comment...

    ×   Pasted as rich text.   Paste as plain text instead

      Only 75 emoji are allowed.

    ×   Your link has been automatically embedded.   Display as a link instead

    ×   Your previous content has been restored.   Clear editor

    ×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and have taken note of our Privacy Policy.
We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.