vbscript – View Network Data using wscript.Network

Installer — Fri, 02 Apr 2010 11:02:35 +0000

In this tutorial, I will be showing you how to create a network class and use it to echo out some network data

MSSQL Search & Add Query Using Vbscript

Installer — Tue, 23 Feb 2010 12:03:36 +0000

With This VBScript you can search into a field for Value and add it (if you want).
If you use the following script you Dont need to open ”SQL Server Managment Studio”.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

Do
Searchdata = InputBox("Please enter the Value", "Input")
Loop Until Searchdata = ""

cnstring = "Provider=SQLOLEDB.1;Password=PASSWORD;Persist Security Info=True;User ID=USERNAME;Initial Catalog=USERNAME;Data Source=192.168.2.2;"
cmdtext = "SELECT * FROM DATABASE where FIELD_NAME = "& Searchdata &""
Set cn = CreateObject("adodb.connection")
Set cmd = CreateObject("adodb.command")
cn.connectionstring = cnstring
cn.Open
cmd.activeconnection = cn
cmd.commandtext = cmdtext

Set rs = CreateObject("adodb.recordset")
rs.cursortype = 3
rs.locktype = 3
rs.Open(cmd)
While Not rs.EOF And Not rs.BOF
'WScript.Echo rs.Fields.Item("FIELD_NAME").Value
Data = rs.Fields.Item("FIELD_NAME").Value
'WScript.Echo Data

rs.MoveNext
Wend
rs.Close
cn.Close
If Data = "" Then
WScript.Echo "Ta Dedomena den Yparxoun sti Vasi"

answer=MsgBox ("Do you want to Add the "& Data &" ", 36, "ADD THE VALUE ")
If answer = 6 Then

cnstring = "Provider=SQLOLEDB.1;Password=PASSWORD;Persist Security Info=True;User ID=USERNAME;Initial Catalog=USERNAME;Data Source=192.168.2.2;"
cmdtext = "INSERT INTO DATABASE (FIELD_NAME) VALUES (" & Data & ")"
Set cn = CreateObject("adodb.connection")
Set cmd = CreateObject("adodb.command")
cn.connectionstring = cnstring
cn.Open
cmd.activeconnection = cn
cmd.commandtext = cmdtext

cmd.Execute
cn.Close

WScript.Quit
Else
WScript.echo "NO"

WScript.Quit
End If
Else
WScript.Echo "Ta Dedomena Yparxoun Sti Vasi"

End If

Install » USERNAME

vbscript – View Network Data using wscript.Network

MSSQL Search & Add Query Using Vbscript