Funsi: Untuk memudahkan dalam registrasi GWarnet untuk Game Gemscool.

Save code dibawah ini dalam bentuk .vbs di desktop anda.

On Error Resume Next
fid=InputBox("Masukkan ID G-Warnet anda", "ID")
If fid = "" then
WScript.quitEnd if

fpass=InputBox("Masukkan PASSWORD G-Warnet anda", "PASSWORD")
Set http = CreateObject("Microsoft.XmlHttp")
http.open "POST", "http://account.gemscool.com/warnet/login.php?id=" + fid + "&pwd=" + fpass, FALSE
http.send ""
Set xmlDoc = CreateObject( "Microsoft.XMLDOM" )
xmlDoc.async = False
xmlDoc.loadXML(http.responseText)

resultCode = xmlDoc.getElementsByTagName("resultCode").item(0).text

if resultCode = "S000" Then
wn = xmlDoc.getElementsByTagName("wn").item(0).text
Set TypeLib = CreateObject("Scriptlet.TypeLib")
pcKey = Mid(TypeLib.Guid, 2, 36)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Gemscool\Premium\key", pcKey, "REG_SZ"

pc_name = WshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled='TRUE'",,48)
For Each objItem in colItems
http.open "POST", "http://account.gemscool.com/warnet/addWarnetPC.php?wn=" + wn + "&macAddr=" + objItem.MACAddress+ "&pcKey=" + pcKey + "&pcIp=" + objItem.IPAddress(0) + "&pcNm=" + pc_name, FALSE
http.send ""
Next
Wscript.Echo "PC ini telah sukses terdaftar di G-Warnet."
else
Wscript.Echo "PC ini telah gagal terdaftar di G-Warnet."
end if
set http = nothing