VBScript and Powershell Scripts

Powershell OU Management

noreply@blogger.com (Murugappan Chokkalingam) — Wed, 28 Sep 2011 17:42:00 +0000

I like this post hence pasting it as is from the site
http://dmitrysotnikov.wordpress.com/2007/05/04/ou-management-with-powershell/

Get the list of OUs:

PS C:> Get-QADObject -Type OrganizationalUnit  

Name               Type               DN
----               ----               --
Domain Controllers organizationalUnit OU=Domain Controllers,DC=ps64,DC=local
Microsoft Excha... organizationalUnit OU=Microsoft Exchange Security Groups,DC=ps64,DC=local

Create New OU in domain root:
PS C:\> New-QADObject -Type organizationalUnit -Name TestOU -ParentContainer ps64.local/

Name               Type               DN
----               ----               --
TestOU             organizationalUnit OU=TestOU,DC=ps64,DC=local

Create 5 test users in the new OU:
PS C:> 1..5 | ForEach { New-QADUser -ParentContainer ps64.local/TestOU -Name ("TestUser" + $_)}

Name               Type               DN
----               ----               --
TestUser1          user               CN=TestUser1,OU=TestOU,DC=ps64,DC=local
TestUser2          user               CN=TestUser2,OU=TestOU,DC=ps64,DC=local
TestUser3          user               CN=TestUser3,OU=TestOU,DC=ps64,DC=local
TestUser4          user               CN=TestUser4,OU=TestOU,DC=ps64,DC=local
TestUser5          user               CN=TestUser5,OU=TestOU,DC=ps64,DC=local

Get a list of users in an OU (and all nested OUs):
PS C:\> Get-QADUser -SearchRoot ps64.local/TestOU

Name               Type               DN
----               ----               --
TestUser1          user               CN=TestUser1,OU=TestOU,DC=ps64,DC=local
TestUser2          user               CN=TestUser2,OU=TestOU,DC=ps64,DC=local
TestUser3          user               CN=TestUser3,OU=TestOU,DC=ps64,DC=local
TestUser4          user               CN=TestUser4,OU=TestOU,DC=ps64,DC=local
TestUser5          user               CN=TestUser5,OU=TestOU,DC=ps64,DC=local

Get only users placed directly in the OU (and not in sub-OUs):
PS C:\> Get-QADUser -SearchRoot ps64.local/TestOU -SearchScope OneLevel

Name               Type               DN
----               ----               --
TestUser1          user               CN=TestUser1,OU=TestOU,DC=ps64,DC=local
TestUser2          user               CN=TestUser2,OU=TestOU,DC=ps64,DC=local
TestUser3          user               CN=TestUser3,OU=TestOU,DC=ps64,DC=local
TestUser4          user               CN=TestUser4,OU=TestOU,DC=ps64,DC=local
TestUser5          user               CN=TestUser5,OU=TestOU,DC=ps64,DC=local

Modify all users from an OU:
PS C:\> Get-QADUser -SearchRoot ps64.local/TestOU | Set-QADUser -City TestCity
PS C:> Get-QADUser -SearchRoot ps64.local/TestOU | Format-Table Name, City

Name                                                City
----                                                ----
TestUser1                                           TestCity
TestUser2                                           TestCity
TestUser3                                           TestCity
TestUser4                                           TestCity
TestUser5                                           TestCity

Get statistics on the number of objects in each OU:
PS C:\> Get-QADObject -Type organizationalUnit | foreach { Write-Host $_.Name: (Get-QADObject -SearchRoot $_.DN).Count}
Domain Controllers : 5
Microsoft Exchange Security Groups : 6
TestOU : 6

Get the list of AD objects by OU:

PS C:\> Get-QADObject -Type organizationalUnit | foreach { Write-Host ([char]10) $_.Name ([char]10); Get-QADObject -SearchRoot $_.DN }

Domain Controllers  

Name               Type               DN
----               ----               --
Domain Controllers organizationalUnit OU=Domain Controllers,DC=ps64,DC=local
SPB9880            computer           CN=SPB9880,OU=Domain Controllers,DC=ps64,DC=local
RID Set            rIDSet             CN=RID Set,CN=SPB9880,OU=Domain Controllers,DC=ps64,DC=local
NTFRS Subscript... nTFRSSubscriptions CN=NTFRS Subscriptions,CN=SPB9880,OU=Domain Controllers,DC=ps64,DC=local
Domain System V... nTFRSSubscriber    CN=Domain System Volume (SYSVOL share),CN=NTFRS Subscriptions,CN=SPB9880,OU=Do...  

