Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Localdeki Pc'lerin Windows hizmetlerini görüntüleme
#1
Merhaba 
Local Ağımda bir bilgisayarda bir servis kurulu ama hangi bilgisayarda olduğunu bilmiyorum adını biliyorum onu bulup kaldırmam lazım.

Radrigo amca yazmış bir kod ama ben Erişim Hatası aldım. Kodları bir de siz inceler misiniz.

procedure TForm2.Button1Click(Sender: TObject);
const
 WbemUser            =''; //set the user name to log in
 WbemPassword        =''; //set the password
 WbemComputer        ='xxx.xxx.xxx.xxx';//set the name of the remote machine or IP address
 wbemFlagForwardOnly = $00000020;
var
 FSWbemLocator : OLEVariant;
 FWMIService   : OLEVariant;
 FWbemObjectSet: OLEVariant;
 FWbemObject   : OLEVariant;
 oEnum         : IEnumvariant;
 iValue        : LongWord;
begin
 FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
 FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
 FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_Process','WQL',wbemFlagForwardOnly);
 oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
 while oEnum.Next(1, FWbemObject, iValue) = 0 do
 begin
   srvcmemo.Lines.Add(Format('Name         %s',[String(FWbemObject.Name)]) +' ### '+Format('ProcessId    %d',[Integer(FWbemObject.ProcessId)]));
   FWbemObject:=Unassigned;
 end;
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
Güvenlik sebebiyle şifre olmadan bağlanılamıyor diye biliyorum ama nereden okuduğumu hatırlayamadım.
There's no place like 127.0.0.1
WWW
Cevapla
#3
(29-09-2016, Saat: 10:24)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlGüvenlik sebebiyle şifre olmadan bağlanılamıyor diye biliyorum ama nereden okuduğumu hatırlayamadım.

Pc'de şifre yok ama.
O halde şifre ile çalışsa bile işimi görmez localdeki her pcnin şifresini tek tek öğrendikten sonra girip bakarım da,
Bunun başka bir yolu olmalı..
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#4
Eskiden bi uzaktan yönetim programı vardı adını hatırlayamıyorum, win 2000 de test etmiştim, yerel ağdaki makinalar eğer birbirini görüyorsa bu dediğim programın bir install menusu vardı, ağdaki seçtiğiniz herhangi bir makinaya kendini install edip istediğiniz gibi kullanımı sağlıyordu. Fakat xp den sonraki işletim sistemlerinde çalışırmıydı onu bilmiyorum.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Firebird localdeki verileri sunucuya gönderme ? kburaky 3 121 01-06-2018, Saat: 09:55
Son Yorum: esistem
  Windows Hizmetinde Hafıza Yönetimi yhackup 1 174 11-12-2017, Saat: 09:59
Son Yorum: SimaWB
  Amansızca duran Windows hizmeti yhackup 24 905 25-11-2017, Saat: 09:38
Son Yorum: yhackup
  Windows Servislerini Kontrol Etmek tgural 4 436 09-10-2017, Saat: 13:21
Son Yorum: SimaWB
  Windows api index hzılı dosya arama veya MFT Master File Table Dosya Arama carsoft 3 508 08-07-2017, Saat: 10:09
Son Yorum: carsoft



Konuyu Okuyanlar: 1 Ziyaretçi