Option Explicit
Private Sub Form_Load()
Dim i As Integer
Text1.Text = Empty
i = 1
While Environ$(i) <> Empty
Text1.Text = Text1.Text & Format(i, "000") & " = " & Environ$(i) & vbNewLine
i = i + 1
Wend
End Sub
Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Remarque :
Ce code permet de lister les variables d'environnement de la machine.
Pour tester ce code, ajoutez un TexBox (Multiline = True et ScrollBars = 3) et lancer le.
Cela permet d'eviter d'utiliser dans certains cas la base de registre pour récupérer certaines informations.
Pour information ici, on utilise Environ(Numéro) mais ceci sert pour lister les variables car si Environ(1) retourne une variable sur une autre, il peut y avoir un décalage. De plus si Environ(1) retourne :
ALLUSERSPROFILE=C:\Documents and Settings\All Users
Environ("ALLUSERSPROFILE") retournera :
C:\Documents and Settings\All Users
Bonne programmation à toutes et à tous :)
System.Collections.IDictionary dic = System.Environment.GetEnvironmentVariables();
System.Collections.IDictionaryEnumerator dicEnum = dic.GetEnumerator();
while (dicEnum.MoveNext()) Console.WriteLine("{0} - {1}", dicEnum.Key, dicEnum.Value);
#!c:/perl/bin/Perl.exe
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "${var}=\"${val}\"<BR>\n";
}
<?PHP
//print "<H1>Variables d'environnement</H1>\n";
echo "<CENTER><TABLE width= 600 border=1>\n";
foreach ( $_SERVER as $nom => $contenu){
echo "<TR><TD BGCOLOR=orange><B>$nom</B></TD><TD BGCOLOR=gold>$contenu.</TD></TR>\n";
}
echo "</TABLE></CENTER><BR>";
?>
// Affichage de toutes les variables d'environnement
Info(SysEnvironnement())
// Affichage d'une variable en particulier
Info(SysEnvironnement("PATH"))
Dim dic As System.Collections.IDictionary = System.Environment.GetEnvironmentVariables()
Dim dicEnum As System.Collections.IDictionaryEnumerator = dic.GetEnumerator()
While dicEnum.MoveNext()
Console.WriteLine("{0} - {1}", dicEnum.Key, dicEnum.Value)
End While