How to use ADO to read CSV files

On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
TxtFile = "C:\MyDBFolder\"
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & TxtFile & ";Extended Properties=""text;HDR=YES;FMT=Delimited"""
objRecordset.Open "SELECT * FROM CSVFile.csv",objConnection, adOpenStatic, adLockOptimistic, adCmdText
Do Until objRecordset.EOF
    Wscript.Echo "FieldName_1: " & objRecordset.Fields.Item("FieldValue_1")
    Wscript.Echo "FieldName_2: " & objRecordset.Fields.Item("FieldValue_2")
    Wscript.Echo FieldName_3: " & objRecordset.Fields.Item("FieldName_3")  
    objRecordset.MoveNext
Loop 

How to copy folder using WMI

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = objWMIService.ExecQuery( _
    "Select * from Win32_Directory where Name = 'c:\\OldFolder'")

For Each objFolder in colFolders
    errResults  = objFolder.Copy("D:\OldFolder")
Next 

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