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.

By Tom Wellige
Recommended Comments
There are no comments to display.
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now