I created a VBS file:
Dim string
Dim cn
Dim rs

string = "Provider=IBMDADB2.1;Hostname=rn-syd-test-04;User ID=sam;password=hebmuller;Data Source=testing"
msgbox string

Set cn = Server.CreateObject("ADODB.Connection")

cn.Open string

Set rs = cn.Execute("create table temp(cl int)")

cn.close

set cn=nothing
set rs=nothing

but actually an error msg came out and said" object required 'Server'"
the error points to the line " Set cn = Server.CreateObject("ADODB.Connection")"

can anyone give some idea about how to fix it? thanx:)

When you are writing VBS, you do not need to access server object. This is an object accessible only to ASP pages.

You can just use

CreateObject("ADODB.Connection")