Arsip: Block Setting IP Address

more 15 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 15 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 15 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 15 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 15 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 15 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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- [ask] Mencari letak error list index out of bound
by kepiss in Tip n Trik Pemrograman more 11 years ago - [ASK] Billing Multiplayer: Menampilkan pesan
by yoebhe in Tip n Trik Pemrograman more 16 years ago - PNG pada form
by kutujenggot in Multimedia & Graphic Enhancement more 12 years ago - mengatasi eror saat memasukkan data delphi 7 ke sql server
by willyalves in Tip n Trik Pemrograman more 13 years ago - BACKUP DATABASE PARADOX
by iccang in Paradox more 12 years ago - Installer ...
by yuan_carlos in Hal umum tentang Pascal Indonesia more 17 years ago - Perancangan Database
by deepblue in FireBird more 17 years ago - ada yang tau keunggulan Delphi 7 dibanding Delphi6?
by alvonz in Hal umum tentang Pascal Indonesia more 14 years ago - Paradox Delphi 7 Error on Vista Home Premium
by claser99 in Paradox more 14 years ago - ada yang tau cara disable systemtime change?
by $tring in OOT more 14 years ago