Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako upisivati podatke u registry udaljenog racunara?

[es] :: Pascal / Delphi / Kylix :: Kako upisivati podatke u registry udaljenog racunara?

[ Pregleda: 2396 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MatezYU

Član broj: 4114
Poruke: 1586
212.200.31.*



+17 Profil

icon Kako upisivati podatke u registry udaljenog racunara?18.12.2007. u 14:09 - pre 199 meseci
Da li ima neko ideju kako mogu da upisem neke parametre u registry fajl udaljenih racunara.
Hteo bih da napravim neko malo programce u kojem se nalazi lista udaljenih racunara gde bih mogao da administriram parametre koji su u registryju.
Ako zelim nesto citati iz registry-ja da li se sve to vuce preko mreze do mene pa se ponovo vraca? Koliko ce ovo gusiti mrezu i sta je najbolje resenje?
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?18.12.2007. u 17:41 - pre 199 meseci
> Da li ima neko ideju kako mogu da upisem neke parametre u registry fajl udaljenih racunara.

Pogledaj TRegistry.RegistryConnect.

> Ako zelim nesto citati iz registry-ja da li se sve to vuce preko mreze do mene pa se ponovo vraca? Koliko ce ovo gusiti mrezu i sta je najbolje resenje?

Ne prenosi se čitav fajl već samo podaci koje si tražio, naziv ključa i vrednosti, to je uglavnom mala količina podataka.


 
Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.181.nat-pool-bgd.sbb.co.yu.



Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?18.12.2007. u 23:50 - pre 199 meseci
Napavis jedan obican rat program slicno kao remote file manager samo sto u tvom slucaju radis sa registry bazom...
Ako imas bilo kakvo iskustvo u pisanju takvih programa , mogu ti pomoci oko source koda
 
Odgovor na temu

MatezYU

Član broj: 4114
Poruke: 1586
212.200.31.*



+17 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?19.12.2007. u 13:05 - pre 199 meseci
Radi ovo sa RegistryConnect.
Thx.

Nego CaSper01 kako si mislio ovo sa RAT? Jel moze neki primer?
Imam problem sa timeout-om. Racunar koji nije dostupan zablokira program. Napravio sam da program pokupi listu racunara, i onda ide redom i odradjuje posao. Stavio sam svaki posao bude jedna nit. Ogranicio sam da u jednom momentu moze max 10 poslova da se radi zbog ogranicenja winxp sp2 na 10 konekcija. Problem mi je to sto kada je racunar ugasen treba mu oko 10 sekundi da skonta... Jel moze ovaj timeout nekako da se smanji?!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?19.12.2007. u 13:33 - pre 199 meseci
> Imam problem sa timeout-om. Racunar koji nije dostupan zablokira program.

Prvo uradi ping ili nešto slično i znaćeš da li je računar dostupan.

> moze max 10 poslova da se radi zbog ogranicenja winxp sp2 na 10 konekcija.

10 konekcija je ograničenje kod File pristupa, kod TCP/IP nema tehničkog ograničenja (ali je ograničenje u licenci).


 
Odgovor na temu

MatezYU

Član broj: 4114
Poruke: 1586
212.200.31.*



+17 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?19.12.2007. u 13:51 - pre 199 meseci
Kako da ga pingujem na najlaksi nacin?
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?19.12.2007. u 16:16 - pre 199 meseci
> Kako da ga pingujem na najlaksi nacin?

Šeluj windowsov ping utility.
 
Odgovor na temu

MatezYU

Član broj: 4114
Poruke: 1586
212.200.31.*



+17 Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?20.12.2007. u 08:02 - pre 199 meseci
Odradio sam na ovaj nacin:

http://delphi.about.com/od/internetintranet/l/aa081503a.htm
 
Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
89.216.248.*



Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?20.12.2007. u 21:50 - pre 199 meseci
Vidi nisam te najbolje razumeo.Dali ti hoces da kontrolises registry nekom racunaru preko neta recimo u Americi ili u lokalnoj mrezi?
Evo ti jedna jednostavna funkcija za listanje koji su racunari na mrezi:

//=============================================================================
//--------------------Funkcija odbrojavanja racunara u LAN-u---------------------

function LAN: string;
var
Domen: string;

procedure Broji(aResource:PNetResource);
var
aHandle: THandle;
k, BufferSize: DWORD;
Buffer: array[0..1023] of TNetResource;
i: Integer;
begin
WNetOpenEnum(2,0,0,aResource,aHandle);
k:=1024;
BufferSize:=SizeOf(Buffer);
while WNetEnumResource(aHandle,k,@Buffer,BufferSize) = 0 do
for i:=0 to k-1 do
begin
if Buffer.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
Domen := Domen + Copy(PChar(Buffer.lpRemoteName),3,MAX_PATH) + #13#10;
if Buffer.dwUsage > 0 then
Broji(@Buffer)
end;
WNetCloseEnum(aHandle);
end;

begin
Broji(nil);
Result:=Domen;
end;
A sto se tice RAT-a napravis server i klient aplikaciju...
 
Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
89.216.248.*



Profil

icon Re: Kako upisivati podatke u registry udaljenog racunara?20.12.2007. u 23:10 - pre 199 meseci
Evo ti jedan jednostavan primer za remote reg:

// RemoteReg function by CaSper01

function RemoteReg(MachineName: string; Key: HKEY; SubKey,Name,Value: string): boolean;
var
RegKey: HKEY;
begin
Result:=true;
if RegConnectRegistry(PChar(MachineName),Key, RegKey) <> 0 then
begin
Result:=false;
showmessage('Ne mogu da se konektujem');
Exit;
end
else
begin
showmessage('Konektovan');
if RegCreateKey(RegKey, PChar(SubKey), RegKey) <> ERROR_SUCCESS then
begin
Result:=false;
showmessage('Ne mogu da napravim kljuc');
Exit;
end;
RegSetValueEx(RegKey, PChar(Name), 0, REG_SZ, PChar(Value), Length(Value));
end;
RegCloseKey(RegKey);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if RemoteReg(Edit1.Text, HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion\run',
'TestTIKA', 'C:\WINDOWS\TestTika.exe') then
showmessage('upisano')
else showmessage('nije upisano');
end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako upisivati podatke u registry udaljenog racunara?

[ Pregleda: 2396 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.