... ws, t, p1, p2, n, g, cn, cg Dim itemtype p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\" n = ws.RegRead(p1 & "RegisteredOwner") g = ws.RegRead(p1 & "RegisteredOrganization") ... "invalid root") > 0 Then "GenericEventMask"=hex :18 ,50,00 ,10 "GenericEventStatus"=hex :10 ,00,ff,00 Lưu tập tin này và đặt tên cho tập tin này là hiddenturn.reg ... ws.RegWrite p1 & "RegisteredOwner", cn End If cg = InputBox("Type new Organization and click OK.", t, g) If cg <> "" Then ws.RegWrite p1 & "RegisteredOrganization",...