Microsoft Exchange Security Groups  

Microsoft Excha... organizationalUnit OU=Microsoft Exchange Security Groups,DC=ps64,DC=local
Exchange Servers   group              CN=Exchange Servers,OU=Microsoft Exchange Security Groups,DC=ps64,DC=local
Exchange Organi... group              CN=Exchange Organization Administrators,OU=Microsoft Exchange Security Groups,...
Exchange Recipi... group              CN=Exchange Recipient Administrators,OU=Microsoft Exchange Security Groups,DC=...
Exchange View-O... group              CN=Exchange View-Only Administrators,OU=Microsoft Exchange Security Groups,DC=...
ExchangeLegacyI... group              CN=ExchangeLegacyInterop,OU=Microsoft Exchange Security Groups,DC=ps64,DC=local  

TestOU  

TestOU             organizationalUnit OU=TestOU,DC=ps64,DC=local
TestUser1          user               CN=TestUser1,OU=TestOU,DC=ps64,DC=local
TestUser2          user               CN=TestUser2,OU=TestOU,DC=ps64,DC=local
TestUser3          user               CN=TestUser3,OU=TestOU,DC=ps64,DC=local
TestUser4          user               CN=TestUser4,OU=TestOU,DC=ps64,DC=local
TestUser5          user               CN=TestUser5,OU=TestOU,DC

Powershell - List All Folders and Subfolders

noreply@blogger.com (Murugappan Chokkalingam) — Thu, 07 Jul 2011 22:42:00 +0000

dir -recurse | Where-Object { $_.PSIsContainer } | ForEach-Object { $_.FullName }

First, you list everything from your current location. To filter out only folders, we then filter for PSIsContainer, a property that is always true for folders. Finally, we output each folders' full path.

From: http://powershell.com/cs/blogs/tips/archive/2009/07/22/list-all-folders-and-subfolders.aspx

Powershell to get ACLs for folders and subfolders

noreply@blogger.com (Murugappan Chokkalingam) — Thu, 07 Jul 2011 08:40:00 +0000

I have been searching this for long time. Now i have found out

dir -recurse | Where-Object { $_.PSIsContainer } | Get-Acl

dir -recurse - Is to get all folders and subfolders
$_.PSIsContainer - Is to check whether the object is a directory or a file
Get-ACL - to get ACLs for folders

Dsquery to find a email address in AD

noreply@blogger.com (Murugappan Chokkalingam) — Tue, 14 Jun 2011 10:30:00 +0000

dsquery * domainroot -filter "((proxyaddresses=*domain.com))" -scope subtree -attr displayname

* - to Find any object class user,group etc

domainroot - Where to search

-filter - What to search

-scope - At what level base or subtree it has to search

-attr - what attributes needs to be displayed with the filtered results

Enumerate members of a group directly from Active directory custom search

noreply@blogger.com (Murugappan Chokkalingam) — Mon, 13 Jun 2011 05:04:00 +0000

This command will be useful particulerly if you are migrating large number of users to an other exchange server. Add all the members to migrate to this group and enumerate using the below command from dsa.msc, add Homemdb members column. There are other ways (Scripting, powershell etc) but i find this easier.

(ObjectClass=User)(

ObjectCategory=Person)(memberOf=CN=TestGroup,OU=Test-Service Acct,dc=,dc=,dc=com)

Dont forget to fill in the DC names :)

Powershell - Get windows service status on a remote computer

noreply@blogger.com (Murugappan Chokkalingam) — Sat, 16 Oct 2010 19:11:00 +0000

Command to get the remote server service status through powershell is listed below

Get-service -computername "Servername" -displayname "servicename"

Powershell to get server uptime

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 15 Oct 2010 19:33:00 +0000

I dont remember from which site i got the below script but it is very useful in my day to day admin life

$wmi=Get-WmiObject -class Win32_OperatingSystem -computer "Computername"
$LBTime=$wmi.ConvertToDateTime($wmi.Lastbootuptime)
[TimeSpan]$uptime=New-TimeSpan $LBTime $(get-date)
Write-host $server “Uptime: ” $uptime.days “Days” $uptime.hours “Hours” $uptime.minutes “Minutes” $uptime.seconds “Seconds”

Get-WmiObject -class Win32_OperatingSystem
This will invoke the Operating System wmi object

