[VBS] Datenbanken löschen

[ItzMyHack]

Hallo, ich soll mit VBS ein Skript erstellen welches Datenbanken löscht.
Bisher habe ich folgende 2 Codes:

 Spoiler

String_Datenbanken = Rs.GetString(adClipString,,,".")
Db = split(String_Datenbanken,".")
anzahl_in_Array = Ubound(Db)

Dieser Code ist auf's löschen einer DB abgestimmt.

 Spoiler

counter = 0
Do while counter <= anzahl_in_Array
if Db(counter) <> "master" AND Db(counter) <> "model" and Db(counter) <> "msdb" and Db(counter) <> "tempdb" and Db(counter) <> "" Then
query = DROP DATABASE (counter)
else
msgbox "Die Datenbank " & Db(counter) & " kann NICHT geloescht werden!"
end if

counter = counter + 1
loop

Dieser Code ist darauf abgestimmt bestimmte Datenbanken nicht zu löschen, wie halt schon drin steht die 'master' Datenbank beispielsweise nicht.

Ich möchte nun den ersten Code in den zweiten implementieren, jedoch so, dass alle Datenbanken ausser halt die da oben angegebenen gelöscht werden.

Kann mir vllt. jemand weiter helfen? Sitze bereits seit 5 Stunden daran ohne Aussicht auf eine Lösung..

- Problem gelöst -