LotusScript: Obtendo as variáveis de ambiente do Windows: Difference between revisions
(New page: 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 strComput...) |
mNo edit summary |
||
| Line 3: | Line 3: | ||
So this simple code make this | So this simple code make this | ||
<code actionscript> | |||
Sub Initialize | |||
Dim wshShell As Variant | Dim wshShell As Variant | ||
Dim strUser As String | Dim strUser As String | ||
| Line 22: | Line 24: | ||
strUserDomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%") | strUserDomain = wshShell.ExpandEnvironmentStrings("%USERDOMAIN%") | ||
Print "strUserDomain [" + strUserDomain + "]" | Print "strUserDomain [" + strUserDomain + "]" | ||
End Sub | |||
</code> | |||
Revision as of 21:57, 28 February 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