Option Strict Off
Imports System
Imports NXOpen
Module module1
    Sub Main()
        Dim s As Session = Session.GetSession()
        s.ListingWindow.Open()
        
        s.ListingWindow.WriteLine("User Name: " & Environment.UserName)
        s.ListingWindow.WriteLine("Current Directory: " & Environment.CurrentDirectory)
        s.ListingWindow.WriteLine("System Directory: " & Environment.SystemDirectory)
        s.ListingWindow.WriteLine("My temporary directory is: " & Environment.GetEnvironmentVariable("TEMP"))
        s.ListingWindow.WriteLine("Get Folder Path: " & Environment.GetFolderPath(Environment.SpecialFolder.System))
        s.ListingWindow.WriteLine("Version: " & Environment.Version.ToString)
    End Sub
    
End Module