In a corporate environment its not usual to have to pass through a proxy server to get out to the net, this can often be a challenge when building apps/scripts etc. However – to make things slightly less complicated, you can use the VB snippet below to pass the details of the currently logged on user to the proxy.

You can also adjust the code to pass username and password if you wish, however best make it secure!

SophosI was recently approached by one of my colleagues with a dilemma, he had to go round our 30+ servers and stop and start a couple of Sophos’s Windows Services.

Now, as you can imagine this was starting to look like a fairly large and mundane task. Which is when I came up with this little VBScript.

Using this script below, you can pass it a text file with a list of machines you would like it to perform the process on.

In the script below you will see a “” change this to your text file containing machines, full file path.

The format of the text file is one machine per line.

This script is by no means ‘bullet proof’ and could be enhanced easily with little time and effort. It could also be modfied to stopstart any services you like.

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("", ForReading)

Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.Readline

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

	Set colServiceList = objWMIService.ExecQuery _
	    ("Select * from Win32_Service where Name='Sophos Message Router'")

	For Each objService in colServiceList
	    errReturn = objService.StopService()
	    WScript.Echo errReturn

	Wscript.Sleep 20000

	Set colServiceList = objWMIService.ExecQuery _
	    ("Select * from Win32_Service where Name='Sophos Message Router'")

	For Each objService in colServiceList
	    errReturn = objService.StartService()
	    WScript.Echo errReturn


Active directory can be a bit of a beast if not managed and maintained correctly. Using this code in a .vbs file you can output all currently disabled accounts.

You may want to expand this by using the file system object to output to a file?

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    ";(objectCategory=User)" & _
Set objRecordSet = objCommand.Execute
intCounter = 0
Do Until objRecordset.EOF

Here’s my latest application.. A handy little app to send SMS messages to any mobile number via an activesync connected mobile phone! No third parties involved. No messy sms2email facilities.. This simply uses RAPI controls and WM6 SDK API’s to send a message to an active sync connected device, and the fire it off to the specified recipient.


  • Quick and easy way to send txt messages without having to pick up your phone
  • Ability to storesend template messages on a schedule or at the click of a mouse button

Version History – First BETA released, no known bugs, many updates to come! – Second BETA released, added many GUI updates, added Modaco AppToDate support. – Third BETA released, this one’s public! You can download the desktop setup program here, once downloaded click File > Install on Device to install the device side application.

You can download the desktop setup program here

If you are having problems with this application please post a message in the forum

Hello, Just a quick post to inform you all that my simple reset app for Windows Mobile 6 has now been repackaged into it’s own CAB file and now supports Modaco’s AppToDate

You can download RSReset from the downloads section, and read more about it on it’s project page

If you don’t yet have AppToDate on your mobile device you can download it from Modaco


Page 1 of 212