|
Oke this works...
The only thing i need to do is write the INI file back to the registry. I tried this one but it isn't working
$array=ReadFile('.\export.txt')
Function ReadFile($file)
Dim $lf, $f, $_, $t
$lf=chr(10)
$f=freefilehandle
$_=open($f,$file)
if @error exit @error endif
do $t=$t+$lf+readline($f) until @error
$_=close($f)
$ReadFile=split(substr($t,2),$lf)
EndFunction
Function regwrite($subkey,$value,$data,optional $type)
DIM $keyarray,$keypath,$loop,$rc
if readvalue($subkey, $entry) <> $expression
if not $type
$type=readtype($subkey, $entry)
if @error
$type="REG_SZ"
endif
endif
$keyarray=split("$key","\")
for $loop=0 to ubound($keyarray)
$keypath=$keypath+$keyarray[$loop]+"\"
if not KEYEXIST("$keypath") $rc=addkey("$keypath") endif
next
if KEYEXIST("$key")
$rc=writevalue("$subkey","$value","$data",$type)
else
exit @error
endif
endif
ENDFUNCTION
Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Telesnap\SwAdmin\User-List\342\Config-Group","SnapwareIni",$array)
| 
