Find Operating System

[alpder]

I run functions in an Access DB from one of 2 PCs (on Novell network). One PC runs WinNT and the other XP. As I have a Shell function in the code I need to use code to determine the OS so I can run a DOS command (the reason for this is that the windows directory for NT is WINNT, but for XP it is WINDOWS).
I tried a search limited to this forum, but the results included all forums.

 

[alpder]

This is ALPDER again - I forgot to mention in the original posting that I tried using the Environ variable(13). Both NT and XP pcs return a value of "OS=Windows_NT

 

[SonOfEmidec1100]

The best way to do it use some APIs. However if you are using APIs why not use them to return the windows directory instead. Heres an example

Declare Function apiGetWindowsDirectory& Lib "kernel32" Alias _
   "GetWindowsDirectoryA" (ByVal lpbuffer As String, ByVal nSize As Long)

Function GetWinDir() As String
   Dim lpbuffer As String * 255
   Dim Length As Long
   Length = apiGetWindowsDirectory(lpbuffer, Len(lpbuffer))
   GetWinDir = Left(lpbuffer, Length)
End Function

For more info see

http://support.microsoft.com/default.aspx?scid=kb;EN-US;210158

 

[PHV]

And what about Environ("SystemRoot") ?
Or Environ("windir") ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244