Source Code Untuk Mengubah Nama Komputer

Berikut adalah trik yang dapat digunakan untuk mengubah nama komputer. Dengan source code berikut ini teman - teman dapat melakukan pergantian nama komputer secara otomatis. Setelah menjalankan source code ini teman - teman akan mendapat pesan apakah pemberian nama baru pada komputer berhasil atau gagal, jika berhasil maka teman - teman tinggal melakukan restart komputer untuk melihat hasilnya. Berikut source codenya :

sNewName = "FoxproMania"
strComputer = "." 
objWMIService = GetObject("winmgmts:" ;
 + "{impersonationLevel=impersonate}!\\" + ;
 strComputer + "\root\cimv2")
colComputers = objWMIService.ExecQuery;
 ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
 err = ObjComputer.Rename(sNewName)
 If err <> 0
  MESSAGEBOX("Penggantian Nama Komputer Gagal..!!, ;
   error # " + Err)
 Else
  MESSAGEBOX("Penggantian Nama Komputer Berhasil, ;
   Silahkan Restart PC")
 EndIf
EndFor 

Teman - teman tinggal memperhatikan variable sNewName untuk menentukan nama baru yang akan diberikan ke komputer, dalam contoh diatas nama baru yang diberikan adalah FoxproMania.


SEMOGA BERHASIL...!!

No Response to "Source Code Untuk Mengubah Nama Komputer"

Posting Komentar

Bila komentar tidak tampil, silahkan ke page Welcome dan beritahukan melalui email yang tertera disana, kemungkinan komentar anda dianggap sebagai spam, biar nanti admin yang akan merubahnya, Terima kasih.

Related Posts Plugin for WordPress, Blogger...