Re^4: Win32 GetEnvironmentVariables?

BrowserUK...That's exactley what I was looking for. I'm assuming the Syntax for GetEnvironmentVariable is the same via the Win32 API correct?
Thanks

Comment on Re^4: Win32 GetEnvironmentVariables?

Replies are listed 'Best First'.
Re^5: Win32 GetEnvironmentVariables? by BrowserUk (Patriarch) on Nov 11, 2006 at 02:10 UTC
Seems to be. `use Win32::API::Prototype;; ApiLink( 'kernel32', 'DWORD GetEnvironmentVariable( LPTSTR n, LPTSTR b, DWORD s )' ) or warn $^E;; $buffer = chr( 0 ) x 32767; $chars = GetEnvironmentVariable( 'PROCESSOR_IDENTIFIER', $buffer, 3276 +7 ); print substr $buffer, 0, $chars;; x86 Family 15 Model 2 Stepping 9, GenuineIntel` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Win32 GetEnvironmentVariables?
by BrowserUk (Patriarch) on Nov 11, 2006 at 02:10 UTC

Seems to be.

use Win32::API::Prototype;;
ApiLink( 
    'kernel32', 
    'DWORD GetEnvironmentVariable( LPTSTR n, LPTSTR b, DWORD s )' 
) or warn $^E;;
$buffer = chr( 0 ) x 32767; 
$chars = GetEnvironmentVariable( 'PROCESSOR_IDENTIFIER', $buffer, 3276
+7 ); 
print substr $buffer, 0, $chars;;

x86 Family 15 Model 2 Stepping 9, GenuineIntel
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]
[d/l]