LotusScript: Obtendo as variáveis de ambiente do Windows

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