oIP = createobject('MSWinsock.Winsock') lcIP = oIP.LocalIP()The user name:
* Function UserName * Returns Windows user name * local lcBuffer, lnSize, lnRetCode, lcUserName lcBuffer = repl(chr(0),64) lnSize = LEN(lcBuffer) -1 Declare Long WNetGetUserA in "mpr.dll" As GetUserName ; STRING @lc0, STRING @lcBuffer, LONG @lnSize lnRetCode = GetUserName("", @lcBuffer, @lnSize ) lcUserName = left(lcBuffer, at(chr(0), lcBuffer)-1) return lcUserNameThe machine name
lcTemp = SYS(0) lcMachName = left(lcTemp, At("#", lcTemp)-1)