Script Auto Join domain

Script Auto Join domain

On Kiến thức

Script Join domain tự động

Việc join domain cho hệ thống gần cả trăm máy tính là một công việc thật là...khủng khiếp phải không các bạn?
Vì vậy, chúng ta cần "tự động hóa" công việc này để tiết kiệm thời gian.
Các bạn mở notepad paste đoạn code sau vào, lưu lại với tên là joindomain.vbs

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = "lecuong.info"

strUser = "administrator"

strPassword = "12345"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)

Các bạn thay thế :
-"lecuong.info"bằng tên domain của bạn
-"administrator" bằng tên user dùng để join domain
-"12345"  bằng password của user dùng join domain


Good luck!

Thêm tùy chọn Copy to foder và Move to folder.

Thêm tùy chọn Copy to foder và Move to folder.

On Kiến thức

Các bạn download file ở bên dưới. Double click vào chọn Yes là xong!

Dowload here

Hide or Show Control Panel

Hide or Show Control Panel

On Kiến thức

Code viết như sau:

Option Explicit
Dim WSHShell, n, MyBox, p, p1, TitleOnlylove, errnum, vers, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\"
p1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p = p & "NoControlPanel"
p1 = p1 & "NoControlPanel"
itemtype = "REG_DWORD"
TitleOnlylove = "Mr.Cuong say:"
Err.Clear

On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
  WSHShell.RegWrite p, 0, itemtype
  WSHShell.RegWrite p1, 0, itemtype
End If
If n = 0 Then
  n = 1
  WSHShell.RegWrite p, n, itemtype
  WSHShell.RegWrite p1, n, itemtype
  Mybox = MsgBox("Control Panel da bi AN, Log Off hoac Restart lai may tinh de thay doi co tac dung!", 4096, TitleOnlylove)
ElseIf n = 1 then
  n = 0
  WSHShell.RegWrite p, n, itemtype
  WSHShell.RegWrite p1, n, itemtype
  Mybox = MsgBox("Control Panel da duoc HIEN LEN, Log Off hoac Restart lai may tinh de thay doi co tac dung!", 4096, TitleOnlylove)
End If


Lưu lại với tên file .vbs :)

\

Hoặc các bạn có thể download đoạn script trên tại đây

Hide & Show Properties My Computer

Hide & Show Properties My Computer

On Kiến thức

Đoạn script làm ẩn hoặc hiện tùy chọn Properties khi click phải vào My Computer.

Download here

Thêm “Remove Temp Files” và “Run Disk Cleanup” vào menu Recycle Bin

Thêm “Remove Temp Files” và “Run Disk Cleanup” vào menu Recycle Bin

On Kiến thức

Đoạn script này sẽ add thêm vào menu của Recyle Bin thêm 2 tùy chọn là “Remove Temp Files” và “Run Disk Cleanup” để có thể dễ dàng xóa các file rác và chạy tiện ích Dis Cleanup, giúp ổ cứng sạch rác, windows chạy nhanh hơn.





Download here

[Script] Khóa & mở Registry

[Script] Khóa & mở Registry

On Kiến thức

Các bạn download ở bên dưới nhé!
Script rất hữu dụng khi bị virus đấy

Download here