Arsip: Block Setting IP Address

more 17 years ago
awonk
Salam,
Para ilmuwan Delphier.... saya mo nanya nih.....
1. Fungsi buat membaca MAC Address apa ya??
2. gmn caranya dg menggunakan program supaya saya bisa nge-blokck user agar ga bs merubah setting IP Address... tp status pengguna computer sbg administrator
Mohon pencerahannya....
Terima kasih
Salam

more 17 years ago
belajaraja
Salam,
Untuk membaca MAc Adrdress
unit MACAddress;
interface
uses SysUtils;
type
TMACAddress = packed array of Byte;
ENetBiosError = class( Exception );
function LanAdapterCount : Integer;
function GetMacAddress( AdapterNum : Integer ) : TMACAddress;
implementation
uses NB30, Windows;
resourcestring
sNetBiosError = 'NetBIOS error %d';
type
TAStat = record
Adapt : TAdapterStatus;
NameBuff : array of TNameBuffer;
end;
function LanAdapterCount : Integer;
var
Ncb : TNCB;
uRetCode : Char;
lEnum : TLanaEnum;
begin
FillChar( NCB, SizeOf(NCB), 0 );
with NCB do begin
ncb_command := Char( NCBENUM );
ncb_buffer := @lEnum;
ncb_length := SizeOf(lEnum);
end;
uRetCode := Netbios( @Ncb );
if uRetCode <>#0then raise Exception.CreateFmt( sNetBIOSError,
[Ord(uRetCode)] );
Result := Ord(lenum.length);
end;
function GetMacAddress( AdapterNum : Integer ) : TMACAddress;
var
Ncb : TNCB;
uRetCode : Char;
J : Integer;
Adapter : TAStat;
begin
FillChar( NCB, SizeOf(NCB), 0 );
with NCB do begin
ncb_command := Char(NCBRESET);
ncb_lana_num := Char( AdapterNum );
end;
uRetCode := Netbios( @Ncb );
if uRetCode <>#0then raise Exception.CreateFmt( sNetBIOSError,
[Ord(uRetCode)] );
FillChar( NCB, SizeOf(NCB), 0 );
with NCB do begin
ncb_command := Char(NCBASTAT);
ncb_lana_num := Char( AdapterNum );
StrCopy( ncb_callname, '* ' );
ncb_buffer := @Adapter;
ncb_length := sizeof(Adapter);
end;
uRetCode := Netbios( @Ncb );
if uRetCode <>#0then raise Exception.CreateFmt( sNetBIOSError,
[Ord(uRetCode)] );
for J := 0 to 5 do
Result[J] := Ord( Adapter.Adapt.Adapter_address[J] );
end;
end.
gmn caranya dg menggunakan program supaya saya bisa nge-blokck user agar ga bs merubah setting IP Address... tp status pengguna computer sbg administrator=>> yang sebagai administrator nya siapa ? User nya atau Admin nya ? karena kalo dari kalimat saudara, kl yang saya tangkap user nya bisa login sebagai administrator ? Mohon maaf apabila salah

more 17 years ago
awonk
oke terima kasih atas share ilmunya....
Maksudnya : si pengguna komputer hak aksesnya sebagai Admin yg bs merubah setting IPAddress. Nah pertanyaan saya gimana caranya bs nge-block si pengguna komputer agar tidak bs merubah setting IPAddress.
Terima kasih ya....
Salam

more 17 years ago
belajaraja
Salam,
Ini harus di seting dari komputer nya, dan di jaringannya, mungkin temen* yang lain ada yang bisa membantu ?
Terima kasih

more 17 years ago
MrLee
jika memakai windows XP
dan loginnya di setting bukan sebagai Administrator
user tersebut tidak akan bisa melakukan perubahan Ip Address
jika win 98
sembunyikan / rename file network.cpl sehingga tidak ada yg bisa masuk ke network properties;
atau cara yg lebih halus di registry
HCU\software\microsoft\windows\cuurentversion\policies\network
keynya (Dword) NoNetSetupIdPage valunya 1
jadi jika di buka network properties hanya Tab Network Identificationnya saja yg hilang;
semoga bermanfaat

more 17 years ago
LuriDarmawan
buat tools yang meng-capture aplikasi-2 management-system,
seperti: taskmanage, controlpanel, regedit, tweak, dll.
dan tidak boleh mematikan tools ini sendiri.
jika aplikasi yang dimonitor tersebut jalan, segeralah dimatikan 'paksa'
note:
tapi tetep saja bisa dibunuh melalui safemode.
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- pengurangan jam/menit/detik
by esti_g in Hal umum tentang Pascal Indonesia more 17 years ago - quantity mysql
by belajaraja in Enginering more 17 years ago - Maaf, melenceng dr Delphi - ada yg bisa Excel???
by ichan29 in OOT more 17 years ago - Ngetik harga barang di TEdit langsung ada separatornya
by wiseguy1997 in Tip n Trik Pemrograman more 17 years ago - Gairah baru
by Tbawor in Hal umum tentang Pascal Indonesia more 17 years ago - Midas yang aneh....Ada yang tahu jawabannya ?
by EkoIndri in Tip n Trik Pemrograman more 18 years ago - [HINT] Trigger dan Store Procedure In mySQL.
by cyber_hecker in MySQL more 17 years ago - Delphi utk portable device ( HP, PDA, dsb )
by meinardi in Tip n Trik Pemrograman more 19 years ago - edit kosong bs tersimpan
by Ayahe_Hasna in Kritik & Saran more 17 years ago - Membuat tampilan TV dari TV Tunner didalam Form Delphi ??
by purnomo2007 in OOT more 14 years ago