Kako upisivati podatke u registry udaljenog racunara?

Odgovori Nova tema

9 odgovora
3.508 pregleda

Kako upisivati podatke u registry udaljenog racunara? 18.12.2007. u 15:09 · pre 229 meseci #1

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?

Re: Kako upisivati podatke u registry udaljenog racunara? 18.12.2007. u 18:41 · pre 229 meseci #2

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Kako upisivati podatke u registry udaljenog racunara? 19.12.2007. u 00:50 · pre 229 meseci #3

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

Re: Kako upisivati podatke u registry udaljenog racunara? 19.12.2007. u 14:05 · pre 229 meseci #4

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?!

Re: Kako upisivati podatke u registry udaljenog racunara? 19.12.2007. u 14:33 · pre 229 meseci #5

> 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).

Potpis

Re: Kako upisivati podatke u registry udaljenog racunara? 19.12.2007. u 14:51 · pre 229 meseci #6

Kako da ga pingujem na najlaksi nacin?

Re: Kako upisivati podatke u registry udaljenog racunara? 19.12.2007. u 17:16 · pre 229 meseci #7

> Kako da ga pingujem na najlaksi nacin?

Šeluj windowsov ping utility.

Potpis

Re: Kako upisivati podatke u registry udaljenog racunara? 20.12.2007. u 09:02 · pre 229 meseci #8

Odradio sam na ovaj nacin:

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

Re: Kako upisivati podatke u registry udaljenog racunara? 20.12.2007. u 22:50 · pre 229 meseci #9

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...

CaSper01

CaSper 01

17 poruka

Profil

Više o autoru

Član broj: 148267

89.216.248.*

Re: Kako upisivati podatke u registry udaljenog racunara? 21.12.2007. u 00:10 · pre 229 meseci #10

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;

Odgovori

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme

Premeštanje teme

Forum kao aplikacija na telefonu

Srodne teme