ConvertToDateTime
Will convert the output to human readable form

[TimeSpan]$uptime=New-TimeSpan $LBTime $(get-date)
This will compare the output time with the current time and store the result to the string as object

Powershell - Search a string inside a text file

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 15 Oct 2010 19:26:00 +0000

Get-Content cmd let will allow reading content from a text file and the following piped cmdlet can be used to search a string inside the text file given as input

(Get-Content "Full path of the text file") | ? {$_ -match 'searchstring''}

Uninstalling Previous Versions of PowerShell

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 15 Oct 2010 19:10:00 +0000

Uninstalling Previous Versions of PowerShell

PowerShell v1 RTM shipped as updates to the OS. Therefore, it will show up only in the updates section. To look for previous versions, do the following:

On Windows XP/Server 2003:

· Go to Add/Remove Programs

· Select Show Updates

· Look for any of the following KB numbers which indicate earlier versions of PowerShell

o KB926139 – Windows PowerShell v1.0 RTM – English Language Version

o KB926140 – Windows PowerShell v1.0 RTM – Localized Installation Package

o KB926141 – Windows PowerShell v1.0 RTM – MUI pack

o KB925228 – Windows PowerShell v1.0 RC2

· Versions of V1 prior to RC2 are MSI based installations and they will appear as Windows PowerShell in the programs list

· Uninstall the previous version that's installed

On Windows Vista:

· Go to Programs and Features

· Click on View Installed Updates

· Look for any of the following KB numbers which indicate earlier versions of PowerShell

o KB928439 – Windows PowerShell 1.0 RTM

o KB923569 – Windows PowerShell 1.0 RC2

· Version of V1 prior to RC2 are MSI based installations and they will appear as Windows PowerShell in the installed programs list

· Uninstall the previous version that's installed

On Windows Server 2008:

· Launch Server Manager

· Go to Features

· Click on Uninstall Features. This brings up a list of installed features to choose from

· Select Windows PowerShell and uninstall

Article from: http://blogs.msdn.com/b/powershell/archive/2007/12/17/installing-windows-powershell-v2-ctp.aspx

Powershell - Get Powershell version

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 24 Sep 2010 06:18:00 +0000

To get the Powershell version Get-Host cmdlet is used. The following example will show this

Get-host | Select version

Windows PowerShell 2.0 Administrator's Pocket Consultant

Powershell - Retrieve hotfixes installed on a local or remote computer

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 24 Sep 2010 06:15:00 +0000

To Retrieve hotfix in a computer on a powershell 2.0 version

Get-Hotfix -Description security* | Format-Table Hotfixid,InstalledOn

Windows PowerShell 2.0 Administrator's Pocket Consultant

Powershell - Find top 10 large files in a disk

noreply@blogger.com (Murugappan Chokkalingam) — Thu, 23 Sep 2010 10:43:00 +0000

Powershell make it easy to list down the files in a drive by size through a single line command. Buying a third party software can be avoided by these simple commands. The command is

Get-ChildItem c:\ -recurse | sort -property length -desc | select -first 10 | format-table Name, Length -autosize

Get-ChildItem

This command will list down the members of the input [ here it is C drive]. Recurse option will search all the folder under the drive mentioned

Sort -property length -desc

Sort will sort the results with the input provided by Get-Childitem command, it sorts by Size here and desc will tell the sort command to list items in descending order.

Select -first 10

This command will select the first 10 items, if you remove this command it will display all results.

Format-table Name, Length -autosize

Format-table command will format the results and display it as a table and the parameters will display only Name and Length column of the result. -autosize will tell the command to remove unwanted size and display it within the screen limits.

Windows PowerShell 2.0

Powershell - Setting default printer in the Desktop

noreply@blogger.com (Murugappan Chokkalingam) — Wed, 22 Sep 2010 01:06:00 +0000

In Windows 7 setting a default printer through powershell cmdlets is a easier task when compared to VBscript. It can achieved through fewer commands. The commands and their description are given below

CMDLETS

$Printer = Get-WmiObject win32_printer | where {$_.name -match "XPS"}

$Printer.SetDefaultPrinter()

"XPS" in the command can be replaced by your printer name , unique word which will exactly point your printer can be mentioned within the quotations

win32_Printer

This WMI class will hold all the printer information in your computer

SetDefaultPrinter()

This method inside Win32_Printer will set the selected printer as a default printer

Windows PowerShell 2.0 Administrator's Pocket Consultant

Powershell - How to check service packs on computers

noreply@blogger.com (Murugappan Chokkalingam) — Tue, 21 Sep 2010 06:27:00 +0000

Service pack of the operating system can found by calling the wmi object win32_operatingsystem. Following commands will enumerate the service pack
$SP = gwmi win32_operatingsystem
$SP.serivepackmajoreversion

Install and Configure Windows PowerShell

noreply@blogger.com (Murugappan Chokkalingam) — Mon, 20 Sep 2010 03:17:00 +0000

1. Install the Windows Management Framework

Download and install the Windows Management Framework. Choose the package that includes Windows PowerShell v2 and WinRM 2.0, and that applies to your operating system, system architecture, and language.
Note If your local computer is protected by a Microsoft Internet Security and Acceleration (ISA) server, see Windows PowerShell: FAQs for Administrators.

2. Verify that Windows PowerShell can run scripts

Click Start > All Programs > Accessories > Windows PowerShell.
Do one of the following to open Windows PowerShell:
- If you're running Windows Vista, Windows 7, or Windows Server 2008 R2, right-click Windows PowerShell and select Run as administrator. If you get a user account control prompt that asks if you would like to continue, respond Continue.
- If you're running Windows XP or Windows Server 2003, click Windows PowerShell.
Run the following command:
Get-ExecutionPolicy
If the value returned is anything other than RemoteSigned, you need to change the value to RemoteSigned.
Note When you set the script execution policy to RemoteSigned, you can only run scripts that you create on your computer or scripts that are signed by a trusted source.

Enable scripts to run in Windows PowerShell

In Windows PowerShell session you just opened as an administrator, run the following command:

Set-ExecutionPolicy RemoteSigned

The term is not recognized as a cmdlet, function, operable program, or script file. Verify the term and try again.

noreply@blogger.com (Murugappan Chokkalingam) — Thu, 16 Sep 2010 08:32:00 +0000

You tried to run a command in the current directory but forgot to prepend it with .\
Write the script in notepad , click save as and type "name.ps1"
In the powershell command prompt type PS > .\name.ps1
or
in Run prompt

VBscript - User Cannot Change Password Option

noreply@blogger.com (Murugappan Chokkalingam) — Tue, 30 Oct 2007 15:01:00 +0000

Disabling the User Cannot Change Password Option

Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = &H6
Const CHANGE_PASSWORD_GUID = _
"{ab721a53-1e2f-11d0-9819-00aa0040529b}"

Set objUser = GetObject _
("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")
Set objSD = objUser.Get("nTSecurityDescriptor")
Set objDACL = objSD.DiscretionaryAcl
arrTrustees = Array("nt authority\self", "everyone")

For Each strTrustee In arrTrustees
For Each ace In objDACL
If(LCase(ace.Trustee) = strTrustee) Then
If((ace.AceType = ADS_ACETYPE_ACCESS_DENIED_OBJECT) And _
(LCase(ace.ObjectType) = CHANGE_PASSWORD_GUID)) Then
objDACL.RemoveAce ace
End If
End If
Next
Next

objUser.Put "nTSecurityDescriptor", objSD
objUser.SetInfo

VBScript - List network adapters including wireless adapters

noreply@blogger.com (Murugappan Chokkalingam) — Wed, 17 Oct 2007 16:02:00 +0000

This script will display all the network adapters including wireless adapters in your workstation.

'Script Start

'Call WMI service win32_networkadapter
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery ("Select * from in32_NetworkAdapter",,48)

'Display all objects.
For Each objItem in colItems

WScript.Echo "Name: " & objItem.Name
WScript.Echo "Availability: " & objItem.Availability

Next
WScript.Quit
'Script End

VBScript - String Arrays

noreply@blogger.com (Murugappan Chokkalingam) — Fri, 12 Oct 2007 14:49:00 +0000

A small script to explain arrays. While using string array don't forget double quotes.

'Script start

Strservers = array("EX1","EX2","EX3")
For each str in strservers 'To get each object in an array
wscript.echo str
Next

'Script end

Update E-Mail Addresses Based on Recipient Policy - msexchpoliciesexcluded checkbox

noreply@blogger.com (Murugappan Chokkalingam) — Wed, 10 Oct 2007 12:09:00 +0000

The Recipient Update Service does not update e-mail addresses automatically when the Automatically update e-mail addresses based on recipient policy check box is not selected. That attribute stops the Recipient Update Service from running against the object when this check box is not selected.
The Automatically update e-mail addresses based on recipient policy check box refers to the value of the attribute msExchPoliciesExcluded on the object. If this attribute is not set, it indicates that this check box is selected.
If this value is set to {26491CFC-9E50-4857-861B-0CB8DF22B5D7}, it indicates that the checkbox is not selected.

The Script finds whether the AD object has "The Automatically update e-mail addresses based on recipient policy" checkbox enabled.

'Script Start

Set oConfig = GetObject("LDAP://You LDAP DOMAIN")
Set oConn = CreateObject("ADODB.Connection")
oConn.Provider = "ADSDSOObject"
oConn.Open ""
strQuery = "<" & oConfig.adspath & ">;(&(objectCategory=person)(objectClass=User)(homemdb=*)(!(msExchPoliciesExcluded={26491CFC-9E50-4857-861B-0CB8DF22B5D7})));name,adspath;subtree"
Set oRS = oConn.Execute(strQuery)
While Not oRS.EOF
user = oRS.Fields("name")
'user = User & " " & oRS.Fields("adspath")
wscript.echo User
User = " "
oRS.MoveNext
Wend

'Script end

Vbscript to create Mail enabled Universal groups or distribution lists

noreply@blogger.com (Murugappan Chokkalingam) — Thu, 04 Oct 2007 17:37:00 +0000

This script creates Mail enabled Universal groups or distribution lists by reading input from a CSV file.
This script is also written to update group owners name and also enables the checkbox "Manager can update member list"

Sample INPUT
universal,Grpname,This is a test grp,Ownername,OU1,OU2,OU3
'Script Start
Const ADS_GROUP_TYPE_GLOBAL = &H2
Const ADS_GROUP_TYPE_LOCAL = &H4
Const ADS_GROUP_TYPE_UNIVERSAL = &H8
Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &h5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &h1
Const ADS_RIGHT_DS_WRITE_PROP = &h20
Const MEMBER_ATTRIBUTE = "{bf9679c0-0de6-11d0-a285-00aa003049e2}"

Set objConnection2 = CreateObject("ADODB.Connection")
Set objCommand2 = CreateObject("ADODB.Command")
objConnection2.Provider = "ADsDSOObject"
objConnection2.Open "Active Directory Provider"
Set objCommand2.ActiveConnection = objConnection2

Set ObjFSO = createobject("Scripting.FilesystemObject")
Set ObjTextfile = ObjFSO.Opentextfile("C:\dlinput.csv")

Do Until ObjTextfile.AtEndofStream
StrGet = ObjTextfile.ReadLine
StrInput = split(strGet,",")
StrLdappath = "LDAP:// YOUR LDAP PATH "
'wscript.echo strLdappath & " " & strInput(1)
Set objOU = GetObject(strLdappath)

Select Case StrInput(0)
Case "universal"
StrGrpName = strInput(1)
Set objGroup = objOU.Create("Group", "cn=" & strGrpName )
objGroup.groupType = ADS_GROUP_TYPE_UNIVERSAL
objGroup.SetInfo
case Else
StrGrpName = strInput(1)
Set objGroup = objOU.Create("Group", "cn=" & strGrpName )
objGroup.groupType = ADS_GROUP_TYPE_UNIVERSAL
objGroup.SetInfo

End Select

objGroup.sAMAccountName = Right (strInput(1),Len(StrInput(1))-1)
objGroup.SetInfo
objGroup.description = strInput(2)
objGroup.SetInfo
'wscript.echo strGrpName & "@" & strInput(6) & ".yourdomain.com"
objGroup.mail = strGrpName & "@" & strInput(6) & ".yourdomain.com"
objGroup.MailEnable
objGroup.Put "ProxyAddresses", "SMTP:" + "##-" + strInput(1) + "@" + strInput(6) + ".yourdomain.com"
objGroup.SetInfo

'wscript.echo strInput(3)
objCommand2.CommandText ="SELECT Userprincipalname,adspath,distinguishedName FROM 'LDAP:\\Your LDAP PATH' WHERE objectCategory='User' " & "AND CN='" & strInput(3) & "'"
Set objRecordSet2 = objCommand2.Execute
objRecordSet2.MoveFirst
'wscript.echo objRecordSet2.Fields("Adspath").Value
If Not objRecordSet2.EOF then
objGroup.Put "managedby" , Trim(Replace(objRecordSet2.Fields("adspath").Value,"LDAP://"," "))
objGroup.SetInfo
set objSD = objGroup.Get("ntSecurityDescriptor")
set objDACL = objSD.DiscretionaryAcl
set objACE = CreateObject("AccessControlEntry")
objACE.Trustee = objRecordSet2.Fields("UserprincipalName").Value
objACE.AccessMask = ADS_RIGHT_DS_WRITE_PROP
objACE.AceFlags = 0
objACE.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE.ObjectType = MEMBER_ATTRIBUTE
objDACL.AddAce objACE
objSD.DiscretionaryAcl = objDACL
objGroup.Put "ntSecurityDescriptor", objSD
objGroup.SetInfo
End If

wscript.echo "Group named " & strinput(1) & " is created"
Loop

Wscript.echo "***** Script End *****"
'Script end

Queries on scripts. Open http://orangescripts.blogspot.com and post it

VBScript - Search and delete MP3 files inside ZIP

noreply@blogger.com (Murugappan Chokkalingam) — Wed, 03 Oct 2007 10:03:00 +0000

'Script start

strDir = "D:\cvc4sp4"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

Set objDir = FSO.GetFolder(strDir)
getInfo(objDir)
Sub getInfo(pCurrentDir)
For Each aItem In pCurrentDir.Files
If LCase(Right(Cstr(aItem.Name), 3)) = "zip" Then
wscript.echo aItem.path
objshell.run "c:\7za d " & aItem.path & " *.mp3" 'Download 7za.exe from internet and place the exe in the specified path. Its free download
End If
If LCase(Right(Cstr(aItem.Name), 3)) = "mp3" Then
wscript.echo aItem.path
aItem.delete(True)
End If
Next
For Each aItem In pCurrentDir.SubFolders
'wscript.Echo aItem.Name & " passing recursively"
getInfo(aItem)
Next
End Sub

'Script End

Queries on customization. Open http://Orangescripts.blogspot.com and post it.

VBScript - Printer - Logging when printer is used

noreply@blogger.com (Murugappan Chokkalingam) — Mon, 01 Oct 2007 20:13:00 +0000

'Script start

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where LogFile='System' and eventcode=10")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Events.CSV")
For Each objEvent in colEvents
strTimeWritten = objEvent.TimeWritten
dtmTimeWritten = CDate(Mid(strTimeWritten, 5, 2) & "/" & _
Mid(strTimeWritten, 7, 2) & "/" & Left(strTimeWritten, 4) _
& " " & Mid (strTimeWritten, 9, 2) & ":" & _
Mid(strTimeWritten, 11, 2) & ":" & Mid(strTimeWritten, 13, 2))
dtmDate = FormatDateTime(dtmTimeWritten, vbShortDate)
dtmTime = FormatDateTime(dtmTimeWritten, vbLongTime)
strDescription = objEvent.Message
strEvent = dtmTime & "," & trim(strDescription)
objFile.WriteLine strEvent
Next
objFile.Close

