I have a function that I use for this.
Public Function MachineName() As String
' This function will return the scripting computer's NETBIOS name
Dim length As Long
MachineName = Space(100)
length = Len(MachineName)
l = GetComputerName(MachineName, length)
MachineName = Left(MachineName, length)
End Function
I use this during my login subroutine (Meditech c/s) to determine what
set of login variables to use (Universe, HCIS, Username/Password). We
separate out our scripting servers by region.
I also use this for additional information in error/logging messages.
Thank you,
Mitch Lawrence
Lead Applications Analyst
Technical Support - NPR/Automation
CHRISTUS Information Management
*: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Send a "thank you
<http://intranet.christushealth.org/spiritBuck/Default.asp> " to
someone!
________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mitchell Sherry -
Mid West Div.
Sent: Monday, August 04, 2008 1:29 PM
To: [email protected]
Subject: [Talk] Computer Name
Is there a command to capture the name of the computer running the
script?
thanx, Sherry
HCA Midwest Health Systems IT&S
Programmer/Analyst II
816/823-0406
"Some of us are more capable than others of us...but none of us is more
capable than all of us" Tom Wilson/Ziggy
<<image001.jpg>>
