cComputerUser = Sys    (0)
 cComputer     = Left   (cComputerUser, At ("#", cComputerUser) - 2)
 cUser         = Substr (cComputerUser, At ("#", cComputerUser) + 1)

 MessageBox ("ComputerName: " + cComputer + " User Name: " + cUser)