local lcName, ; > lnSize, ; > lcUser, ; > lnStatus > >* Initialize the variables we need and declare the Windows function. > >lcName = chr(0) >lnSize = 64 >lcUser = replicate(lcName, lnSize) >declare integer WNetGetUser in Win32API ; > string @cName, string @cUser, integer @nBufferSize > >* Call the function and return the result. > >lnStatus = WNetGetUser(@lcName, @lcUser, @lnSize) >lcUser = iif(lnStatus = 0, upper(left(lcUser, at(chr(0), lcUser) - 1)), '') >return lcUserDoug,
oNet = CREATEOBJECT("WScript.Network") ? oNet.UserName