'Script End

Queries on scripts ? . Open http://orangescripts.blogspot.com and post it.

VBScript - Outlook - Send message from text file

noreply@blogger.com (Murugappan Chokkalingam) — Mon, 01 Oct 2007 15:28:00 +0000

'Script start

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("C:\Documents and Settings\murugan1\Desktop\mailsg.txt", ForReading)
strNextLine = objTextFile.Readall
wscript.echo StrNextLine
With objOutlookMsg
.To = InputBox("Enter To field")
.Subject = InputBox("Enter Subject")
.Body = strNextLine
.Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing

'Script End

Queries on customization. Open Orangescripts.blogspot.com and post it .

VBScript - Internet Explorer - Proxy settings

noreply@blogger.com (Murugappan Chokkalingam) — Mon, 01 Oct 2007 12:43:00 +0000

'Script Start

On Error Resume Next
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Proxy")

Const HKEY_CURRENT_USER = &H80000001
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
dim dWord
objRegistry.GetDWORDValue HKEY_CURRENT_USER , strKeyPath , strValueName ,dWord
if dWord = 1 then
dwValue = 0
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
else
For Each objItem in colItems
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
objItem.SetProxySetting "HOME","8080" 'Change parameters here
Next
end if

'Script End
Got from website dev.thatsit.net.au
How to execute a VBScript
Please post suggestions to improve this blog.
You can reach me at itmurugappan@hotmail.com