获取ip

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration ")

DIP = ""

dim x

dim IPAddr(255)

x = 0

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

If Not (IPConfig.IPAddress(i)="0.0.0.0") Then

IPAddr(x) = IPConfig.IPAddress(i)

x = x + 1

End if

Next

end if

next

' msgbox "First IP is: " & IPAddr(0)

' if more IP's exist, they will be in IPAddr(1), IPAddr(2) and so on

'Session.Property("EDIT_WCFIP")=IPAddr(0)

Session.Property("ODBC_RES_PROP")=IPAddr(0)

验证连接：

Session.Property("validate_sqlconn") = "1" '先让验证通过

Session.Property("TXT_SQL_ERR") = "" '清空验证信息

Dim objConnection

Set objConnection = CreateObject("ADODB.CONNECTION")

dim connStrParam

connStrParam = Session.Property("EDIT_CONNSTR")

Dim connStr

connStr = "provider=sqloledb;Initial Catalog=master;" & connStrParam

on error resume next

objConnection.Open connStr

If Err.Number <> 0 Then

Session.Property("validate_sqlconn") = "0"

Session.Property("TXT_SQL_ERR") = "连接失败！"& Err.Description

Err.Clear

ELSE

If (objConnection.State <> 1) Then

Session.Property("validate_sqlconn") = "0"

Session.Property("TXT_SQL_ERR") = "连接失败！未知错误。"

else

dim overwrite

if (Session.Property("CHK_DB_OVERWRITE") = "CheckBox") then

Session.Property("CHK_Exist_Exam") = "100"

Session.Property("CHK_Exist_Training") = "100"

Session.Property("CHK_Exist_Structure") = "100"

Session.Property("CHK_Exist_Resource") = "100"

'msgbox "123"

else

'msgbox "1234"

Dim objRecordSet

Set objRecordSet = CreateObject("ADODB.RECORDSET")

Dim objCommand

Set objCommand = CreateObject("ADODB.COMMAND")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = "select * from sysdatabases where name='" & Session.Property("DB_Name_Exam") & "'"

objRecordSet.CursorLocation = 3

objRecordSet.Open objCommand

dim count1

count1 = objRecordSet.RecordCount

if (count1 > 0) then

Session.Property("CHK_Exist_Exam") = "1"

else

Session.Property("CHK_Exist_Exam") = "100"

END IF

objRecordSet.close

Set objCommand = Nothing

Set objRecordSet = Nothing

end if

End If

set objConnection = Nothing

end if

'msgbox Session.Property("EDIT_Server")

 检测端口：

Session.Property("validate_webport") = "1" '先让验证通过

Session.Property("TXT_WEBPORT_ERR") = "" '清空验证信息

dim port

port = Session.Property("EDIT_WEBPORT")

'msgbox port

if(port = "") THEN

Session.Property("validate_webport") = "0"

Session.Property("TXT_WEBPORT_ERR") = "端口号不能为空!"

elseif(port <= 0) THEN

Session.Property("validate_webport") = "0"

Session.Property("TXT_WEBPORT_ERR") = "无效的端口号!"

else

Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("netstat -an")

Set oStdOut = oExec.StdOut

Do Until oStdOut.AtEndOfStream

strLine = oStdOut.ReadLine

If InStr(strLine, ":" & port) > 0 And InStrRev(strLine, "ESTABLISHED") > 0 Then

Session.Property("validate_webport") = "0"

Session.Property("TXT_WEBPORT_ERR") = "端口已被占用!"

Exit Do

End If

Loop

End If

删除目录：

set fso=createobject("scripting.filesystemobject")

on error resume next

dim tar

tar = Session.Property("APPDIR")

msgbox tar

set sfold = fso.getfolder(tar)

sfold.attributes=0

sfold.delete