ActivePerl でWindowsのシステム環境変数を取得するにはどうすればよいのでしょうか？
CGIサーバの話ではありません。
No.2
193
25
100pt
Win32::OLEを使って取得できるようです。
Environment("SYSTEM")の代わりにEnvironment("USER")にすればユーザ環境変数になります。
32
32
#!/usr/bin/perl -w
use strict;
use Win32::OLE;
my $WshShell = Win32::OLE->CreateObject("WScript.Shell");
my $SysEnv = $WshShell->Environment("SYSTEM");
for my $value (in $SysEnv) {
print "$value\n";
}
No.1
373
35pt
当方ActivePerlを入れてないので確認できていませんが、
http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/lib/Env.htm...
こちらの方法で出来るのではないかと思います。
確認してませんが(^^;)
ありがとうございました！
No.2
19325
ここでベストアンサー
100pt
Win32::OLEを使って取得できるようです。
Environment("SYSTEM")の代わりにEnvironment("USER")にすればユーザ環境変数になります。
#!/usr/bin/perl -w
use strict;
use Win32::OLE;
my $WshShell = Win32::OLE->CreateObject("WScript.Shell");
my $SysEnv = $WshShell->Environment("SYSTEM");
for my $value (in $SysEnv) {
print "$value\n";
}
ありがとうございます！
バッチリでした。
villain
2006/06/05 03:00:14
znz
1
1
1
ありがとうございます！
バッチリでした。