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!

Tagged with:  

I was recently approached by one of my colleagues with a dilema, 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 stop\start 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 & "\root\cimv2")    	Set colServiceList = objWMIService.ExecQuery _  	    ("Select * from Win32_Service where Name='Sophos Message Router'")    	For Each objService in colServiceList  	    errReturn = objService.StopService()  	    WScript.Echo errReturn  	Next    	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  	Next    Loop
Tagged with:  

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?

  Const ADS_UF_ACCOUNTDISABLE = 2     Set objConnection = CreateObject("ADODB.Connection")  objConnection.Open "Provider=ADsDSOObject;"  Set objCommand = CreateObject("ADODB.Command")  objCommand.ActiveConnection = objConnection  objCommand.CommandText = _      ";(objectCategory=User)" & _          ";userAccountControl,distinguishedName;subtree"    Set objRecordSet = objCommand.Execute     intCounter = 0  Do Until objRecordset.EOF  
Tagged with:  

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

Tagged with:  

Really Simple Reset Repackaged

On January 3, 2009, in Blog, by

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


Tagged with:  
Page 1 of 212

Looking for something?

Use the form below to search the site:

Still not finding what you're looking for? Drop a comment on a post or contact us so we can take care of it!