Environment - Variabili Sistema !!!!

Imports System
Imports System.Collections

Class Form2

Public Shared Sub Main()
Dim str As [String]
Dim nl As [String] = Environment.NewLine
'


Debug.Print("-- Environment members --")

' Invoke this sample with an arbitrary set of command line arguments.

Debug.Print("CommandLine: {0}", Environment.CommandLine)

Dim arguments As [String]() = Environment.GetCommandLineArgs()
Debug.Print("GetCommandLineArgs: {0}", [String].Join(", ", arguments))

' <-- Keep this information secure! -->

Debug.Print("CurrentDirectory: {0}", Environment.CurrentDirectory)

Debug.Print("ExitCode: {0}", Environment.ExitCode)

Debug.Print("HasShutdownStarted: {0}", Environment.HasShutdownStarted)

' <-- Keep this information secure! -->

Debug.Print("MachineName: {0}", Environment.MachineName)

Debug.Print("NewLine: {0} first line{0} second line{0}" & _
" third line", Environment.NewLine)

Debug.Print("OSVersion: {0}", Environment.OSVersion.ToString())

Debug.Print("StackTrace: '{0}'", Environment.StackTrace)

' <-- Keep this information secure! -->

Debug.Print("SystemDirectory: {0}", Environment.SystemDirectory)

Debug.Print("TickCount: {0}", Environment.TickCount)

' <-- Keep this information secure! -->

Debug.Print("UserDomainName: {0}", Environment.UserDomainName)

Debug.Print("UserInteractive: {0}", Environment.UserInteractive)

' <-- Keep this information secure! -->

Debug.Print("UserName: {0}", Environment.UserName)

Debug.Print("Version: {0}", Environment.Version.ToString())

Debug.Print("WorkingSet: {0}", Environment.WorkingSet)

' No example for Exit(exitCode) because doing so would terminate this example.


' <-- Keep this information secure! -->

Dim query As [String] = "My system drive is %SystemDrive% and my" & _
" system root is %SystemRoot%"
str = Environment.ExpandEnvironmentVariables(query)
Debug.Print("ExpandEnvironmentVariables: {0} {1}", nl, str)

Debug.Print("GetEnvironmentVariable: {0} My temporary directory is {1}.", _
nl, Environment.GetEnvironmentVariable("TEMP"))

Debug.Print("GetEnvironmentVariables: ")
Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables()
Dim de As DictionaryEntry
For Each de In environmentVariables
Debug.Print(" {0} = {1}", de.Key, de.Value)
Next de

Debug.Print("GetFolderPath: {0}", _
Environment.GetFolderPath(Environment.SpecialFolder.System))

Dim drives As [String]() = Environment.GetLogicalDrives()
Debug.Print("GetLogicalDrives: {0}", [String].Join(", ", drives))
End Sub 'Main

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Main()

End Sub
End Class 'Sample