Archive for June, 2007

Selepas membuat beberapa pembaharuan, ini adalah versi yang terkini. Apa yang skrip ni bleh buat ialah:

Rename PC
Masukkan description
Join Domain

Dim objWMIService, colComputers, objComputer, strComputer, objRegistry
Dim strKeyPath, strValueName, strDescription
Dim strDomain, strPassword, strUser, namaPc
Dim NewName, Result
set objNetwork = CreateObject(”Wscript.Network”)
namaPc=objNetwork.ComputerName
NewName = InputBox(”Enter a new name for this computer:”,”Rename Computer”, namaPc)
NewName = Trim(NewName)
If NewName = “” Then WScript.Quit(10)
Set objWMIService = [...]


Hasil plan hentam sajalah, maka hujung minggu lepas terisi dengan aktiviti yang melenguhkan urat2 sendi tangan. Ya! bermain bowling. selepas tu ke Lata Sungai Tekala. Saksikan gelagat orang2 bujang dalam gambar kat bawah ni.

Takkan keciwa tak dapat cecah 150 kot..

Apapun gaya mesti mau ada..

Mamat yang paling bergaya..

Cover album juara gang starz season akan datang.. [sori [...]