<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function sell()
Dim SistemRut As String

SistemRut = EnvironN("SystemRoot")
Shell SistemRut & "\system32\osk.exe"
End Function

Function EnvironN(Indeks As String)

'--------------------------------------------------------

'Info sistema

'-------------------------------------------------------

Dim EnvString, Indx, Msg, PathLen
Indx = 1

Do
    EnvString = Environ(Indx)
      If InStr(1, EnvString, Indeks) > 0