LotusScript: Obtendo as variáveis de ambiente do Windows: Difference between revisions
mNo edit summary |
mNo edit summary |
||
Line 4: | Line 4: | ||
Sub Initialize | Sub Initialize | ||
Dim wshShell As Variant | Dim wshShell As Variant | ||
Dim strUser As String | Dim strUser As String |
Revision as of 11:49, 30 October 2008
A common question is how to get Windows Desktop Username and so on.
So this simple code make this
Sub Initialize Dim wshShell As Variant Dim strUser As String Dim strComputer As String Dim strServer As String Dim strUserDomain As String Set wshShell = CreateObject("WScript.Shell") strUser = wshShell.ExpandEnvironmentStrings("%USERNAME%") Print "User [" + strUser + "]" strComputer = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") Print "Computer [" +strComputer + "]" strServer = wshShell.ExpandEnvironmentStrings("%LOGONSERVER%") Print "logonServer [" + strServer + "]" strUserDomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%") Print "strUserDomain [" + strUserDomain + "]" End Sub