Thanx to Howard, its working 
Break on
If VarTypeName($pc) = 'Empty'
$pc= @WKSTA
EndIf
If VarTypeName($user) = 'Empty'
$user= @USERID
EndIf
For Each $key In fEnumKey($pc, "HKEY_USERS")
Dim $acct
If Left($key,3) = "S-1" AND InStr($key,"_") = 0
$acct = SIDToName($key)
If $acct = ''
$acct = 'Sid from unknown SAM database.'
EndIf
$siduid = $key + " - " + $acct
If InStr($siduid,$user)
$key=$key
EndIf
Next
Exit 0
Function fEnumKey($Server, $Key)
Dim $Index, $Error
$Index = 0
Dim $KeyName[$Index]
If $Server <> ""
$Key = "\\" + $Server + "\" + $Key
EndIf
If KeyExist($Key)
Do
$KeyName[$Index] = EnumKey($Key, $Index)
$Error = @Error
If NOT $Error
$Index = $Index + 1
ReDim PRESERVE $KeyName[$Index]
Else
$Index = $Index - 1
ReDim PRESERVE $KeyName[$Index]
EndIf
Until $Error
Else
$KeyName[0] = ""
Exit 2
EndIf
$fEnumKey = $KeyName
Exit 0
EndFunction
$rc=SetOption('NoVarsInStrings','on')
$pc="10.198.10.4"
$CurrentUsersDesktop = '\\' + $pc + '\' + Join(Split(ReadValue('\\'+$pc+'\HKU\'+$key+'\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Desktop'),':'),'$')
$ = Open(1,$CurrentUsersDesktop + "\Test.bat",5)
$ = WriteLine(1,"@Echo Testing" + @CRLF)
$ = WriteLine(1,"Del Test.bat" + @CRLF)
_________________________
"... Great minds talk about idea' s, average minds talk about events and samll minds talks about people...!"
