Thanx for the great code and examples.

I only made one change and that was to add the following line to the code

WHEN '6.3' THEN 'Windows Server 2012 R2'

Thanx Andy, works 100%

Hi Brian,

The guest is still there and the permissions are still the same as all the other servers. What I did check was the public role. It is still there...

Thanx for the info. It is indeed because of the remote servers.

Hi Andy,

Thanx for the advice. This is what I am currently doing.

I 'dim' the following objects Database, TransactionLog, FileGroups, FileGroup, DBFile & LogFile as SQLDMO objects.

I 'Set' the following objects:...

I know that with new databases you use the .ADD method. Is there a .ALTER method or something simmilar?

Hi,

I found the answer to the question

You dim a sqldmo.sqlserver2 and dim a sqldmo.registry2. Only then can you use registry2.backupdirectory.

Regards

Hi Andy

You're a genius. Thanx for the advice. It works like a charm.

Regards

Gert

Thanx for the reply Antares686, but it still don't work.

Here is the code as it is at the moment:

Private Sub ChangePsw(ByVal CurrUser As String, ByVal NewPassword As String)

On Error GoTo...

After school, I studied 4 years InformationTechnology. With this I got a job as a computer technician, fixing PC's. I was fixing PC's for about 5 years, before the oppertunity...

I have no experience with VBScript, but I think this is the way to go in VBScript.

Dim oApp

Dim oServer

Dim oDatabase

Dim oNames

Dim oName

Set oApp = CreateObject("SQLDMO.Application")

Set oNames = oApp.ListAvailableSQLServers()

For Each oName...

This is my method of doing it.

Private Sub GetServers()

Dim NameList As SQLDMO.NameList

Dim X As Long

Set NameList = SQL.ListAvailableSQLServers

For X = 1 To NameList.Count

cbServers.AddItem NameList.Item(X)

Next

End Sub

cbServers is my ComboBox in VB6

Hope...

This is my method of doing it.

Private Sub GetServers()

Dim NameList As SQLDMO.NameList

Dim X As Long

Set NameList = SQL.ListAvailableSQLServers

For X = 1 To NameList.Count

cbServers.AddItem NameList.Item(X)

Next

End Sub

cbServers is...

Thanx, I will have a look and see if I can use it.

Hi Steve,

The reason for not using EM is time. It takes some time to go through all the databases using EM. If there is a script option, I could use...