How to copy folder using FileSystemObject

Const OverWriteFolder = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\OlderFolder","C:\NewFolder",OverWriteFolder

How to shutdown a computer

strComputer = "."
Set objWMIService = GetObject_
    ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
        strComputer & "\root\cimv2")
Set colOperating Systems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(1)
Next 

How to create New Website in IIS 6.0

strComputer = "."
Set objWMIService = GetObject("winmgmts:{authenticationLevel=pktPrivacy}\\" & strComputer & "\root\microsoftiisv2")
Set objWebService = objWMIService.ExecQuery("Select * From IISWebService")
arrBindings = Array(0)
Set arrBindings(0) = objWMIService.Get("ServerBinding").SpawnInstance_()
arrBindings(0).IP = "IP ADDRESS"
arrBindings(0).Port = "PORT NUMBER"
arrBindings(0).Hostname = "HOSTNAME"
For Each objItem in objWebService
    objItem.CreateNewSite "Test Site", arrBindings, "c:\inetpub\wwwroot"
Next

How to Delete OU in Active Directory

Set obj_Domain = GetObject("LDAP://dc=domain,dc=com")
obj_Domain.Delete "organizationalUnit", "ou=OU NAME"
 

How to create OU in Active Directory

Set obj_Domain = GetObject("LDAP://dc=domain,dc=com")

Set obj_OU = obj_Domain.Create("organizationalUnit", "ou=Management")
obj_OU.SetInfo

How to reboot a remote computer

strComputer = "<computername>"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _       strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next

How to copy file using Vbscript

 Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Source\Filename.txt" , "D:\destination\", OverwriteExisting

How to set user password in Active Direcotyr(AD)

Set objUser = GetObject("LDAP://cn=cn,ou=ou,dc=dc,dc=com")
objUser.SetPassword "password"

How to find column name in all objects in a specific Database

SELECT * FROM INFORMATION_SCHEMA.[COLUMNS] c
WHERE c.COLUMN_NAME ='@COLUMN-NAME'

See who is connected to SQL Database

SELECT SPID,STATUS,PROGRAM_NAME,LOGINAME=RTRIM(LOGINAME),
HOSTNAME,CMD
FROM  MASTER.DBO.SYSPROCESSES
WHERE DB_NAME(DBID) = '<DATABASE NAME>' 
AND DBID != 0