View source for LotusScript: Obtendo as variáveis de ambiente do Windows

Uma pergunta comum em Windows é como obter o usuário atual do sistema, o nome da máquina, etc ...

O código abaixo faz isso

 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