LotusScript: Obtendo as variáveis de ambiente do Windows: Difference between revisions
mNo edit summary |
mNo edit summary |
||
Line 3: | Line 3: | ||
So this simple code make this | So this simple code make this | ||
Sub Initialize | |||
Sub Initialize | |||
Dim wshShell As Variant | Dim wshShell As Variant | ||
Line 24: | Line 23: | ||
strUserDomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%") | strUserDomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%") | ||
Print "strUserDomain [" + strUserDomain + "]" | Print "strUserDomain [" + strUserDomain + "]" | ||
End Sub | End Sub | ||
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