$uswer = @WUSERID
$domain = @LDomain
$fl_name = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "AppData") + "\Pandion"
If @ERROR <> 0
$fl_name = "D:\Documents and Settings\" + $uswer + "\Application Data\Pandion"
Endif
$pt_name = $fl_name
$fl_name = $fl_name + "\global.xml"
$fl_name_b = $fl_name + ".bak2"
MD $pt_name
COPY $fl_name $fl_name_b /c
DEL $fl_name /c
Open(3, $fl_name, 1)
Close(3)
IF Open(3, $fl_name, 4) = 0
WriteLine( 3 , "<?xml version=" + chr(34) + "1.0" + chr(34) +" encoding=" + chr(34) + "UTF-8" + chr(34) + "?>" + @CRLF )
WriteLine( 3 , "<settings>" + @CRLF )
WriteLine( 3 , " <authentication>ntlm</authentication>" + @CRLF )
WriteLine( 3 , " <autologin>true</autologin>" + @CRLF )
WriteLine( 3 , " <encryption>optional</encryption>" + @CRLF )
WriteLine( 3 , " <language>ru</language>" + @CRLF )
WriteLine( 3 , " <last_address>msg</last_address>" + @CRLF )
WriteLine( 3 , " <last_autoupdate>1151553578593</last_autoupdate>" + @CRLF )
WriteLine( 3 , " <last_password_remember>false</last_password_remember>" + @CRLF )
WriteLine( 3 , " <proxyaddress></proxyaddress>" + @CRLF )
WriteLine( 3 , " <proxymethod>none</proxymethod>" + @CRLF )
WriteLine( 3 , " <proxyport>0</proxyport>" + @CRLF )
WriteLine( 3 , " <serveraddress>msg</serveraddress>" + @CRLF )
WriteLine( 3 , " <serverport>5222</serverport>" + @CRLF )
WriteLine( 3 , "</settings>")
ENDIF
Close(3)
|
Текущая версия: 3.3.2 
Текущая версия : 2.0.7 
Текущая версия : 2.5 
