Recent content by teckiejon

Hi, I am looking for any inbuilt features of Windows 2K3 server that enforce bandwidth limitiations on specific NICs, the servers in question are part of an AD domain so group policies would be a possibility. Currently I have had to limit the port speeds to 100MB but this is not sufficient...

Thankyou Tsuji I shall take on board what you have said and let you know the final result once it has all been tidied up

I am currently working in an environment where I am managing 30 servers which are all in workgroups. As this new project kicks off I am being asked with increasing frequency to create accounts on these servers. I decided that the best way to do this would be to automate the process using VB...

Thankyou very much Worked a treat!

I have written a script that uses Xcacls to add permissions to some shared folders that I have created on the network. At present xcacls is called in the following bit of code: Set WshShell = WScript.CreateObject("WScript.Shell") wshshell.run "cmd.exe" WshShell.SendKeys "xcacls " & strdrv...

What i have done in the past is remove the myItem.display then it won't be visible! Then instead of 'WSHShell.SendKeys ("%(s)")' Use myitem.send hope this helps!

I had a similar problem when I wrote a script to create user accounts and the way round it for me was to objUser.SetInfo Then objUser.AccountDisabled = FALSE Then objUser.SetInfo again Hope this helps

Thats brilliant thankyou very much for your time

Thankyou very much for your speedy response it has saved a lot of head scratching at my end Further down the script I have other similarly written lines such as Dim oRecipient As CDOEXM.IMailRecipient Will this also apply for them too? Many thanks for your help

I am trying to declare some variables at the start of a script but the code keeps erroring. For example the first line of code reads: Dim StrData As String Yet the script errors after AS (line1 char15) saying 'Expected End Of Statement' Can anyone advise?

This should work it creates a new reg key and gives it the relevant detail: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Wallpaper","C:\test.bmp","REG_SZ"...

Oh the 0 value can be changed to 1 or 2 depending on whether you want your background to be tiled, stretched etc....

This script adds registry entries pointing to a stored bmp on the machines hard drive, it changes the logon screen background and the desktop background, hope this is useful to you: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite"HKEY_USERS\.DEFAULT\Control...

I have now successfully installed the exchange admin tools on my pc including the cdoexm.dll but when I run the code above I get the following error Line: 209 Char: 5 Error: There is no such object on the server Facility: LDAP Provider ID No: 80072030 Microsoft CDO for Echange Management...

I have used this script before to uninstall software from remote machines, in this example the VPN client. Obviously this script is dependant on your machines being able to run WMI script strComputer = InputBox("Enter computer name:") Set objWMIService = GetObject("winmgmts:" &...