Adding network communications capabilities to an application is not a simple matter.
It requires specialized knowledge that might be outside an individual programmer's expertise.
For years, VBScript, Visual Basic and Visual C++ developers have relied upon the power, flexibility and reliability of the
ActiveSocket Network Communication Toolkit from ActiveXperts Software. And today, also .NET developers use this control.
With ActiveSocket you can communicate across IP networks, including the Internet. ActiveSocket provides an easy-to-use scripting interface for IP communications. By using ActiveSocket, you can very easily create or enhance applications with network features.
Use ActiveSocket to integrate the following IP protocols in your application or script:
ActiveSocket can be used by any of the following operating systems:
ActiveSocket Toolkit can be used by any of the following development languages:
The core of ActiveSocket Toolkit is an ActiveX/COM component that comes in a 32-bit and a 64-bit version:
ActiveSocket can be distributed easily to any server and workstation in your network 9required a Processional License, see also Once you have purchased the licenses, you copy the ASocket.dll (or ASocketx64 for 64 bit applications) to the PCs and register the DLL on that PC. Click here for more information about the installation.
ActiveSocket Toolkit can be used by any of the following operating systems:
NOTE: On 64 bits systems, you can run 32- and 64 bit programs. To integrate ActiveSocket in a 64-bit (web) application of service, use the 64-bit ASocketx64.dll. To integrate ActiveSocket in a 32-bit (web) application of service, use the 32-bit ASocket.dll.
The ActiveSocket Toolkit can be used by any of the following programming languages:
The ActiveSocket Toolkit package consists of 3 components; any combination of components can be installed:
Simply run the ASOCKET.EXE Setup program. The InstallShield wizard will guide you through the rest of the setup.
If you choose the ActiveSocket Toolkit COM component, the Setup program can
perform the registration of the COM component for you. But it will also
give you the opportunity to register the object yourself.
Any subsequent installation of ActiveSocket Toolkit can be performed either manually or by using the Setup program.
Any subsequent installations can be performed using the setup program.
But since the installation of the core components is very simple, you
may want to do it manually, or integrate it into your companies
software distribution program.
If you choose to install the COM component manually on other machines, simply perform the following actions:
The following code snippets (VBScript) illustrate how to use various ActiveSocket objects.
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create object Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Host = "ns1.interstroom.nl" ' DNS server ' Show all DNS records for activexperts.com objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY WScript.Echo "Lookup, result: " & objDnsServer.LastError If( objDnsServer.LastError <> 0 ) Then WScript.Quit End If If ( objDnsServer.IsAuthoritative = True ) Then WScript.Echo "Server is an authority for this domain" Else WScript.Echo "Server is not an authority for this domain" End If ' Iterate over all DNS records; get first record Set objDnsRecord = objDnsServer.GetFirstRecord While ( objDnsServer.LastError = 0 ) Select Case objDnsRecord.Type Case objConstants.asDNS_TYPE_A WScript.Echo "Type : A" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv4 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_AAAA WScript.Echo "Type : AAAA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv6 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_CNAME WScript.Echo "Type : CNAME" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Alias : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_MX WScript.Echo "Type : MX" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Preference : " & objDnsRecord.Preference WScript.Echo "Mail Exchange : " & objDnsRecord.MailExchange Case objConstants.asDNS_TYPE_NS WScript.Echo "Type : NS" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer Case objConstants.asDNS_TYPE_PTR WScript.Echo "Type : PTR" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Host : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_SOA WScript.Echo "Type : SOA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer WScript.Echo "MailBox : " & objDnsRecord.MailBox WScript.Echo "Serial : " & objDnsRecord.SerialNumber WScript.Echo "Refresh : " & objDnsRecord.RefreshInterval WScript.Echo "Retry Interval : " & objDnsRecord.RetryInterval WScript.Echo "Expiration Limit : " & objDnsRecord.ExpirationLimit WScript.Echo "Minimum TTL : " & objDnsRecord.MinimumTTL End Select WScript.Echo "TTL : " & objDnsRecord.TTL WScript.Echo ' Iterate over all DNS records; get next record Set objDnsRecord = objDnsServer.GetNextRecord Wend
Set objFtpServer = CreateObject ( "ActiveXperts.FtpServer" ) objFtpServer.Connect "ftp.activexperts-labs.com","anonymous","" ' Connect to the FTP server Wscript.Echo "Connect, result: " & objFtpServer.LastError If( objFtpServer.LastError <> 0 ) Then ' If connect failed then quit WScript.Quit End If objFtpServer.ChangeDir "samples/network-component/Visual Basic/Telnet" ' Change directory Wscript.Echo "ChangeDir, result: " & objFtpServer.LastError ' If ChangeDir fails then disconnect and quit If( objFtpServer.LastError <> 0 ) Then objFtpServer.Disconnect WScript.Quit End If ' Iterate over all files; start with the first one Set objFtpFile = objFtpServer.FindFirstFile() While( objFtpServer.LastError = 0 ) WScript.Echo "Name: " & objFtpFile.Name ' Display file name WScript.Echo "IsDirectory: " & objFtpFile.IsDirectory ' Display directory or file WScript.Echo "Size: " & objFtpFile.Size ' Display file size WScript.Echo "Date: " & objFtpFile.Date ' Display file date ' To save the file, call the GetFile function. ' strSaveAs = "C:\temp\" & objFtpFile.Name ' objFtpServer.GetFile objFtpFile.Name, strSaveAs ' Wscript.Echo "Save file, result: " & objFtpServer.LastError ' To delete a file, call the DeleteFile function. ' objFtpServer.DeleteFile objFtpFile.Name ' Wscript.Echo "Delete, result: " & objFtpServer.LastError Set objFtpFile = objFtpServer.FindNextFile() ' Next file Wend objFtpServer.Disconnect ' Disconnect
Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Create new Http instance objHttp.ProxyServer = "proxy01.intranet.dom" ' Proxy server - if required objHttp.ProxyAccount = "mjackson" ' Proxy authentication objHttp.ProxyPassword = "mjackson1" ' Proxy authentication objHttp.Connect( "www.activexperts.com/products" ) ' Connect to a web server WScript.Echo "Connect, result: " & objHttp.LastError If( objHttp.LastError <> 0 ) Then WScript.Quit End If strData = objHttp.ReadData ' Read web page data WScript.Echo "ReadData, result: " & objHttp.LastError If( objHttp.LastError <> 0 ) Then WScript.Echo strData ' Display web page data End If objHttp.Disconnect
Set objIcmp = CreateObject("ActiveXperts.Icmp") ' Create new Icmp instance
For i = 1 To 4 ' Prepare for 4 consec. pings
objIcmp.Ping "www.activexperts.com", 2000 ' Ping host(time-out:2000 msecs)
If( objIcmp.LastError = 0 ) Then
WScript.Echo "Reply from " & strHost & _ ' Display Ping results
": time=" & objIcmp.LastDuration & "ms" & _ ' Display Duration
" TTL=" & objIcmp.LastTtl ' Display TTL
Else
WScript.Echo "Error " & objIcmp.LastError
End If
Next
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create a new IPtoCountry inst. objIPC.Host = "www.activexperts.com" ' Host name (or IP address) ' to resolve objIPC.Query() ' Host name (or IP address) ' to resolve WScript.Echo "Query, result: " & objIPC.LastError ' Result of Query; ' 0 means: success If objIPC.LastError = 0 Then WScript.Echo "Host " & strHost & " is located in " & objIPC.CountryName End If
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Server = "messenger2.hotmail.com" ' Use messenger2.hotmail.com objMsn.MsnAccount = "mymeself@activexperts.com" ' Set MSN Account objMsn.MsnPassword = "topsecret" ' Set MSN Password objMsn.Message = "Hello World !!!!" ' Set MSN Message objMsn.AddRecipient "mycollegue1@activexperts.com" ' Add recipient(s) objMsn.AddRecipient "mycollegue2@activexperts.com" objMsn.Send ' Send the message WScript.Echo "Result : " & objMsn.LastError ' Display the result
Set objNtp = CreateObject("ActiveXperts.Ntp") ' Create new Ntp instance
objNtp.GetTime "fartein.ifi.uio.no" ' Query the time server
If( objNtp.LastError <> 0 ) Then
WScript.Echo "Unable to retrieve time, error: " & objNtp.LastError
WScript.Quit
End If
WScript.Echo "Time on timeserver: " & objNtp.Year & _ ' Display date and time
"/" & objNtp.Month & "/" & objNtp.Day & _ ' Display date and time
" " & objNtp.Hour & ":" & objNtp.Minute & _ ' Display date and time
":" & objNtp.Second
WScript.Echo "DifferenceTime Server / Local PC: " & _ ' Display time offset
objNtp.LocalOffsetSeconds & " seconds" ' Display time offset
End If
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new Snmp instance objSnmpManager.Initialize ' Initialize Snmp objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) Set objSnmpObject = objSnmpManager.Get( "system.sysName.0" ) ' Get SnmpObject object While( objSnmpManager.LastError = 0 ) WScript.Echo "Type: " & objSnmpObject.Type WScript.Echo "Value: " & objSnmpObject.Value Set objSnmpObject = objSnmpManager.GetNext() ' Get next SnmpObject object End If objSnmpManager.Close End If objSnmpManager.Shutdown ' Uninitialize Snmp
' T R A P R E C E I V E R . V B S ' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP If( objTrapManager.LastError <> 0 ) Then WScript.Quit End If objTrapManager.StartListening "public" ' Start listening now If( objTrapManager.LastError <> 0 ) Then objTrapManager.Shutdown ' Uninitialize SNMP WScript.Quit End If Set objSnmpTrap = objTrapManager.GetFirstTrap ' Get trap While( objTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' Iterate over all variables ' in the trap WScript.Echo "OID : " & objSnmpObject.OID WScript.Echo "Value:" & objSnmpObject.Value WScript.Echo "Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objTrapManager.GetNextTrap ' Get next trap WEnd objTrapManager.StopListening ' Stop listening for incoming ' traps objTrapManager.Shutdown ' Uninitialize SNMP
' T R A P S E N D E R . V B S ' Create a new SnmpTrapManager instance Set objSnmpTrapManager = CreateObject("ActiveXperts.SnmpTrapManager") ' Create a new SnmpTrap instance Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Create a new SnmpObject instance Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) ' Create a new Constants instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) objSnmpTrapManager.Initialize ' Initialize SNMP If( objSnmpTrapManager.LastError <> 0 ) Then WScript.Quit End If ' Set trap properties objSnmpTrap.Clear() objSnmpTrap.Host = "server06" objSnmpTrap.Community = "public" ' Add a variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.0" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS ' Set trap properties objSnmpObject.Value = "10.0.0.1" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue ' Add another variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.1" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_OCTETSTRING ' Set trap properties objSnmpObject.Value = "One two three" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue objSnmpTrapManager.Send objSnmpTrap ' Send trap WScript.Echo "Send, result: " & objSnmpTrapManager.LastError ' Display the result objSnmpTrapManager.Shutdown ' Uninitialize SNMP
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objSsh.UserName = "root" ' Login as 'root'
objSsh.Password = "topsecret" ' Use a password to login
objSsh.Command = "/bin/ls" ' Command to execute
objSsh.ScriptTimeOut = 5000 ' Time-out (in milliseconds)
objSsh.Run ' Execute the command now
WScript.Echo "Run: result = " & objSsh.LastError
If objSsh.LastError <> 0 Then
WScript.Quit
End If
' YES, command has completed
WScript.Echo "StdErr: " & objSsh.StdErr ' Print Standard Output
WScript.Echo "StdOut: " & objSsh.StdOut ' Print Standard Error
WScript.Echo "Ready."
' S E R V E R . V B S Set objTcp = CreateObject("ActiveXperts.Tcp") ' Create new Tcp instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create a new Constants ' instance objTcp.Protocol= objConstants.asSOCKET_PROTOCOL_RAW ' Plain TCP/IP communications objTcp.StartListening 1500 ' Listen on port 1500 If objTcp.LastError <> 0 Then WScript.Echo "Error " & objTcp.LastError & ": " & _ objTcp.GetErrorDescription( objTcp.LastError ) WScript.Quit End If Do while objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING objTcp.Sleep 1000 ' Wait for incoming connection Loop If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING Then str = "" ' Connection established Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING and str <> "Quit" If objTcp.HasData Then str = objTcp.ReceiveString WScript.Echo "ReceiveString: " & str End If objTcp.Sleep 100 Loop objTcp.Disconnect ' And finally, disconnect End If
' C L I E N T . V B S Set objTcp = CreateObject("ActiveXperts.Tcp") ' Create new Tcp instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create a new Constants inst. objTcp.Protocol= objConstants.asSOCKET_PROTOCOL_RAW ' Plain TCP/IP communications objTcp.Connect "127.0.0.1", 1500 ' Connect to port 1500 on remote server WScript.Echo "Connect: result = " & objTcp.LastError If objTcp.LastError <> 0 Then WScript.Echo "Error #" & objTcp.LastError & ": " & _ objTcp.GetErrorDescription( objTcp.LastError ) WScript.Quit End If objTcp.SendString "This is a message" ' Send ASCII data WScript.Echo "SendString, result: " & objTcp.LastError objTcp.Sleep 1000 ' Hold script for 1000 msec objTcp.SendString "Quit", False ' Send ASCII data objTcp.Disconnect ' And finally, disconnect
Set objTcp = CreateObject("ActiveXperts.Tcp") ' Create new Tcp instance
Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create a new Constants inst.
objTcp.Protocol = objConstants.asSOCKET_PROTOCOL_TELNET ' Telnet communications
objTcp.Connect "www.activexperts.com", 80 ' Connect to web site on
port 80
Wscript.Echo "Connect,, result: " & objTcp.LastError
If objTcp.LastError <> 0 Then
WScript.Quit
End If
If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then
strReceived = "" ' Connection established
objTcp.Sleep 1000
objTcp.SendString "GET /activsocket/demopage/ HTTP/1.1" ' Send string
objTcp.SendString "Host: www.activexperts.com" & vbCrlf ' Send string
objTcp.Sleep 1000
If objTcp.HasData Then
strReceived = objTcp.ReceiveString ' Receive data
WScript.Echo "RECV: " & strReceived
End If
objTcp.Sleep 1000
objTcp.Disconnect ' Disconnect from server
End If
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" ) objTftp.Get "10.1.1.10", "/folder1/file.txt", "c:\\file.txt" ' Download file,save it locally Wscript.Echo "Get, result: " & objTftp.LastError If( objTftp.LastError <> 0 ) Then ' If download failed then quit WScript.Quit End If WScript.Echo "Packets received: " & objTftp.PacketsReceived ' Print download statistics WScript.Echo "Bytes received: " & objTftp.BytesReceived ' Print download statistics
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create new Rsh instance
objRsh.Clear
objRsh.Host = "192.168.1.10" ' Host/IP of the remote
UNIX/LINUX machine
objRsh.Command = "/bin/ls" ' Command to execute on the
remote machine
objRsh.ScriptTimeOut = 5000 ' Time-out (in milliseconds)
objRsh.Run ' Run the command now
If objRsh.LastError <> 0 Then
WScript.Echo "Error " & objRsh.LastError
WScript.Quit
End If
' YES, command has completed
WScript.Echo "StdErr: " & objRsh.StdErr ' Display stdout
WScript.Echo "StdOut: " & objRsh.StdOut ' Display stderr
' C L I E N T . V B S ' Create a socket instance Set objUdp = CreateObject ( "ActiveXperts.Udp" ) Set objConstants = CreateObject ( "ActiveXperts.ASConstants" ) ' Write some information to console WScript.Echo "ActiveSocket " & objUdp.Version & " demo." WScript.Echo "Expiration date: " & objUdp.ExpirationDate & vbCrLf ' Open socket to send to port 1500 on remote server ' To broadcast, use "255.255.255.255" or an empty string objUdp.Open "localhost", 1500, False WScript.Echo "Open, result: " & objUdp.LastError & _ " (" & objUdp.GetErrorDescription( objUdp.LastError ) & ")" If( objUdp.LastError <> 0 ) Then WScript.Echo "Ready." WScript.Quit End If str = "This is just a message" objUdp.SendString str ' Send message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 str = "And this is another message" objUdp.SendString str ' Send another message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 str = "Quit" objUdp.SendString str ' Send last message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 objUdp.Close ' And finally, close the socket ' S E R V E R . V B S ' Create a socket instance Set objUdp = CreateObject ( "ActiveXperts.Udp" ) Set objConstants = CreateObject ( "ActiveXperts.ASConstants" ) ' Write some information to console WScript.Echo "ActiveSocket " & objUdp.Version & " demo." WScript.Echo "Expiration date: " & objUdp.ExpirationDate & vbCrLf ' Open socket to receive UDP datagrams on port 1500 on this machine objUdp.Open "localhost", 1500, True WScript.Echo "Open, result: " & objUdp.LastError & _ " (" & objUdp.GetErrorDescription( objUdp.LastError ) & ")" If( objUdp.LastError <> 0 ) Then WScript.Echo "Ready." WScript.Quit End If Do While str <> "Quit" str = objUdp.ReceiveString ' Receive message If( objUdp.LastError = 0 And str <> "" ) Then WScript.Echo "ReceiveString: " & str End If objUdp.Sleep ( 100 ) Loop objUdp.Close
Set objWOL = CreateObject( "ActiveXperts.WOL" ) ' Create a new WOL instance strMAC = "00-10-4B-BA-7A-51" objWOL.WakeUp strMAC ' Send magic packet to remote ' station identified by MAC WScript.Echo "WakeUp, result = " & objWOL.LastError ' Display the result
Make sure the ActiveSocket Toolkit is installed on your system. For details about installation, click here.
Add a reference to the object using the Visual Basic Solution Explorer:
You can use different ActiveSocket objects in one Visual Basic .NET application. The following code shows how to declare and create all ActiveSocket objects:
Imports ASocket Dim objConstants As SocketConstants ' Declaration objConstants = New SocketConstants() ' Creation Dim objDnsServer As DnsServer ' Declaration objDnsServer = New DnsServer() ' Creation Dim objDnsRecord As DnsRecord ' Declaration objDnsRecord = New DnsRecord() ' Creation Dim objFtpServer As FtpServer ' Declaration objFtpServer = New FtpServer() ' Creation Dim objFtpFile As FtpFile ' Declaration objFtpFile = New FtpFile() ' Creation Dim objHttp As Http ' Declaration objHttp = New Http() ' Creation Dim objIcmp As Icmp ' Declaration objIcmp = New Icmp() ' Creation Dim objIPC As IPtoCountry ' Declaration objIPC = New IPtoCountry() ' Creation Dim objMsn As Msn ' Declaration objMsn = New Msn() ' Creation Dim objNtp As Ntp ' Declaration objNtp = New Ntp() ' Creation Dim objRsh As Rsh ' Declaration objRsh = New Rsh() ' Creation Dim objScp As Scp ' Declaration objScp = New Scp() ' Creation Dim objSFtpServer As SFtpServer ' Declaration objSFtpServer = New SFtpServer() ' Creation Dim objSFtpFile As SFtpFile ' Declaration objSFtpFile = New SFtpFile() ' Creation Dim objSnmpTrapManager As SnmpTrapManager ' Declaration objSnmpTrapManager = New SnmpTrapManager() ' Creation Dim objSnmpTrap As SnmpTrap ' Declaration objSnmpTrap = New SnmpTrap() ' Creation Dim objSnmpMib As SnmpMibBrowser ' Declaration objSnmpMib = New SnmpMibBrowser() ' Creation Dim objSsh As Ssh ' Declaration objSsh = New Ssh() ' Creation Dim objTcp As Tcp ' Declaration objTcp = New Tcp() ' Creation Dim objTftpServer As TftpServer ' Declaration objTftpServer = New TftpServer() ' Creation Dim objUdp As Udp ' Declaration objUdp = New Udp() ' Creation Dim objWOL As WOL ' Declaration objWOL = New WOL() ' Creation
After these declarations and creation of the object(s), you can use the objects inside your Visual Basic .NET project.
Make sure the ActiveSocket Toolkit is installed on your system. For details about installation, click here.
Add a reference to the object using the Visual C# Solution Explorer:
You can use different ActiveSocket objects in one Visual C# .NET application. The following code shows how to declare and create the ActiveSocket objects:
using ASOCKETLib SocketConstants objConstants; // Declaration objConstants = new SocketConstants(); // Creation DnsServer objDnsServer; // Declaration objDnsServer = new DnsServer(); // Creation DnsRecord objDnsRecord; // Declaration objDnsRecord = new DnsRecord(); // Creation Http objHttp; // Declaration objHttp = new Http(); // Creation Icmp objIcmp; // Declaration objIcmp = new Icmp(); // Creation IPtoCountry objIPC; // Declaration objIPC = new IPtoCountry(); // Creation FtpServer objFtpServer; // Declaration objFtpServer = new FtpServer(); // Creation FtpFile objFtpFile; // Declaration objFtpFile = new FtpFile(); // Creation Msn objMsn; // Declaration objMsn = new Msn(); // Creation Ntp objNtp; // Declaration objNtp = new Ntp(); // Creation Rsh objRsh // Declaration objRsh = new Rsh(); // Creation Scp objScp // Declaration objScp = new Scp(); // Creation SFtpServer objSFtpServer; // Declaration objSFtpServer = new SFtpServer(); // Creation SFtpFile objSFtpFile; // Declaration objSFtpFile = new SFtpFile(); // Creation SnmpManager objSnmpManager; // Declaration objSnmpManager = new SnmpManager(); // Creation SnmpObject objSnmObject; // Declaration objSnmpObject = new SnmpObject(); // Creation SnmpTrapManager objSnmpTrapManager; // Declaration objSnmpTrapManager = new SnmpTrapManager(); // Creation SnmpTrap objSnmpTrap; // Declaration objSnmpTrap = new SnmpTrap(); // Creation SnmpMibBrowser objSnmpMib; // Declaration objSnmpMib = new SnmpMibBrowser(); // Creation Ssh objSsh // Declaration objSsh = new Ssh(); // Creation Tcp objTcp; // Declaration objTcp = new Tcp(); // Creation TftpServer objTftpServer; // Declaration objTftpServer = new TftpServer(); // Creation Udp objUdp; // Declaration objUdp = new Udp(); // Creation WOL objWOL; // Declaration objWOL = new WOL(); // Creation
After these declarations and creation of the object(s), you can use the objects inside your Visual C# .NET project.
ActiveSocket can be used in Visual Basic 5.x or higher. In Visual Basic, go to the 'Project/References...' menu item and check the box next to ActiveSocket Type Library. Now, you can declare and create ActiveSocket objects.
Create new ActiveSocket objects using the 'CreateObject' function:
Dim objConstants As ASOCKETLib.SocketConstants ' Declaration Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Creation Dim objDnsServer As ASOCKETLib.DnsServer ' Declaration Set objDnsServer = CreateObject( "ActiveXperts.DnsServer" ) ' Creation Dim objDnsRecord As ASOCKETLib.DnsRecord ' Declaration Set objDnsRecord = CreateObject( "ActiveXperts.DnsRecord") ' Creation Dim objIcmp As ASOCKETLib.Icmp ' Declaration Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Creation Dim objIPC As ASOCKETLib.IPtoCountry ' Declaration Set objIPC = CreateObject( "ActiveXperts.IPtoCountry") ' Creation Dim objFtpServer As ASOCKETLib.FtpServer ' Declaration Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Creation Dim objFtpFile As ASOCKETLib.FtpFile ' Declaration Set objFtpFile = CreateObject( "ActiveXperts.FtpFile") ' Creation Dim objHttp As ASOCKETLib.Http ' Declaration Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Creation Dim objMsn As ASOCKETLib.Msn ' Declaration Set objMsn = CreateObject( "ActiveXperts.Msn") ' Creation Dim objNtp As ASOCKETLib.Ntp ' Declaration Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Creation Dim objRsh As ASOCKETLib.Rsh ' Declaration Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Creation Dim objScp As ASOCKETLib.Scp ' Declaration Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Creation Dim objSFtpServer As ASOCKETLib.SFtp ' Declaration Set objSFtpServer = CreateObject( "ActiveXperts.SFtp" ) ' Creation Dim objSFtpFile As ASOCKETLib.SFtpFile ' Declaration Set objSFtpFile = CreateObject( "ActiveXperts.SFtpFile") ' Creation Dim objSnmpManager As ASOCKETLib.SnmpManager ' Declaration Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Creation Dim objSnmpObject As ASOCKETLib.SnmpObject ' Declaration Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject") ' Creation Dim objSnmpTrapManager As ASOCKETLib.SnmpTrapManager ' Declaration Set objSnmpTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ' Creation Dim objSnmpTrap As ASOCKETLib.SnmpTrap ' Declaration Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Creation Dim objSnmpMib As ASOCKETLib.SnmpMibBrowser ' Declaration Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Creation Dim objSsh As ASOCKETLib.Ssh ' Declaration Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Creation Dim objTcp As ASOCKETLib.Tcp ' Declaration Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Creation Dim objTftpServer As ASOCKETLib.TftpServer ' Declaration Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Creation Dim objUdp As ASOCKETLib.Udp ' Declaration Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Creation Dim objWOL As ASOCKETLib.WOL ' Declaration Set objWOL = CreateObject( "ActiveXperts.WOL") ' Creation
After these declarations and creation of the object(s), you can use the objects inside your Visual Basic 5.x/6.x project.
ActiveSocket can be used in Visual C++ projects. Include the *.h and *.c file provided by ActiveXperts to bind your code to the ActiveSocket component. These files are located in the Include directory of the Visual C++ samples directory. These are the files:
Declare and create new ActiveSocket objects like this:
ISocketConstants *pConstants;
CoCreateInstance(
CLSID_SocketConstants,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISocketConstants,
(void**) &pConstants );
IDnsServer *pDnsServer;
CoCreateInstance(
CLSID_DnsServer,
NULL,
CLSCTX_INPROC_SERVER,
IID_IDnsServer,
(void**) &pDnsServer );
IDnsRecord *pDnsRecord;
CoCreateInstance(
CLSID_DnsRecord,
NULL,
CLSCTX_INPROC_SERVER,
IID_IDnsRecord,
(void**) &pDnsRecord );
IFtpServer *pFtpServer;
CoCreateInstance(
CLSID_FtpServer,
NULL,
CLSCTX_INPROC_SERVER,
IID_IFtpServer,
(void**) &pFtpServer );
IFtpFile *pFtpFile;
CoCreateInstance(
CLSID_FtpFile,
NULL,
CLSCTX_INPROC_SERVER,
IID_IFtpFile, (void**) &pFtpFile );
IXHttp *pHttp;
CoCreateInstance(
CLSID_Http,
NULL,
CLSCTX_INPROC_SERVER,
IID_IXHttp,
(void**) &pHttp );
IIcmp *pIcmp;
CoCreateInstance(
CLSID_Icmp, NULL,
CLSCTX_INPROC_SERVER,
IID_IIcmp, (void**) &pIcmp );
IIPtoCountry *pIPC;
CoCreateInstance(
CLSID_IPtoCountry,
NULL,
CLSCTX_INPROC_SERVER,
IID_IIPtoCountry,
(void**) &pIPC );
IMsn *pMsn;
CoCreateInstance(
CLSID_Msn,
NULL,
CLSCTX_INPROC_SERVER,
IID_IMsn,
(void**) &pMsn );
INtp *pNtp;
CoCreateInstance(
CLSID_Ntp,
NULL,
CLSCTX_INPROC_SERVER,
IID_INtp,
(void**) &pNtp );
IRSh *pRsh;
CoCreateInstance(
CLSID_RSh,
NULL,
CLSCTX_INPROC_SERVER,
IID_IRSh,
(void**) &pRSh );
IScp *pScp;
CoCreateInstance(
CLSID_Scp,
NULL,
CLSCTX_INPROC_SERVER,
IID_IScp,
(void**) &pScp );
ISFtpServer *pSFtpServer;
CoCreateInstance(
CLSID_SFtpServer,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISFtpServer,
(void**) &pSFtpServer );
ISFtpFile *pSFtpFile;
CoCreateInstance(
CLSID_SFtpFile,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISFtpFile,
(void**) &pSFtpFile );
ISnmpManager *pSnmpManager;
CoCreateInstance(
CLSID_SnmpManager,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISnmpManager,
(void**) &pSnmpManager );
ISnmpObject *pSnmpObject;
CoCreateInstance(
CLSID_SnmpObject,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISnmpObject,
(void**) &pSnmpObject );
ISnmpTrapManager *pSnmpTrapManager;
CoCreateInstance(
CLSID_SnmpTrapManager,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISnmpTrapManager,
(void**) &pSnmpTrapManager );
ISnmpTrap *pSnmpTrap;
CoCreateInstance(
CLSID_SnmpTrap,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISnmpTrap,
(void**) &pSnmpTrap );
ISnmpMibBrowser *pSnmpMib;
CoCreateInstance(
CLSID_SnmpMibBrowser,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISnmpMibBrowser,
(void**) &pSnmpMib );
ISsh *pSsh;
CoCreateInstance(
CLSID_Ssh,
NULL,
CLSCTX_INPROC_SERVER,
IID_ISsh,
(void**) &pSsh );
ITcp *pTcp;
CoCreateInstance(
CLSID_Tcp,
NULL,
CLSCTX_INPROC_SERVER,
IID_ITcp,
(void**) &pTcp );
ITftpServer *pTftpServer;
CoCreateInstance(
CLSID_TftpServer,
NULL,
CLSCTX_INPROC_SERVER,
IID_ITftpServer,
(void**) &pTftpServer );
IUdp *pUdp;
CoCreateInstance(
CLSID_Udp,
NULL,
CLSCTX_INPROC_SERVER,
IID_IUdp,
(void**) &pUdp );
IWOL *pWol;
CoCreateInstance(
CLSID_WOL,
NULL,
CLSCTX_INPROC_SERVER,
IID_IWOL,
(void**) &pWOL );
Visual C++ samples are installed as part of the product, but can also be found on our website.
<html>
<body>
Version:
<script language="vbscript" runat="server">
Set objTcp = CreateObject( "ActiveXperts.Tcp" )
Response.Write objTcp.Version
</script>
</body>
</html>
Make sure the ActiveSocket Toolkit is installed on your system. For details about installation, click here.
First, add a reference to the ActiveSocket objects:
Create the various ActiveSocket object instances like this:
{ Declaration of the interface class } objConst : ISocketConstants; { Creation new instance of the object } objConst := TSocketConstants.Create(Form1).DefaultInterface; { Declaration of the interface class } objDnsServer : IDnsServer; { Creation new instance of the object } objDnsServer := TDnsServer.Create(Form1).DefaultInterface; { Declaration of the interface class } objDnsRecord : IDnsRecord; { Creation new instance of the object } objDnsRecord := TDnsRecord.Create(Form1).DefaultInterface; { Declaration of the interface class } objHttp : IXHttp; { Creation new instance of the object } objHttp := THttp.Create(Form1).DefaultInterface; { Declaration of the interface class } objFtpServer : IFtpServer; { Creation new instance of the object } objFtpServer := TFtpServer.Create(Form1).DefaultInterface; { Declaration of the interface class } objFtpFile : IFtpFile; { Creation new instance of the object } objFtpFile := TFtpFile.Create(Form1).DefaultInterface; { Declaration of the interface class } objIcmp : IICmp; { Creation new instance of the object } objIcmp := TIcmp.Create(Form1).DefaultInterface; { Declaration of the interface class } objIPC : IIPtoCountry; { Creation new instance of the object } objIPC := TIPtoCountry.Create(Form1).DefaultInterface; { Declaration of the interface class } objMsn : IMsn; { Creation new instance of the object } objMsn := TMsn.Create(Form1).DefaultInterface; { Declaration of the interface class } objNtp : INtp; { Creation new instance of the object } objNtp := TNtp.Create(Form1).DefaultInterface; { Declaration of the interface class } objRsh : IRSh; { Creation new instance of the object } objRsh := TRSh.Create(Form1).DefaultInterface; { Declaration of the interface class } objScp : IScp; { Creation new instance of the object } objScp := TScp.Create(Form1).DefaultInterface; { Declaration of the interface class } objSFtpServer : ISFtpServer; { Creation new instance of the object } objSFtpServer := STFtpServer.Create(Form1).DefaultInterface; { Declaration of the interface class } objSFtpFile : ISFtpFile; { Creation new instance of the object } objSFtpFile := STFtpFile.Create(Form1).DefaultInterface; { Declaration of the interface class } objManager : ISnmpManager; { Creation new instance of the object } objManager := TSnmpManager.Create(Form1).DefaultInterface; { Declaration of the interface class } objSnmpObject : ISnmpObject; { Creation new instance of the object } objSnmpObject := TSnmpObject.Create(Form1).DefaultInterface; { Declaration of the interface class } objManager : ISnmpTrapManager; { Creation new instance of the object } objManager := TSnmpTrapManager.Create(Form1).DefaultInterface; { Declaration of the interface class } objData : ISnmpTrapData; { Creation new instance of the object } objData := TSnmpTrapData.Create(Form1).DefaultInterface; { Declaration of the interface class } objSnmpMib : ISnmpMibBrowser; { Creation new instance of the object } objSnmpMib := TSnmpMibBrowser.Create(Form1).DefaultInterface; { Declaration of the interface class } objSsh : ISsh; { Creation new instance of the object } objSsh := TSsh.Create(Form1).DefaultInterface; { Declaration of the interface class } objTcp : ITcp; { Creation new instance of the object } objTcp := TTcp.Create(Form1).DefaultInterface; { Declaration of the interface class } objTftpServer : ITftpServer; { Creation new instance of the object } objTftpServer := TFtpServer.Create(Form1).DefaultInterface; { Declaration of the interface class } objUdp : IUdp; { Creation new instance of the object } objUdp := TUdp.Create(Form1).DefaultInterface; { Declaration of the interface class } objWOL : IWOL; { Creation new instance of the object } objWOL := TWOL.Create(Form1).DefaultInterface;
After these declarations and creation of the object(s), you can use the objects in your Delphi projects.
DNS is the Domain Name System. DNS converts machine names to the IP addresses that all machines on the net have. It translates (i.e. 'maps') from name to address and from address to name, and some other things.
The ActiveSocket DNS objects can be used to query servers running a domain name service (DNS) application. It will send domain name query packets to any designated DNS server. There are three data elements required in order to formulate a DNS query using ActiveSocket:
The ActiveSocket DNS objects are useful for gathering address information about hosts in the network. It can be used to query DNS for specific information about hosts, like mail exchanger records [MX], IP address [A], canonical names [CNAME], etc. If you have an IP address, you can get a canonical name back for the address and vice versa. Another useful feature is the ability to get a listing of hosts which serve mail exchange [MX] functions for a specific domain.
The following sample (VBScript) shows how the DnsServer and DnsRecord objects can be used to list all DNS records for a specific domain name:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create object Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Host = "ns1.interstroom.nl" ' DNS server objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Show all DNS records for activexperts.com WScript.Echo "Lookup, result: " & objDnsServer.LastError If( objDnsServer.LastError <> 0 ) Then WScript.Quit End If If ( objDnsServer.IsAuthoritative = True ) Then WScript.Echo "Server is an authority for this domain" Else WScript.Echo "Server is not an authority for this domain" End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Iterate over all DNS ' records; get first record While ( objDnsServer.LastError = 0 ) Select Case objDnsRecord.Type Case objConstants.asDNS_TYPE_A WScript.Echo "Type : A" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv4 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_AAAA WScript.Echo "Type : AAAA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv6 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_CNAME WScript.Echo "Type : CNAME" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Alias : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_MX WScript.Echo "Type : MX" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Preference : " & objDnsRecord.Preference WScript.Echo "Mail Exchange : " & objDnsRecord.MailExchange Case objConstants.asDNS_TYPE_NS WScript.Echo "Type : NS" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer Case objConstants.asDNS_TYPE_PTR WScript.Echo "Type : PTR" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Host : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_SOA WScript.Echo "Type : SOA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer WScript.Echo "MailBox : " & objDnsRecord.MailBox WScript.Echo "Serial : " & objDnsRecord.SerialNumber WScript.Echo "Refresh : " & objDnsRecord.RefreshInterval WScript.Echo "Retry Interval : " & objDnsRecord.RetryInterval WScript.Echo "Expiration Limit : " & objDnsRecord.ExpirationLimit WScript.Echo "Minimum TTL : " & objDnsRecord.MinimumTTL End Select WScript.Echo "TTL : " & objDnsRecord.TTL WScript.Echo Set objDnsRecord = objDnsServer.GetNextRecord ' Iterate over all DNS ' records; get next record Wend
| Property | Type | Read/Write | Description |
| Name | String | Out | Name of the record |
| Type | Number | Out | Type of DNS record |
| Address | String | Out | IP address (or name of A record in case of CNAME) |
| TTL | Number | Out | Used as the default TTL for new records created within the zone |
| MailExchange | String | Out | The email address (replace @ with a dot) of the person responsible for maintenance of the zone |
| Preference | String | Out | MX preference |
| NameServer | String | Out | The domain name of the primary DNS server for the zone |
| MailBox | String | Out | The email address (replace @ with a dot) of the person responsible for maintenance of the zone |
| SerialNumber | String | Out | Used by secondary DNS servers to check if the zone has changed |
| RefreshInterval | Number | Out | How often secondary DNS servers should check if changes are made to the zone |
| RetryInterval | Number | Out | How often secondary DNS server should retry checking if changes are made - if the first refresh fails |
| ExpirationLimit | Number | Out | How long the zone will be valid after a refresh |
| MinimumTTL | Number | Out | Used as the default TTL for new records created within the zone |
Type:
String
Description:
Name of the record.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "Type: " & objDnsRecord.Type WScript.Echo "Address: " & objDnsRecord.Address End If
Type:
Number
Description:
Type of DNS record. Click here for a list of valid DNS types.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "Type: " & objDnsRecord.Type WScript.Echo "Address: " & objDnsRecord.Address End If
Type:
String
Description:
IP Address, or name of A record (in case of a CNAME).
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "Type: " & objDnsRecord.Type WScript.Echo "Address: " & objDnsRecord.Address End If
Type:
Number
Description:
Used as the default TTL for new records created within the zone.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "TTL: " & objDnsRecord.TTL End If
Type:
String
Description:
The A Record for the mail server to connect to its IP-address. The 'MailExchange' property is only set for MX records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_MX ' Lookup MX records for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "MailExchange: " & objDnsRecord.MailExchange WScript.Echo "Preference: " & objDnsRecord.Preference End If
Type:
Number
Description:
MX preference. An MX-record has a "Preference" number indicating the order in which the mail server should be used.
(Only relevant when multiple MX-records are defined for the same domain name).
Mail servers will attempt to deliver mail to the server with the lowest preference number first, and if unsuccessful continue with the next lowest and so on.
The 'Preference' property is only set for MX records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_MX ' Lookup MX records for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name WScript.Echo "MailExchange: " & objDnsRecord.MailExchange WScript.Echo "Preference: " & objDnsRecord.Preference End If
Type:
String
Description:
The domain name of the primary DNS server for the zone. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
String
Description:
The email address (replace @ with a dot) of the person responsible for maintenance of the zone. The standard for this is the "hostmaster" username - such as "hostmaster.activexperts.com" (= hostmaster@activexperts.com). Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", ? objConstants.asDNS_TYPE_SOA ' Lookup SOA record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA ' record fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
String
Description:
Used by secondary DNS servers to check if the zone has changed. If the serial number is higher than what the secondary server has, a zone transfer will be initiated. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new ' DnsServer instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
Number
Description:
How often secondary DNS servers should check if changes are made to the zone. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new ' DnsServer instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record ' for activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
Number
Description:
How often secondary DNS server should retry checking if changes are made - if the first refresh fails. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
Number
Description:
How long the zone will be valid after a refresh. Secondary servers will discard the zone if no refresh could be made within this interval. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
Type:
Number
Description:
Minimum (default) TTL. Only applies to SOA (Start of Authority) records.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record If( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name ' Display all SOA record ' fields WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "MailBox: " & objDnsRecord.MailBox WScript.Echo "NameServer: " & objDnsRecord.NameServer WScript.Echo "SerialNumber: " & objDnsRecord.SerialNumber WScript.Echo "RefreshInterval: " & objDnsRecord.RefreshInterval WScript.Echo "RetryInterval: " & objDnsRecord.RetryInterval WScript.Echo "ExpirationLimit: " & objDnsRecord.ExpirationLimit WScript.Echo "MinimumTTL: " & objDnsRecord.MinimumTTL End If
| Function | Description |
| Clear | Reset all properties to their default values |
| GetErrorDescription | Get the description of the given error |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record While( objDnsServer.LastError = 0 ) Then WScript.Echo "Name: " & objDnsRecord.Name objDnsRecord.Clear() ' Clear DNS record Set objDnsRecord = objDnsServer.GetNextRecord ' Get next DNS record WEnd
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer
' instance
Set objConstants = CreateObject ( "ActiveXperts.ASConstants")
objDnsServer.Server = "ns1.interstroom.nl"
objDnsServer.Lookup "activexperts.com", objConstants.asDNS_TYPE_ANY
WScript.Echo "LastError: " & objDnsServer.LastError
WScript.Echo "Error description: " & objDnsServer.GetErrorDescription( objDnsServer.LastError )
...
DNS is the Domain Name System. DNS converts machine names to the IP addresses that all machines on the net have. It translates (i.e. 'maps') from name to address and from address to name, and some other things.
The ActiveSocket DNS objects can be used to query servers running a domain name service (DNS) application. It will send domain name query packets to any designated DNS server. There are three data elements required in order to formulate a DNS query using ActiveSocket:
The ActiveSocket DNS objects are useful for gathering address information about hosts in the network. It can be used to query DNS for specific information about hosts, like mail exchanger records [MX], IP address [A], canonical names [CNAME], etc. If you have an IP address, you can get a canonical name back for the address and vice versa. Another useful feature is the ability to get a listing of hosts which serve mail exchange [MX] functions for a specific domain.
The following sample (VBScript) shows how the DnsServer and DnsRecord objects can be used to list all DNS records for a specific domain name:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create object Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Host = "ns1.interstroom.nl" ' DNS server objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Show all DNS records ' for activexperts.com WScript.Echo "Lookup, result: " & objDnsServer.LastError If( objDnsServer.LastError <> 0 ) Then WScript.Quit End If If ( objDnsServer.IsAuthoritative = True ) Then WScript.Echo "Server is an authority for this domain" Else WScript.Echo "Server is not an authority for this domain" End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Iterate over all DNS ' records; get first record While ( objDnsServer.LastError = 0 ) Select Case objDnsRecord.Type Case objConstants.asDNS_TYPE_A WScript.Echo "Type : A" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv4 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_AAAA WScript.Echo "Type : AAAA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "IPv6 Address : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_CNAME WScript.Echo "Type : CNAME" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Alias : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_MX WScript.Echo "Type : MX" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Preference : " & objDnsRecord.Preference WScript.Echo "Mail Exchange : " & objDnsRecord.MailExchange Case objConstants.asDNS_TYPE_NS WScript.Echo "Type : NS" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer Case objConstants.asDNS_TYPE_PTR WScript.Echo "Type : PTR" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Host : " & objDnsRecord.Address Case objConstants.asDNS_TYPE_SOA WScript.Echo "Type : SOA" WScript.Echo "Name : " & objDnsRecord.Name WScript.Echo "Name Server : " & objDnsRecord.NameServer WScript.Echo "MailBox : " & objDnsRecord.MailBox WScript.Echo "Serial : " & objDnsRecord.SerialNumber WScript.Echo "Refresh : " & objDnsRecord.RefreshInterval WScript.Echo "Retry Interval : " & objDnsRecord.RetryInterval WScript.Echo "Expiration Limit : " & objDnsRecord.ExpirationLimit WScript.Echo "Minimum TTL : " & objDnsRecord.MinimumTTL End Select WScript.Echo "TTL : " & objDnsRecord.TTL WScript.Echo Set objDnsRecord = objDnsServer.GetNextRecord ' Iterate over all DNS ' records; get next record Wend
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| Server | String | In/Out | Remote DNS Server's host name or IP address |
| ServerPort | Number | In/Out | DNS Server port. Default: 53 |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file that can be used for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objDnsServer = CreateObject("ActiveXperts.DnsServer") ' Create a new DnsServer
' instance
WScript.Echo "Version: " & objDnsServer.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objDnsServer = CreateObject( "ActiveXperts.DnsServer" ) ' Create a new DnsServer
' object
WScript.Echo "Build: " & objDnsServer.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objDnsServer = CreateObject( "ActiveXperts.DnsServer" ) ' Create a new DnsServer
' instance
WScript.Echo "ExpirationDate: " & objDnsServer.ExpirationDate
Type:
String
Description:
Host name or IP address of the DNS server.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.xyz.intra" ' Remote DNS server: ' ns1.xyz.intra objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any record for ' activexperts.com ...
Type:
Number
Description:
TCP port number to identify a (remote) DNS server. If you don't specify the 'ServerPort' property, port 53 (default DNS port) is used.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.xyz.intra" ' Remote DNS server: ' ns1.xyz.intra objDnsServer.ServerPort = 8053 ' Use alternate port:8053 objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any record for ' activexperts.com ...
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new ' DnsServer instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any record for ' activexperts.com WScript.Echo "Lookup, result: " & objDnsServer.LastError ' Show result
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all DNS operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all DNS operations will be written to this log file.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.LogFile = "c:\dns.log" ' Set log file objDnsServer.Server = "ns1.interstroom.nl" objDnsServer.Lookup "activexperts.com", objConstants.asDNS_TYPE_ANY ...
| Function | Description |
| Clear | Reset all properties to their default values |
| Lookup | Lookup DNS record(s) |
| GetNextRecord | Get next DNS record |
| IsAuthoritative | Set to True if DNS server is authoritative |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.xyz.intra" ' Remote DNS server: ' ns1.xyz.intra objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any record for ' activexperts.com ... objDnsServer.Clear ' Reset all properties objDnsServer.Server = "ns1.interstroom.nl" ' Remote DNS server: ' ns1.xyz.intra ...
Description:
Lookup DNS record(s).
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsServer") ' Create a new DnsServer ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record ...
Description:
Iterate over all DSN records that were a result of the Lookup query.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsRecord") ' Create a new DnsRecord ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If Set objDnsRecord = objDnsServer.GetFirstRecord ' Get first DNS record While( objDnsServer.LastError = 0 ) WScript.Echo "Name: " & objDnsRecord.Name ... Set objDnsRecord = objDnsServer.GetNextRecord ' Get next DNS record WEnd
Description:
Indicates if DNS server is authoritative for the queried domain.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsRecord") ' Create a new DnsRecord ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objDnsServer.Server = "ns1.interstroom.nl" ' Apply queries to DNS server ' ns1.interstroom.nl objDnsServer.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_ANY ' Lookup any dns record for ' activexperts.com If( objDnsServer.LastError = 0 ) Then WScript.Quit End If WScript.Echo "IsAuthoritative: " & _ objDnsServer.IsAuthoritative() ' Is authoritative ?
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objDnsServer = CreateObject ( "ActiveXperts.DnsRecord") ' Create a new DnsRecord
' instance
Set objConstants = CreateObject ( "ActiveXperts.ASConstants")
objDnsServer.Server = "ns1.interstroom.nl"
objDnsServer.Lookup "activexperts.com", objConstants.asDNS_TYPE_ANY
WScript.Echo "LastError: " & objDnsServer.LastError
WScript.Echo "Error description: " & objDnsServer.GetErrorDescription( objDnsServer.LastError )
...
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objDnsServer = CreateObject( "ActiveXperts.DnsRecord" ) ' Create DnsRecord object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objDnsServer.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objDnsServer = CreateObject( "ActiveXperts.DnsRecord" ) ' Create DnsRecord object objDnsServer.Activate "xyz", True ' Substitute xyz by your ' own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass ' False, you need to call ' Activate each time the product is started.
FTP stands for File Transfer Protocol: a communication standard which allows computers to transfer files back and forth in spite of differences in how different operating systems handle file names, directories and file formats.
The local (client) computer is the one you're directly connected to, and the remote (server) computer is the one that you want to get files from or put files to. You need to specify the Internet address of the remote computer, e.g. ftp.activexperts-labs.com.
Some sites maintain archives of files for public use, permitting access using the username anonymous. Usually you are asked to enter your real e-mail address as the password. If a site is not using anonymous FTP, you must provide the username and password which has been assigned to you for that computer.
FTP programmes have different methods of handling plain-text files and binary files. The plain-text mode attempts to correct for the different ways that different operating systems handle line breaks in text files, while the binary mode ensures that all of the special non-printing bytes are transferred without change. HTML files are plain-text files, while word-processing documents and images are binary files.
The following sample (VBScript) shows how the FtpServer and FtpFile objects can be used to list files in a specific directory on an FTP server:
Set objFtpServer = CreateObject ( "ActiveXperts.FtpServer" ) objFtpServer.Connect "ftp.activexperts-labs.com","anonymous","" ' Connect to the FTP server ' using the anonymous account Wscript.Echo "Connect, result: " & objFtpServer.LastError If( objFtpServer.LastError <> 0 ) Then ' If connect failed then quit WScript.Quit End If objFtpServer.ChangeDir "samples/network-component/Visual Basic/Telnet" ' Change directory Wscript.Echo "ChangeDir, result: " & _ objFtpServer.LastError If( objFtpServer.LastError <> 0 ) Then ' If ChangeDir fails then ' disconnect and quit objFtpServer.Disconnect WScript.Quit End If Set objFtpFile = objFtpServer.FindFirstFile() ' Iterate over all files in dir ' Start with first file While( objFtpServer.LastError = 0 ) WScript.Echo "Name: " & objFtpFile.Name ' Display file name WScript.Echo "IsDirectory: " & objFtpFile.IsDirectory ' Display directory or file WScript.Echo "Size: " & objFtpFile.Size ' Display file size WScript.Echo "Date: " & objFtpFile.Date ' Display file date ' To save the file, call the GetFile function. ' strSaveAs = "C:\temp\" & objFtpFile.Name ' objFtpServer.GetFile objFtpFile.Name, strSaveAs ' Wscript.Echo "Save file, result: " & objFtpServer.LastError ' To delete a file, call the DeleteFile function. ' objFtpServer.DeleteFile objFtpFile.Name ' Wscript.Echo "Delete, result: " & objFtpServer.LastError Set objFtpFile = objFtpServer.FindNextFile() ' Next file Wend objFtpServer.Disconnect ' Disconnect
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| HostPort | Number | In/Out | TCP port of the remote FTP server. Default: 21 |
| PassiveMode | Boolean | In/Out | Specifies how to connect: passive (default) or active |
| BinaryTransfer | Boolean | In/Out | Specifies how to transfer files: binary (default) or ASCII |
| LastError | Number | Out | Result of the last called function |
| LastResponse | String | Out | Last response from FTP server |
| LogFile | String | In/Out | Log file for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objFtpServer = CreateObject("ActiveXperts.FtpServer") ' Create a new FtpServer
' instance
WScript.Echo "Version: " & objFtpServer.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer
' object
WScript.Echo "Build: " & objFtpServer.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer
' instance
WScript.Echo "ExpirationDate: " & objFtpServer.ExpirationDate
Type:
Number
Description:
TCP port number to identify a (remote) FTP server. If you don't specify the 'HostPort' property, port 21 (default FTP port) is used.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.HostPort = 8021 ' Use port 8021 instead ' of default port 21 objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ' ftpserver1 on port 8021 ...
Type:
Boolean
Description:
Specifies the way to connect to the remote FTP server: in Passive mode or in Active mode. Default value: True (Passive)
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.PassiveMode = False ' Use Active mode instead ' of the default Passive mode objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 ' in Active mode ...
Type:
Boolean
Description:
Specifies the way files are transfered when downloading (GetFile) or uploading (PutFile) files. Default value: True, indicating that files are tranferred in binary mode by default.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 ... objFtpServer.BinaryMode = False ' Files transfer in ASCII mode ' when using GetFile/PutFile Set objFtpFile = objFtpServer.GetFile( "c:\temp\log1.txt", _ "/logfiles/log1.txt" ) ' Download log1.txt in ASCII ' mode
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 WScript.Echo "LastError: " & objFtpServer.LastError ...
Type:
String
Description:
The last response of an FTP operation is stored in the 'LastResponse' property. It can be used for troubleshooting purposes.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 WScript.Echo "LastResponse: " & objFtpServer.LastResponse ' Display the last response ' from the FTP server ...
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all FTP operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all FTP operations will be written to this log file.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.LogFile = "C:\Ftp.log" ' Write all FTP operations ' to the specified log file ... objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 ...
| Function | Description |
| Clear | Reset all properties to their default values |
| Connect | Connect to a remote FTP server |
| Disconnect | Close the connection |
| GetCurrentDir | Retrieve the current directory |
| ChangeDir | Change directory |
| CreateDir | Create directory |
| RenameDir | Rename directory |
| DeleteDir | Delete directory |
| FindFile | Find a file in the current directory |
| FindFirstFile | Find first file in the current directory |
| FindNextFile | Find next file in the current directory |
| RenameFile | Rename a file in the current directory |
| DeleteFile | Delete a file in the current directory |
| GetFile | Download (get) a file from the current directory |
| PutFile | Upload (put) a file to the current directory |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Suspends the execution of the object for at least the specified interval |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
' Create a new FtpServer instance Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 ... objFtpServer.Disconnect ' Disconnect objFtpServer.Clear ' Clear properties before ' connecting to another FTP ' server objFtpServer.Connect "ftpserver2", "account", "pwd" ' Connect to host ftpserver2
Description:
Call this function to connect to a remote FTP server. By default, a Passive connection will be established. If you want to establish a connection in Active mode, you should set the PassiveMode flag to False.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ... objFtpServer.Disconnect End If
Description:
Call this function to close a connnection that was established using the Connect function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.Disconnect ' Close the session End If
Description:
The directory string. If the function fails, an empty string is returned and the LastError property is set to a non-zero value indicating the reason for failing.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... strCurrentDir = objFtpServer.GetCurrentDir() ' Retrieve current directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Current Directory: " & strCurrentDir End If objFtpServer.Disconnect ' Close the session End If
Description:
Change the current directory on the remote FTP server. You can use a fully qualified directory name, or a plain directory name.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.ChangeDir( "family" ) ' Change directory to: ' /pictures/family ... objFtpServer.ChangeDir( "/pictures/friends" ) ' Change directory to: ' /pictures/friends ... objFtpServer.Disconnect ' Close the session End If
Description:
Create a new directory on the remote FTP server in the directory indicated by GetCurrentDir.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.CreateDir( "family" ) ' Create new directory ' 'family' ... objFtpServer.Disconnect ' Close the session End If
Description:
Rename directory.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.RenameDir( "pictures", "images" ) ' Rename directory 'pictures' ' into 'images' ... objFtpServer.Disconnect ' Close the session End If
Description:
Delete a directory.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.DeleteDir( "family" ) ' Delete directory 'family' ... objFtpServer.Disconnect ' Close the session End If
Description:
Find a file. You can use a plain filename (the file will then be retrieved from the current directory) or you can use a fully qualified filename.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then Set objFtpFile1 = objFtpServer.FindFile( _ "/pictures/picture1.jpg") ' Find file using a fully ' qualified filename ... objFtpServer.ChangeDir( "/pictures" ) Set objFtpFile2 = objFtpServer.FindFile( "picture2.jpg") ' Find file using a plain ' filename objFtpServer.Disconnect ' Close the session End If
Description:
Iterate of all files and directories in the current directory. The 'FindFirstFile' function retrieves the first file/directory. You can call 'FindNextFile' until there are no more files/directories.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then Set objFtpFile = objFtpServer.FindFirstFile() While( objFtpServer.LastError = 0 ) WScript.Echo "File: " & objFtpFile.Name ' Display filename ' (or directoryname) Set objFtpFile = objFtpServer.FindNextFile() WEnd objFtpServer.Disconnect ' Close the session End If
Description:
Iterate of all files and directories in the current directory. The 'FindFirstFile' function retrieves the first file/directory. You can call 'FindNextFile' until there are no more files/directories.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then Set objFtpFile = objFtpServer.FindFirstFile() While( objFtpServer.LastError = 0 ) WScript.Echo "File: " & objFtpFile.Name ' Display filename (or ' directoryname) Set objFtpFile = objFtpServer.FindNextFile() WEnd objFtpServer.Disconnect ' Close the session End If
Description:
Rename file.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.Rename( "old.jpg", "new.jpg" ) ' Rename 'old.jpg' into ' 'new.jpg' ... objFtpServer.Disconnect ' Close the session End If
Description:
Delete file.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ' ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.Delete( "picture1.jpg" ) ' Delete 'picture1.jpg' ... objFtpServer.Disconnect ' Close the session End If
Description:
Download a file from the FTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.GetFile( "picture1.jpg", _ "c:\pictures\file1.jpg" ) ' Download 'picture1.jpg' ... objFtpServer.ChangeDir( "/" ) ' Change directory to: / objFtpServer.GetFile( "/pictures/picture1.jpg", _ "c:\pictures\file1.jpg" ) ' Download 'picture2.jpg' objFtpServer.Disconnect ' Close the session End If
Description:
Upload a file to the FTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ftpserver1 If( objFtpServer.LastError = 0 ) Then ... objFtpServer.ChangeDir( "/pictures" ) ' Change directory to: ' /pictures objFtpServer.PutFile( "c:\pictures\picture3.jpg", _ "/pictures/picture3.jpg" ) ' Upload 'picture3.jpg' ... objFtpServer.PutFile( "c:\pictures\picture4.jpg", _ "/pictures/picture4.jpg" ) ' Upload 'picture4.jpg' End If
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect "ftpserver1", "account", "pwd" ' Connect to host ' ftpserver1 WScript.Echo "LastError: " & objFtpServer.LastError WScript.Echo "Error description: " & objFtpServer.GetErrorDescription( objFtpServer.LastError ) ...
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create Ftperver object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objFtpServer.Sleep 50
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create FtpServer object objFtpServer.Activate "xyz", True ' Substitute xyz by your ' own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call Activate each time the product is ' started.
FTP stands for File Transfer Protocol: a communication standard which allows computers to transfer files back and forth in spite of differences in how different operating systems handle file names, directories and file formats.
The local (client) computer is the one you're directly connected to, and the remote (server) computer is the one that you want to get files from or put files to. You need to specify the Internet address of the remote computer, e.g. ftp.activexperts-labs.com.
Some sites maintain archives of files for public use, permitting access using the username anonymous. Usually you are asked to enter your real e-mail address as the password. If a site is not using anonymous FTP, you must provide the username and password which has been assigned to you for that computer.
FTP programmes have different methods of handling plain-text files and binary files. The plain-text mode attempts to correct for the different ways that different operating systems handle line breaks in text files, while the binary mode ensures that all of the special non-printing bytes are transferred without change. HTML files are plain-text files, while word-processing documents and images are binary files.
The following sample (VBScript) shows how the FtpServer and FtpFile objects can be used to list files in a specific directory on an FTP server:
Set objFtpServer = CreateObject ( "ActiveXperts.FtpServer" ) objFtpServer.Connect "ftp.activexperts-labs.com","anonymous","" ' Connect to the FTP server ' using the anonymous account Wscript.Echo "Connect, result: " & objFtpServer.LastError If( objFtpServer.LastError <> 0 ) Then ' If connect failed then quit WScript.Quit End If objFtpServer.ChangeDir "samples/network-component/Visual Basic/Telnet" ' Change directory Wscript.Echo "ChangeDir, result: " & _ objFtpServer.LastError If( objFtpServer.LastError <> 0 ) Then ' If ChangeDir fails then ' disconnect and quit objFtpServer.Disconnect WScript.Quit End If Set objFtpFile = objFtpServer.FindFirstFile() ' Iterate over all files in dir ' Start with first file While( objFtpServer.LastError = 0 ) WScript.Echo "Name: " & objFtpFile.Name ' Display file name WScript.Echo "IsDirectory: " & objFtpFile.IsDirectory ' Display directory or file WScript.Echo "Size: " & objFtpFile.Size ' Display file size WScript.Echo "Date: " & objFtpFile.Date ' Display file date ' To save the file, call the GetFile function. ' strSaveAs = "C:\temp\" & objFtpFile.Name ' objFtpServer.GetFile objFtpFile.Name, strSaveAs ' Wscript.Echo "Save file, result: " & objFtpServer.LastError ' To delete a file, call the DeleteFile function. ' objFtpServer.DeleteFile objFtpFile.Name ' Wscript.Echo "Delete, result: " & objFtpServer.LastError Set objFtpFile = objFtpServer.FindNextFile() ' Next file Wend objFtpServer.Disconnect ' Disconnect
| Property | Type | Read/Write | Description |
| Name | String | Out | Filename |
| IsDirectory | Boolean | Out | Is the file a directory (True) or a file (False) |
| Size | Number | Out | Size of file (in bytes) |
| DateSeconds | Number | Out | Last modification date of the file (in seconds after 1/1/1970) |
| Date | String | Out | Last modification date of the file (as a friendly string) |
Type:
String
Description:
File name.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect( "ftp01", "myaccount", "mypassword" ) ' Connect to the FTP server ... Set objFtpFile = objFtpServer.FindFirstFile() ' Get first file in the ' directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Name : " & objFtpFile.Name ' Display name of the file WScript.Echo "IsDirectory : " & objFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objFtpFile.Size WScript.Echo "DateSeconds : " & objFtpFile.DateSeconds WScript.Echo "Date : " & objFtpFile.Date End If ... objFtpServer.Disconnect ' Disconnect
Type:
Boolean
Description:
True indicates a directory, False indicates a file.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect( "ftp01", "myaccount", "mypassword" ) ' Connect to the FTP server ... Set objFtpFile = objFtpServer.FindFirstFile() ' Get first file in the ' directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Name : " & objFtpFile.Name WScript.Echo "IsDirectory : " & objFtpFile.IsDirectory ' Display: Directory or File WScript.Echo "Size (in bytes) : " & objFtpFile.Size WScript.Echo "DateSeconds : " & objFtpFile.DateSeconds WScript.Echo "Date : " & objFtpFile.Date End If ... objFtpServer.Disconnect ' Disconnect
Type:
Number
Description:
Size (in bytes) of the file.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect( "ftp01", "myaccount", "mypassword" ) ' Connect to the FTP server ... Set objFtpFile = objFtpServer.FindFirstFile() ' Get first file in the ' directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Name : " & objFtpFile.Name WScript.Echo "IsDirectory : " & objFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objFtpFile.Size ' Display size in bytes WScript.Echo "DateSeconds : " & objFtpFile.DateSeconds WScript.Echo "Date : " & objFtpFile.Date End If ... objFtpServer.Disconnect ' Disconnect
Type:
Number
Description:
Last modification date and time of the file, in seconds after 1/1/1970.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect( "ftp01", "myaccount", "mypassword" ) ' Connect to the FTP server ... Set objFtpFile = objFtpServer.FindFirstFile() ' Get first file in the ' directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Name : " & objFtpFile.Name WScript.Echo "IsDirectory : " & objFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objFtpFile.Size WScript.Echo "DateSeconds : " & objFtpFile.DateSeconds ' Display last modification ' date/time in seconds after '1/1/1970 WScript.Echo "Date : " & objFtpFile.Date End If ... objFtpServer.Disconnect ' Disconnect
Type:
String
Description:
Last modification and time of the file, as a friendly string.
Example:
Set objFtpServer = CreateObject( "ActiveXperts.FtpServer" ) ' Create a new FtpServer ' instance ... objFtpServer.Connect( "ftp01", "myaccount", "mypassword" ) ' Connect to the FTP server ... Set objFtpFile = objFtpServer.FindFirstFile() ' Get first file in the ' directory If( objFtpServer.LastError = 0 ) Then WScript.Echo "Name : " & objFtpFile.Name WScript.Echo "IsDirectory : " & objFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objFtpFile.Size WScript.Echo "DateSeconds : " & objFtpFile.DateSeconds WScript.Echo "Date : " & objFtpFile.Date ' Display modification 'date/time as a friendly string End If ... objFtpServer.Disconnect ' Disconnect
Today, there are many software packages available to check web sites, like availability, contents, bandwidth, changes, etc..
However, most of these software tools are stand-alone packages, without scripting options.
ActiveSocket is very well suited for scripting and embedding in applications.
The ActiveSocket Http object allows you to read web pages completely, so you can perform your own content checking. Use the ActiveSocket Http object to:
The ActiveSocket Http object doesn't require direct Internet access; it can operate through a proxy server (incl. support for proxy authentication). It also supports SSL secure web sites, including authentication.
Here is a small example (in VBScript) to show how to use the Http object:
Set objHttp = CreateObject("ActiveXperts.Http") ' Create HTTP object
objHttp.Connect( "www.activexperts.com/products" ) ' Connect to a remote server
WScript.Echo "Connect, result: " & objHttp.LastError
If( objHttp.LastError <> 0 ) Then
WScript.Quit
End If
' Connection esablished; ready to read data
strData = objHttp.ReadData ' Read data stream
If( objHttp.LastError <> 0 ) Then
WScript.Echo "Error " & objHttp.LastError ' Failed to read data, print
' the error
Else
WScript.Echo strData ' Show data
End If
objHttp.Disconnect ' Disconnect
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| UseSSL | Bool | In/Out | Access the page through SSL |
| UsePost | Bool | In/Out | Specify to use HTTP-POST instead of HTTP-GET |
| PostData | String | In/Out | Data to send with HTTP POST |
| RequestTimeout | Number | In/Out | Timeout value for HTTP requests |
| KeepAlive | Bool | In/Out | Specify to use the keepalive flag in the HTTP header |
| HttpLibrary | String | In/Out | The preferred Http interface library |
| ProxyServer | String | In/Out | Use a proxy server |
| ProxyAccount | String | In/Out | Use this account for proxy authentication |
| ProxyPassword | String | In/Out | Use this password for proxy authentication |
| WebAccount | String | In/Out | Use this account to authenticate at the web site |
| WebPassword | String | In/Out | Use this password to authenticate at the web site |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
WScript.Echo "Version: " & objHttp.Version
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Create Http object
WScript.Echo "Build: " & objHttp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it. Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Create Http object
Response.Write "ExpirationDate: " & objHttp.ExpirationDate
Type:
Number
Description:
The result of a previous called function. Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com"
WScript.Echo "LastError: " & objHttp.LastError
Type:
Boolean
Description:
Set this property to indicate that the Connect function must access the page through SSL. Connect discards the 'http://' and 'https://' prefixes, so settings the 'UseSSL' property is the only way to tell the Http object to use SSL.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.UseSSL = True
...
objHttp.Connect "www.activexperts.com"
' To access http://www.activexperts.com
Type:
Boolean
Description:
Set this property to indicate that the Connect function must request the page using HTTP-POST.
HTTP-POST is used to send a large number of bytes as parameters to a webserver.
The default value is disabled (use HTTP-GET).
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.UsePost = True
...
objHttp.Connect "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
' HTTP/Post
Type:
String
Description:
When the UsePost property is set, you can use this property to send additional data with the HTTP POST request.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.UsePost = True
objHttp.PostData = "a1=1;a2=2"
...
objHttp.Connect "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
' HTTP/Post
Type:
Number
Description:
By default the HTTP request timeout is set to 10 seconds. For large webpages, or pages that need to do some processing, you can use this property to increase the timeout. The value is specified in seconds.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.RequestTimeout = 20
...
objHttp.Connect "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
Type:
Boolean
Description:
Set this property to indicate that 'KeepAlive' value in the HTTP header is set to TRUE. This required for some rarely used authentication algorithms.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.KeepAlive = True
...
objHttp.Connect "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
Type:
Number
Description:
ActiveSocket makes use of the WinHTTP library of the operating system.
By default, the 'HttpLibrary' property is emtpy,
and ActiveSocket will attempt to load WinHTTP5.dll. If WinHTTP5.dll fails to load, it will attempt to load WinHTTP.dll.
If you prefer another WinHTTP library, you can set the 'HttpLibrary' property. If set, ActiveSocket will ONLY attempt to load the specified library, it will not try other libraries after that.
The 'HttpLibrary' property is used by the Connect function, so you must assign a value to it
BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.HttpLibrary = "winhttp.dll" ' Load winhttp.dll
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If access to the web page requires authentication, you must assign the 'WebAccount' and 'WebPassword' properties. The 'WebAccount' and 'WebPassword' properties are used by the Connect function, so you must assign values to these properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.WebAccount = "user_a" ' Website requires authentication
objHttp.WebPassword = "password_a" ' Website requires authentication
objHttp.Connect "www.activexperts.com:80/about"
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.LogFile = "c:\file.log"
objHttp.Connect "www.activexperts.com:80/about"
| Function | Description |
| Clear | Reset all properties to default |
| Connect | Connect to a web site |
| Disconnect | Disconnect from a web site |
| ReadHeader | Read HTTP header |
| ReadData | Read data from the web page |
| GetErrorDescription | Get the error description |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate the product |
Description:
Resets all properties to the initial value.
Parameters:
Return value:
Always 0.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com:8080/products/"
If( objHttp.LastError = 0 ) Then
...
End If
Description:
Connect to a web page. You must connect to a web page before you can use the ReadData to actually read the data from the page. The 'Connect' function requires one parameter: the URL. The 'http://' and 'https://' prefixes are ignored by the 'Connect' function. You can include a port number and a relative path in the URL.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com:8080/products/"
If( objHttp.LastError = 0 ) Then
...
End If
Description:
Disconnect from a web site. You must disconnect from a web page when you don't want to read data from the page anymore. The 'Disconnect' function only disconnects a session if you already made a connection to the page though the Connect function. If there is no connection, 'Disconnect' returns immediately with no error.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com/products"
If( objHttp.LastError = 0 ) Then
...
objHttp.Disconnect
End If
Description:
Read the HTTP header of the site you are connecting to. You must connect to a web page before you can read the HTTP header from the remote site.
Parameters:
Return value:
The header that was read from the site. If the function fails, an empty string is retunred and LastError property is set.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com"
If( objHttp.LastError = 0 )
strData = objHttp.ReadHeader( 1 ) ' 1 means: Content-type
WScript.Echo strData
strData = objHttp.ReadHeader( 3 ) ' 3 means: Content-ID
WScript.Echo strData
strData = objHttp.ReadHeader( 35 ) ' 35 means: Referer
WScript.Echo strData
End If
Description:
Read all data from the web page. You must connect to a web page before you can read the data from the page.
Parameters:
Return value:
The data that was read from the web page. If the function fails, an empty string is returned and LastError property is set.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.activexperts.com"
If( objHttp.LastError = 0 )
strData = objHttp.ReadData
If( objHttp.LastError = 0 )
WScript.Echo strData
End If
End If
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
...
objHttp.Connect "www.thispagedoesnotexist.dom/about"
WScript.Echo "LastError: " & objHttp.LastError
WScript.Echo "Error description: " & objHttp.GetErrorDescription( objHttp.LastError )
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Create Http object
...
objHttp.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttp = CreateObject( "ActiveXperts.Http" ) ' Create Http object objHttp.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
The HttpEx object provides a very simple interface to commonly used HTTP functions. This object uses connection pooling to speed up multiple calls to the same webserver. This will enhance performance for applications which need to get an entire web page including images, stylesheets, scriptfiles etc..
The function calls used in this object are analogous to the verbs that are used in the HTTP protocol. For instance, the http GET verb, which is the default way for a browser to query a web page, is translated to the 'Get' function.
In addition this object supports the use of proxy servers and webauthentication. If also supports SSL and TLS encryption methods.
Here is a small example (in VBScript) to show how to use the HttpEx object:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx") ' Create HttpEx object
WScript.Echo objHttpEx.Get( "www.activexperts.com/products" ) ' Echo the contents of
' the products page
If( objHttpEx.LastError <> 0 ) Then
WScript.Echo "Error " & objHttpEx.LastError ' Failed to get the web page,
' print the error
End If
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| LastResponseCode | Number | Out | Last HTTP response code |
| RequestTimeout | Number | In/Out | Timeout value for HttpEx requests |
| ConnectionExpireTimeout | Number | In/Out | Timeout value for connections to expire and be elegible for removal from the connection pool |
| ConnectionPoolSize | Number | In/Out | The number of active connection that can be kept in the connection pool at one time |
| UserAgent | String | In/Out | The user agent string that will be provided when making requests or posts |
| FollowRedirect | Boolean | In/Out | Whether or not redirect a HTTP redirect will be automatically followed |
| MaxRedirectionDepth | Number | In/Out | The maximum number of redirections to follow on a single request |
| ProxyServer | String | In/Out | Use a proxy server |
| ProxyAccount | String | In/Out | Use this account for proxy authentication |
| ProxyPassword | String | In/Out | Use this password for proxy authentication |
| WebAccount | String | In/Out | Use this account to authenticate at the web site |
| WebPassword | String | In/Out | Use this password to authenticate at the web site |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
WScript.Echo "Version: " & objHttpEx.Version
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objHttpEx = CreateObject( "ActiveXperts.HttpEx" ) ' Create HttpEx object
WScript.Echo "Build: " & objHttpEx.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it. Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objHttpEx = CreateObject( "ActiveXperts.HttpEx" ) ' Create HttpEx object
Response.Write "ExpirationDate: " & objHttpEx.ExpirationDate
Type:
Number
Description:
The result of a previous called function. Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.Get "www.activexperts.com"
WScript.Echo "LastError: " & objHttpEx.LastError
Type:
Number
Description:
The last received HTTP response code. Use this to check the HTTP response after a Get, Post or Head function call. When a HTTP call succeeded the response code should be 200 (Ok). More information about HTTP response codes can be found here.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.Get "www.activexperts.com"
WScript.Echo "LastError: " & objHttpEx.LastError
Wscript.Echo "HTTP Response: " & objHttpEx.LastResponseCode
Type:
Number
Description:
For large webpages, or pages that need to do some processing, you can use this property to increase the timeout. By default the HttpEx request timeout is set to 10 seconds. The value is specified in milliseconds.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.RequestTimeout = 20000
...
objHttpEx.Get "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
Type:
Number
Description:
Timeout value for connections to expire and be elegible for removal from the connection pool. By default the ConnectionExireTimeout is set to 30 seconds. The value is specified in milliseconds.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.ConnectionExpireTimeout = 300000
...
objHttpEx.Get "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
Type:
Number
Description:
The number of active connection that can be kept in the connection pool at one time. If the connection pool is full expired connections will be removed. If no connections have expired the oldest connection will be removed in favor of the new connection. By default this value is set to 32.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.ConnectionPoolSize = 5
...
objHttpEx.Get "www.activexperts.com/activsocket/postdemo/default.asp?parameter=200"
Type:
String
Description:
Set this property to indicate which user agent is used to connect to a website. Some webservers will host different pages according to browser vendor or version.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.3)"
...
objHttpEx.Get "www.activexperts.com"
Type:
Boolean
Description:
Whether or not a HTTP redirect (HTTP code 301 or 302) will be automatically followed. This property is set to True by default.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.FollowRedirect = False
...
objHttpEx.Get "http://google.com"
Type:
Number
Description:
When the FollowRedirect properties is set to true, this is the maximum number of redirections that will be followed before cancelling the request.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
objHttpEx.MaxRedirectionDepth = 10
...
objHttpEx.Get "http://google.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
If your Internet configuration requires access to a proxy server, you must assign the host name or IP address of the proxy server to the 'ProxyServer' property. Optionally, if proxy authentication is required, assign the proxy authentication values to the 'ProxyAccount' and 'ProxyPassword' properties. The proxy properties are used by the Connect function, so you must assign values to the proxy properties BEFORE calling the Connect function.
Example:
Set objHttp = CreateObject("ActiveXperts.Http")
objHttp.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objHttp.ProxyAccount = "mjackson" ' Proxy authentication required
objHttp.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objHttp.Connect "www.activexperts.com"
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.LogFile = "c:\file.log"
objHttpEx.Get "www.activexperts.com:80/about"
| Function | Description |
| Clear | Reset all properties to default |
| Get | Gets the contents of a website as a string using an HTTP GET request |
| GetFile | Downloads the contents of a website to a file using an HTTP GET request |
| Head | Gets the headers for a website using the HTTP HEAD command |
| Post | Post string data to a webpage and returns the response as a string using the HTTP POST command |
| SetHeader | Set a custom header value for future GET or POST requests |
| UrlEncode | Url Encode a given string |
| GetErrorDescription | Get the error description |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate the product |
Description:
Resets all properties to the initial value.
Parameters:
Return value:
Always 0.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.SetHeader "Connection", "Keep-Alive"
objHttpEx.Clear
objHttpEx.Get "www.activexperts.com:8080/products/"
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
Get the contents of a webpage from a webserver and return it as a string value. This function defaults to non secure connections using the default HTTP port 80. The use of SSL or a diffent port can be specified as usual, e.g. https://cruisecontrol.intra:8080/dashboard connects securely on port 8080.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
WScript.Echo objHttpEx.Get("www.activexperts.com:8080/products/")
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
Get the contents of a webpage from a webserver and save it to a file. This function defaults to non secure connections using the default HTTP port 80. The use of SSL or a diffent port can be specified as usual, e.g. https://cruisecontrol.intra:8080/dashboard connects securely on port 8080.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.GetFile "www.activexperts.com:8080/products/", "C:\products.txt"
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
Get the headers of a webpage from a webserver and return it as a string value. This function defaults to non secure connections using the default HTTP port 80. The use of SSL or a diffent port can be specified as usual, e.g. https://cruisecontrol.intra:8080/dashboard connects securely on port 8080.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
WScript.Echo objHttpEx.Head("www.slashdot.org")
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
Post a string to a website and returns the result as a string value. This function defaults to non secure connections using the default HTTP port 80. The use of SSL or a diffent port can be specified as usual, e.g. https://cruisecontrol.intra:8080/dashboard connects securely on port 8080.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
WScript.Echo objHttpEx.Post("www.activexperts.com:8080/products/",
"COMPANY_NAME=test&COMPANY_URL=http://example.com")
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
Set a custom HTTP header which will be include in future requests or posts made to a webserver. The header value will clear any header value of the same name that was previously set. To clear all header values call the Clear function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.SetHeader("Connection", "Keep-Alive")
WScript.Echo objHttpEx.Get("http://www.activexperts.com")
If( objHttpEx.LastError = 0 ) Then
...
End If
Description:
UrlEncode function encodes the given string. Use this function to encode parameters when using HttpEx to 'POST' or 'GET' specific parameters to a website.
Parameters:
Return value:
An encoded copy of the input string
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
Url = "http://www.google.com/search?hl=en&q=" & objHttpEx.UrlEncode("Hello, World !")
Wscript.Echo objHttpEx.Get(Url)
WScript.Echo "LastError: " & objHttpEx.LastError
WScript.Echo "Error description: " & objHttpEx.GetErrorDescription( objHttpEx.LastError )
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objHttpEx = CreateObject("ActiveXperts.HttpEx")
...
objHttpEx.Get "www.thispagedoesnotexist.dom/about"
WScript.Echo "LastError: " & objHttpEx.LastError
WScript.Echo "Error description: " & objHttpEx.GetErrorDescription( objHttpEx.LastError )
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objHttpEx = CreateObject( "ActiveXperts.HttpEx" ) ' Create HttpEx object
...
objHttpEx.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objHttpEx = CreateObject( "ActiveXperts.HttpEx" ) ' Create HttpEx object objHttpEx.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
ICMP/Ping is one of the most commonly used utilities on the Internet by people and programs, with untold millions of pings flashing every second back and forth between computers. The original PING utility stood for "Packet Internet Groper", and was a package of diagnostic utilities used by DARPA personnel to test the performance of the ARPANET. Almost every operating system includes a Ping program. It has become one of the most versatile and widely used diagnostic tools on the Internet.
ICMP/Ping sends a small packet of information containing an ICMP ECHO_REQUEST to a specified computer, which then sends an ECHO_REPLY packet in return.
You can use Ping to perform several useful network diagnostics, such as the following:
The ActiveSocket Icmp object enables you to add Icmp/Ping functionality to your program.
Here is a small example (in VBScript) to show how to use the Icmp object:
Set objIcmp = CreateObject("ActiveXperts.Icmp") ' Create Icmp object
objIcmp.Ping "www.activexperts.com", 2000 ' Ping host; timeout 2000 ms
If( objIcmp.LastError = 0 ) Then
WScript.Echo "Success, duration: " & objIcmp.LastDuration & "ms"
Else
WScript.Echo "Error " & objIcmp.LastError & ": " &_
objIcmp.GetErrorDescription( objIcmp.LastError )
End If
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
| Ttl | Number | In/Out | Maximum Time To Live in next Ping call |
| BufferSize | Number | In/Out | Send buffer size |
| LastError | Number | Out | Result of the last called function |
| LastDuration | Number | Out | Reply time of the last Ping call |
| LastTtl | Number | Out | TTL of last Ping call |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
WScript.Echo "Version: " & objIcmp.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
WScript.Echo "Build: " & objIcmp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
WScript.Echo "ExpirationDate: " & objIcmp.ExpirationDate
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.LogFile = "c:\file.log
Type:
Number
Description:
Time To Live to be used in the next Ping call. Value must be between 1 and 255. Default value is 255.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) objIcmp.Ttl = 100 ' Use a different Time To Live ' than the default 255 value objIcmp.Ping "www.monitortools.com", 2000 ' Ping monitortools.com,timeout ' after 2000 msec If( objIcmp.LastError = 0 ) Then WScript.Echo "TTL: " & objIcmp.LastTtl End If
Type:
Number
Description:
Buffer size (in bytes) to be used in the next Ping call. Value must be between 0 and 8192. Default value is 32 (bytes).
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object objIcmp.BufferSize = 64 ' Use a different buffer size ' than the default (32 bytes) objIcmp.Ping "www.monitortools.com", 2000 ' Ping monitortools.com,timeout ' after 2000 msec
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "server.mydomain.com", 2000
WScript.Echo "LastError: " & objIcmp.LastError
Type:
Number
Description:
The duration of the last Ping call. The property is read-only; you cannot assign a value to it.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "www.activexperts.com", 2000
WScript.Echo "Duration of ICMP/Ping operation: " & objIcmp.LastDuration
Type:
Number
Description:
The Time To Live value of the last Ping call. The property is read-only; you cannot assign a value to it.
The maximum Time To Live value is indicated by the Ttl property. The default maximum Time To Live value is 255, but you can assign any value between 1 and 255 to it.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "www.monitortools.com", 2000
If( objIcmp.LastError = 0 ) Then
WScript.Echo "TTL: " & objIcmp.LastTtl
End If
| Function | Description |
| Clear | Clear all properties |
| Ping | Ping the specified host |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
Description:
Reset all properties to their initial values. Use this function when you make consecutive calls to the Ping function.
Parameters:
Return value:
Always 0.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "192.168.1.1", 2000
objIcmp.Clear
objIcmp.Ping "192.168.1.2", 2000
Description:
Ping the specified host. The function requires one parameter: the host that you want to check.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "192.168.1.1", 2000
objIcmp.Clear
objIcmp.Ping "192.168.1.2", 2000
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
objIcmp.Ping "www.thisdoesnotexist.com", 2000
WScript.Echo "LastError: " & objIcmp.LastError
WScript.Echo "Error description: " & objIcmp.GetErrorDescription( objIcmp.LastError )
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objIcmp = CreateObject( "ActiveXperts.Icmp" ) ' Create Icmp object
...
objIcmp.Sleep 500
Today there are millions of internet users around the world. There are also numerous products and services available on the internet.
There are some key benefits of determines the country by IP address:
The IPtoCountry object translates IP address to countries. It makes use of an internal IP-to-Coiuntry database, which resides as a data segment in the ActiveSocket core component: ASocket.dll. The accuracy is over 95%. The inaccuracy is due to dynamic IP address allocation by large ISPs such as AOL and MSN TV. It is also due to the use of proxy servers.
Here is a small example (in VBScript) to show how to use the IPtoCountry object and translate an IP address to a country:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create instance of snmp mib ' browser objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file WScript.Echo "LoadMibFile, result: " & objSnmpMib.LastError If( objSnmpMib.LastError <> 0 ) Then WScript.Quit End If Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID While(objSnmpMIB.LastError = 0 ) WScript.Echo "OID Name: " & objSnmp.Name & "; Full-path: " & objSnmp.Path WScript.Echo " Description: " & objSnmp.Description WScript.Echo " Access: " & objSnmp.Access WScript.Echo " Status: " & objSnmp.Status Set objSnmp = objSnmpMIB.GetNext() ' Get next OID WEnd
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| Host | String | In/Out | Host or IP address to be translated to a country |
| CountryCode | String | Out | Two-character country code (ISO 3166) associated with the given host or IP address |
| CountryCodeEx | String | Out | Three-character country code (ISO 3166) associated with the given host or IP address |
| CountryName | String | Out | Country name associated with the given host or IP address |
| LastError | Number | Out | Result of the Query function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object
WScript.Echo "Version: " & objIPC.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object
WScript.Echo "Build: " & objIPC.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object
WScript.Echo "ExpirationDate: " & objIPC.ExpirationDate
Type:
Number
Description:
Host name or IP address to be translated. The Query function translates this host/IP address to a country.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object objIPC.Host = "www.activexperts.com" ' Host name (or IP address) ' that you want to resolve objIPC.Query() ' Translate host/IP to country WScript.Echo "Query, result: " & objIPC.LastError ' Result of Query; 0 means: success If objIPC.LastError <> 0 Then WScript.Quit End If WScript.Echo "Country (2 chars):" & objIPC.CountryCode ' Two-character ISO 3166 country ' code WScript.Echo "Country (3 chars):" & objIPC.CountryCodeEx ' Three-character ISO 3166 country ' code WScript.Echo "Country (full):" & objIPC.CountryName ' Full countryname
Type:
String
Description:
Country associates with the given host or IP address. You need call Query to translate the host/IP address to a country. There are three different notations for a country; there's a property for each:
For a list of possible country codes and country names, click here.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object objIPC.Host = "www.activexperts.com" ' Host name (or IP address) ' that you want to resolve objIPC.Query() ' Translate host/IP to country WScript.Echo "Query, result: " & objIPC.LastError ' Result of Query; ' 0 means: success If objIPC.LastError <> 0 Then WScript.Quit End If WScript.Echo "Country (2 chars):" & objIPC.CountryCode ' Two-character ISO 3166 ' country code WScript.Echo "Country (3 chars):" & objIPC.CountryCodeEx ' Three-character ISO 3166 ' country code WScript.Echo "Country (full):" & objIPC.CountryName ' Full countryname
Type:
Number
Description:
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object
...
objIPC.Query()
WScript.Echo "LastError: " & objIPC.LastError
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object
objIPC.LogFile = "c:\file.log"
...
objIPC.Query()
WScript.Echo "LastError: " & objIPC.LastError
| Function | Description |
| Clear | Reset all properties to the default values |
| Query | Translate an IP address (or host name) to a country |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to their initial values. Use this function when you make consecutive calls to the Query function.
Parameters:
Return value:
Always 0.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object ... objIPC.Query() objIPC.Clear() ' Clear all properties objIPC.Query()
Description:
Translate an IP address (or host name) to a country.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object objIPC.Host = "www.activexperts.com" ' Host name (or IP address) ' that you want to resolve objIPC.Query() ' Translate host/IP to country WScript.Echo "Query, result: " & objIPC.LastError ' Result of Query; ' 0 means: success If objIPC.LastError <> 0 Then WScript.Quit End If WScript.Echo "Country (2 chars):" & objIPC.CountryCode ' Two-character ' ISO 3166 country code WScript.Echo "Country (3 chars):" & objIPC.CountryCodeEx ' Three-character ' ISO 3166 country code WScript.Echo "Country (full):" & objIPC.CountryName ' Full countryname ...
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) objIPC.Host = "www.activexperts.com" objIPC.Query() ' Translate host/IP to country WScript.Echo "Query, result: " & objIPC.LastError & _ ' Error code objIPC.GetErrorDescription( objIPC.LastError ) ' Error Description
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objIPC.Sleep 500
Description:
This function will activate the ActiveSocket product. A valid registrationcode is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objIPC = CreateObject( "ActiveXperts.IPtoCountry" ) ' Create IPtoCountry object objIPC.Activate "xyz", True ' Substitute xyz by your ' own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
The Msn object is an instant messaging client object. It allows you to connect to Microsoft's Live Messenger Service and send a basic message to one or more MSN recipients. It provides basic chat features only, i.e. a subset of the features provided by Windows Live Messenger (formerly known as MSN Messenger) which is available for most Windows operating systems. The Msn object doesn't provide enhanced features like emoticons and file transfers.
The features provided by the ActiveSocket Msn object:
Here is a small example (in VBScript) to show how to use the Msn object to send an instant message to a remote MSN recipient:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.LogFile = "C:\MSNLog.txt" ' Set Log File (optional) objMsn.MsnAccount = "mymeself@activexperts.com" ' Set MSN Account objMsn.MsnPassword = "topsecret" ' Set MSN Password objMsn.Message = "Hello World !!!!" ' Set MSN Message objMsn.AddRecipient "mycollegue1@activexperts.com" ' Add recipient(s) objMsn.AddRecipient "mycollegue2@activexperts.com" objMsn.Send ' Send the message WScript.Echo "Result : " & objMsn.LastError ' Display the result
| Property | Type | Read/Write | Description |
| Version | String | Out | Version of ActiveSocket |
| Build | String | Out | Build of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| Server | String | In/Out | The MSN server you want to connect to |
| ServerPort | Number | In/Out | The MSN server IP port number |
| MsnAccount | String | In/Out | The MSN account used to logon to the MSN server |
| MsnPassword | String | In/Out | The MSN password used to logon to the MSN server |
| MsnDisplayName | String | In/Out | The MSN display name used when logged on to the MSN server |
| Message | String | In/Out | The MSN message to send to the remote MSN recipient(s) |
| LastError | Number | Out | Result of last used function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object WScript.Echo "Version: " & objMsn.Version ' Show version information
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object WScript.Echo "Build: " & objMsn.Build ' Show build information
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object WScript.Echo "ExpirationDate: " & objMsn.ExpirationDate ' Show expiration date
Type:
String
Description:
The MSN server you want to connect to. Default value: messenger.hotmail.com
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Server = "messenger2.hotmail.com" ' Use messenger2.hotmail.com objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
Number
Description:
IP port of the MSN server you want to connect to. Default value: 1863.
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Server = "messenger2.hotmail.com" ' Use messenger2.hotmail.com objMsn.ServerPort = 8063 ' Use port 8063 objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
String
Description:
The MSN account used to logon to the MSN server.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.MsnAccount = "mymeself@activexperts.com" ' Set MSN Account objMsn.MsnPassword = "topsecret" ' Set MSN Password objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
String
Description:
The MSN password used to logon to the MSN server.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.MsnAccount = "mymeself@activexperts.com" ' Set MSN Account objMsn.MsnPassword = "topsecret" ' Set MSN Password objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
String
Description:
The friendly name that will be shown to the remote MSN users. If omitted, the MSN Account is displayed.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.MsnDisplayName = "Me Myself" ' Set MSN Display Name objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
String
Description:
The Message text that to send to the remote recipients. The maximum length of a message is 1664 characters.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.MsnDisplayName = "Me Myself" objMsn.Message = "Hello World !!!!" ' Set Message text objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message
Type:
Number
Description:
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object ... objMsn.Send ' Send the message WScript.Echo objMsn.LastError ' Display the result of the ' Send function
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objLogFile = "c:\msn.log" ' Set log file ... objMsn.Send ' Send the message WScript.Echo objMsn.LastError ' Display the result of the ' Send function
| Function | Description |
| Clear | Reset all properties to the default values |
| AddRecipient | Add an MSN recipient |
| Send | Send the MSN message to the remote MSN recipient(s) |
| GetErrorDescription | Get the description of the given error |
| Activate | Activate Software |
Description:
Reset all properties to their initial values. Use this function when you make consecutive calls to the Send function.
Parameters:
Return value:
Always 0.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object ... objMsn.Send() objMsn.Clear() ' Clear all properties objMsn.Send()
Description:
Add an MSN recipient. You can add multiple recipients, i.e. call the AddRecipient function multiple times.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Server = "messenger2.hotmail.com" objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" ' Add recipient(s) objMsn.AddRecipient "mycollegue2@activexperts.com" objMsn.Send ' Send the message WScript.Echo "Result : " & objMsn.LastError ' Display the result
Description:
Send the MSN message to the remote MSN recipient(s).
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Server = "messenger2.hotmail.com" objMsn.MsnAccount = "mymeself@activexperts.com" objMsn.MsnPassword = "topsecret" objMsn.Message = "Hello World !!!!" objMsn.AddRecipient "mycollegue1@activexperts.com" objMsn.Send ' Send the message WScript.Echo "Result : " & objMsn.LastError
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object ... objMsn.Send ' Send the message WScript.Echo "Result : " & objMsn.LastError & _ " (" & objMsn.GetErrorDescription ( objMsn.LastError ) & ")"
Description:
This function will activate the ActiveSocket product. A valid registrationcode is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objMsn = CreateObject( "ActiveXperts.Msn" ) ' Create Msn object objMsn.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
The Network Time Protocol (NTP) has been developed to address the issue of providing accurate and synchronized time across the Internet. The protocol itself has been in development since 1985 and has therefore reached a fairly mature status. The latest stable version of NTP is version 3 and described in RFC-1305 the latest testing version is NTP version 4.
The Network Time Protocol aims to synchronize a systems clock to Coordinated Universal Time (UTC). UTC is a development of Greenwich Mean Time (GMT). GMT is based on the rotation of the earth while UTC is based on the standard length of a second determined from quantum phenomena, but both use the Greenwich time zone as the zero offset.
NTP uses a augmented hierarchical client-server topology. A small number of servers distribute time to a larger number of clients which can simultaneously act as servers to further clients. The top level clients are referred to as stratum 1 servers and their clients are termed as being at stratum 2. Clients of a stratum 2 server are at stratum 3 and so on. The stratum 1 servers are synchronized to radio clocks which receive time signals from national time standards such as the MSF signal provided by the NPL broadcast from Rugby or the GPS time signal provided by the Global Positioning System. The radio clocks themselves are termed stratum 0 servers.
The ActiveSocket Ntp object enables you to add Ntp functionality to your program. Here is a small example (in VBScript) to show how to use the Ntp object: The following sample (in VBScript) runs the '/bin/ls' command on host '192.168.1.10', and will timeout when the script takes more than 5000 milliseconds:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime "mytimeserver.domain.dom" ' Retrieve time from this time server If( objNtp.LastError = 0 ) Then WScript.Echo "Time retrieved successfully, the results are:" WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| Year | Number | Out | The year, as provided by the NTP server |
| Month | Number | Out | The month, as provided by the NTP server |
| Day | Number | Out | The day, as provided by the NTP server |
| Hour | Number | Out | The hour, as provided by the NTP server |
| Minute | Number | Out | The minute, as provided by the NTP server |
| Second | Number | Out | The second, as provided by the NTP server |
| LocalOffsetSeconds | Number | Out | The offset (in seconds) between the local computer and the Network Time Server |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create Ntp object
WScript.Echo "Version: " & objNtp.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create Ntp object
WScript.Echo "Build: " & objNtp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create Ntp object
WScript.Echo "ExpirationDate: " & objNtp.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime "timeserver01.domain.dom" ' Retrieve time WScript.Echo "LastError: " & objNtp.LastError
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'Year', 'Month', 'Day', 'Hour', 'Minute' and 'Second' properties are assigned with the time information that was retrieved from the Network Time Server. The properties are read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time if( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Type:
Number
Description:
After a successful call to the GetTime function, the 'LocalOffsetSeconds' holds the offset (in seconds) between the NTP server time and the local computer time. Use this value to check if your local computer time is in sync with the NTP server's time. The property is read-only; you cannot assign a value to it.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time If( objNtp.LastError = 0 ) Then WScript.Echo "Time offset : " & objNtp.LocalOffsetSeconds & " seconds" End If
| Function | Description |
| Clear | Reset all properties to the default values |
| GetTime | Query the NTP server to retrieve date and time |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Resets all properties to the initial values. Use this function when you make consecutive calls to the GetTime function. It sets Year, Month, Day, Hour, Minute and Second to 0.
Parameters:
Return value:
Always 0.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time ... objNtp.Clear() objNtp.GetTime( "timeserver02.domain.dom" ) ... objNtp.Clear() objNtp.GetTime( "timeserver03.domain.dom" ) ...
Description:
Query the network time server and retrieve its date and time.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create a new Ntp instance objNtp.GetTime( "timeserver.domain.dom" ) ' Retrieve time If( objNtp.LastError = 0 ) Then WScript.Echo "Year : " & objNtp.Year WScript.Echo "Month : " & objNtp.Month WScript.Echo "Day : " & objNtp.Day WScript.Echo "Hour : " & objNtp.Hour WScript.Echo "Minute : " & objNtp.Minute WScript.Echo "Second : " & objNtp.Second End If
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objNtp = CreateObject("ActiveXperts.Ntp") ' Create a new Ntp instance
objNtp.GetTime( "invalidtimeserver.com" ) ' Retrieve time
WScript.Echo "Error description: " & objNtp.GetErrorDescription( objNtp.LastError )
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create Ntp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objNtp.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objNtp = CreateObject( "ActiveXperts.Ntp" ) ' Create Ntp object objNtp.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
RADIUS (Remote Authentication Dial In User Service) is a networking protocol that provides centralized authentication and authorization management for computers to connect and use a network service. It was originally developed by Livingston Enterprises in 1991 as an access server authentication and accounting protocol and later brought into the IETF standards where it is described in RCF 2865 and RCF 2866.
RADIUS is a client/server protocol that uses UDP as a transport. A RADIUS server is usually a background process running on a UNIX or Windows NT server. The RADIUS component in activesocket currently only supports authenticating users. This means that the activesocket RADIUS implementation can be used to check against a RADIUS server whether or not a user has access to a network.
The following sample (in VBScript) tests if the user 'Test' has access to a network, and will timeout when the script takes more than 5000 milliseconds:
Set objRadius = CreateObject("ActiveXperts.Radius") ' Create a RADIUS instance
objRadius.CheckAccess "192.168.1.10", "test", "password", _
"secret" ' Check if the test user is
' authorized
If objRadius.LastError <> 0 Then
WScript.Echo "Error: " & objRadius.LastError
WScript.Echo "Description " & objRadius.GetErrorDescription(objRadius.LastError)
WScript.Quit 1
End If
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| Timeout | Number | In/Out | Specifies the number of milliseconds until the command times out |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objRADIUS = CreateObject( "ActiveXperts.RADIUS" ) ' Create RADIUS object
WScript.Echo "Version: " & objRADIUS.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objRADIUS = CreateObject( "ActiveXperts.RADIUS" ) ' Create RADIUS object
WScript.Echo "Build: " & objRADIUS.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objRADIUS = CreateObject( "ActiveXperts.RADIUS" ) ' Create RADIUS object
WScript.Echo "ExpirationDate: " & objRADIUS.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objRADIUS = CreateObject("ActiveXperts.RADIUS") ' Create an RADIUS instance
...
objRADIUS.CheckAccess "192.168.1.10", "test", "password", "secret"
WScript.Echo "LastError: " & objRADIUS.LastError
Type:
Number
Description:
Specifies the number of milliseconds before the command will time out.
Example:
Set objRADIUS = CreateObject("ActiveXperts.RADIUS") ' Create an RADIUS
' instance
objRADIUS.TimeOut = 6000 ' Timeout after 6000
' milliseconds
objRADIUS.CheckAccess "192.168.1.10", "test", "password", "secret"
| Function | Description |
| Clear | Reset all properties to the default values |
| CheckAccess | Check if a user would be authorized |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to the initial values. Use this function when you make consecutive calls to the CheckAccess function. It resets all properties
Parameters:
Return value:
Always 0.
Example:
Set objRADIUS = CreateObject("ActiveXperts.RADIUS") ' Create an RADIUS instance
...
objRADIUS.Timeout = 10000
objRADIUS.CheckAccess "192.168.1.10", "test", "password", "secret"
objRADIUS.Clear ' Resets properties
' Set new property values
...
objRADIUS.Timeout = 8000
objRADIUS.CheckAccess "192.168.1.10", "test", "password", "secret"
objRADIUS.Clear
...
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objRADIUS = CreateObject("ActiveXperts.RADIUS") ' Create an RADIUS instance
objRADIUS.CheckAccess "192.168.1.10", "test", "password", "secret"
WScript.Echo "Run: result = " & objRADIUS.LastError
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objRADIUS = CreateObject( "ActiveXperts.RADIUS" ) ' Create RADIUS object objRADIUS.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
Rsh executes a command on a host. The remote hosts must run the Rsh daemon.
An Rsh client utility is shipped with most operating systems these days.
This Rsh command line utility copies its standard input to the remote command, the standard output
of the remote command to its standard output, and the standard error of the remote command to its standard error.
Interrupt, quit and terminate signals are propagated to the remote command; rsh normally terminates when the remote command does.
The ActiveSocket Rsh object has the same functionality as the Rsh command-line utility, except that it has no user interface by itself: standard error and standard output are not copied to the console, but are copied to the corresponding object properties (StdErr and StdOut) instead.
The following sample (in VBScript) runs the '/bin/ls' command on host '192.168.1.10', and will timeout when the script takes more than 5000 milliseconds:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objRsh.UserName = "root" ' Login as 'root'
objRsh.Password = "topsecret" ' Use a password to login
objRsh.Command = "/bin/ls" ' Command to execute
objRsh.ScriptTimeOut = 5000 ' Time-out (in milliseconds)
objRsh.Run ' Execute the command now
WScript.Echo "Run: result = " & objRsh.LastError
If objRsh.LastError <> 0 Then
WScript.Echo "Error " & objRsh.LastError
End If
' YES, command has completed
WScript.Echo "StdErr: " & objRsh.StdErr ' Print Standard Output
WScript.Echo "StdOut: " & objRsh.StdOut ' Print Standard Error
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| Command | String | In/Out | Specifies the command to run on the remote host |
| Host | String | In/Out | Specifies the host on which to run the command |
| UserName | String | In/Out | Specifies the user name to use on the remote host. If omitted, the logged on user name is used. |
| ScriptTimeOut | Number | In/Out | Specifies the number of milliseconds until the command times out |
| StdErr | String | Out | The Rsh 'Run' function copies its standard error to this property |
| StdOut | String | Out | The Rsh 'Run' function copies its standard output to this property |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Create Rsh object
WScript.Echo "Version: " & objRsh.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Create Rsh object
WScript.Echo "Build: " & objRsh.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Create Rsh object
WScript.Echo "ExpirationDate: " & objRsh.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
...
objRsh.Run
WScript.Echo "LastError: " & objRsh.LastError
Type:
String
Description:
Specifies the command to run on the remote host.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Command = "/bin/ls"
objRsh.Host = "server01.domain.dom"
objRsh.Run
Type:
String
Description:
Specifies the host on which to run the command.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "server01.domain.dom"
objRsh.Command = "/bin/ls"
objRsh.Run
Type:
String
Description:
Specifies the user name to use on the remote host. If omitted, the logged on user name is used.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "server01.domain.dom"
objRsh.Command = "/bin/ls"
objRsh.UserName = "mjohnson"
objRsh.Run
Type:
Number
Description:
Specifies the number of milliseconds before the command will time out.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "server01.domain.dom"
objRsh.Command = "/bin/ls"
objRsh.ScriptTimeOut = 6000 ' Timeout after 6000
' milliseconds
objRsh.Run
Type:
String
Description:
Rsh connects to the command. Rsh copies its standard error of the remote command to the 'StdErr' property.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
...
objRsh.Run
If( objRsh.LastError = 0 ) Then
WScript.Echo "StdErr: " & objRsh.StdErr
End
Type:
String
Description:
Rsh connects to the command. Rsh copies its standard out of the remote command to the 'StdOut' property.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Run
If( objRsh.LastError = 0 ) Then
WScript.Echo "StdOut: " & objRsh.StdOut
End
| Function | Description |
| Clear | Reset all properties to the default values |
| Run | Run the command on the remote host |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to the initial values. Use this function when you make consecutive calls to the Run function. It resets all properties
Parameters:
Return value:
Always 0.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
...
objRsh.Run
objRsh.Clear ' Resets properties
' Set new property values
...
objRsh.Run
objRsh.Clear
...
Description:
Run the command on the remote host.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "192.168.1.10"
objRsh.Command = "/bin/ls"
objRsh.Run
WScript.Echo "Run: result = " & objRsh.LastError
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objRsh = CreateObject("ActiveXperts.Rsh") ' Create an Rsh instance
objRsh.Host = "192.168.1.10"
objRsh.Command = "/bin/ls"
objRsh.Run
WScript.Echo "Run: result = " & objRsh.LastError
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Create Rsh object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objRsh.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objRsh = CreateObject( "ActiveXperts.Rsh" ) ' Create Rsh object objRsh.Activate "xyz", True ' Substitute xyz by ' your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
Scp (Secure Copy Protocol) is a way to securely transfer files between two computers using the SSH (Secure SHell) protocol.
The Secure Copy Protocol is the secure analog of the old UNIX RCP command. It is implemented as a part of the SSH system, which means that an SCP client can be used to copy to any file or files to or from a host which has an SSH server running and which has the SCP service enabled.
An SCP client can only be used to copy files. To list the contents of a remote directory or to query for remote file information either SSH or SFTP would be required. In most applications the SCP protocol is considered to be superseded by the more advanced SFTP protocol. However, in some implementations copying a file using an SCP implementation can have a performance advantage.
The ActiveSocket SCP implementation is based on the PuTTY SCP implementation.
When connecting to a remote host there are two ways to authenticate: by using a password or by using a 'private key'. When using a password to authenticate it is required that the host private key is known to the system. If the hosts private key is unknown to the system or if it was changed since the last connection the Scp object will return an error. To connect anyway and store the host key in the registry for future connections the 'AcceptHostKey' property can be set.
NOTE:
The following sample (in VBScript) copies the 'Smalltoken.file to the 'demo' users home directory on 192.168.1.10 using a password:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objScp.UserName = "demo" ' Login as 'demo'
objScp.Password = "topsecret" ' Use a password to login
objScp.CopyToRemote "Smalltoken.file", "." ' Copy the file to the remote
' location
WScript.Echo "Copy: result = " & objScp.LastError
If objScp.LastError <> 0 Then
WScript.Echo "Error: " & objScp.LastError
If objScp.ProtocolError <> "" Then
WScript.Echo "Protocol error: " & objScp.ProtocolError
End If
End If
' YES, command has completed
WScript.Echo "Ready."
The following sample (in VBScript) copies the 'Smalltoken.file to the 'demo' users home directory on 192.168.1.10 using a private key file:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objScp.UserName = "demo" ' Login as 'demo'
objScp.PrivateKeyFile = "c:\files\privkey.ppk" ' Use a private key file to
' login
objScp.CopyToRemote "Smalltoken.file", "." ' Copy the file to the remote
' location
WScript.Echo "Copy: result = " & objScp.LastError
If objScp.LastError <> 0 Then
WScript.Echo "Error: " & objScp.LastError
If objScp.ProtocolError <> "" Then
WScript.Echo "Protocol error: " & objScp.ProtocolError
End If
End If
' YES, command has completed
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| ProtocolError | String | Out | If the last called function triggered a protocol error. This property will contain more information. |
| Host | String | In/Out | Specifies the host to which or from which should be copied |
| Port | Number | In/Out | TCP port number to identify a (remote) SSH/SCP daemon. Default: 22 |
| UserName | String | In/Out | Specifies the user name to use on the remote host |
| Password | String | In/Out | Specifies the password to use on the remote host. If this property is left blank the 'PrivateKeyFile' property will be used to authenticate. |
| PrivateKeyFile | String | In/Out | Specifies the private key file to logon to the remote host. If this property is left blank the 'Password' property will be used to authenticate. |
| Recursive | Boolean | In/Out | Specifies whether to recursively copy directories |
| Compression | Boolean | In/Out | Specifies whether to use compression when transferring files |
| AcceptHostKey | Boolean | In/Out | Specifies whether to accept an unknown or changed host key |
| HostFingerprint | String | Out | The Scp 'CopyToRemote' and 'CopyToLocal' functions copy the host key fingerprint to this property |
| LogFile | Boolean | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Create Scp object
WScript.Echo "Version: " & objScp.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Create Scp object
WScript.Echo "Build: " & objScp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Create Scp object
WScript.Echo "ExpirationDate: " & objScp.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToRemote "Smalltoken.file", "."
WScript.Echo "LastError: " & objScp.LastError
Type:
String
Description:
If the last called function triggered a protocol error. This property will contain more information. The protocol error string is usually triggered and formulated into an error description at the remote host.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToRemote "Smalltoken.file", "."
If objScp.LastError <> 0 Then
WScript.Echo "Error: " & objScp.LastError
If objScp.ProtocolError <> "" Then
WScript.Echo "Protocol error: " & objScp.ProtocolError
End If
End If
Type:
String
Description:
Specifies the host onto or from which the files will be copied.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "server01.domain.dom"
...
objScp.CopyToRemote "Smalltoken.file", "."
Type:
Number
Description:
TCP port number to identify a remote SSH/SCP daemon. If you don't specify the 'Port' property, port 22 (default SCP port) is used.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "server01.domain.dom"
objScp.Port = 8022 ' Use port 8022 instead of 22
...
objScp.CopyToRemote "Smalltoken.file", "."
Type:
String
Description:
Specifies the user name to use on the remote host. You must also specify either a Private Key to logon to the machine.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "server01.domain.dom"
objScp.UserName = "mjohnson"
objScp.Password = "topsecret"
objScp.CopyToRemote "Smalltoken.file", "."
Type:
String
Description:
Specifies the password to use on the remote host. If you do not use a password, you must use a Private Key to logon to the machine.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "server01.domain.dom"
objScp.UserName = "mjohnson"
objScp.Password = "topsecret"
objScp.CopyToRemote "Smalltoken.file", "."
Type:
String
Description:
Specifies the private key file to use on the remote host. If you do not use a private key, you must use a Password to logon to the machine.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "server01.domain.dom"
objScp.UserName = "mjohnson"
objScp.PrivateKeyFile= "c:\keys\root.ppk"
objScp.CopyToRemote "Smalltoken.file", "."
Type:
Boolean
Description:
Specifies whether to recursively copy directories. To copy a directory and its subdirectories the recursive property should be enabled.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.Recursive = true
objScp.CopyToRemote "Smalltoken.file", "."
Type:
Boolean
Description:
Specifies whether to use compression when copying files to the remote location. This will enable faster file transfer rates at the cost of a higher load on the server/client side.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.Compression = true
objScp.CopyToRemote "Smalltoken.file", "."
Type:
Boolean
Description:
Specifies whether to accept an unknown or changed host key and add it to the registry. Leaving this property set to true when connecting to unknown or untrusted hosts poses a security risk.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.AcceptHostKey = true
objScp.CopyToRemote "Smalltoken.file", "."
Type:
String
Description:
The Scp 'CopyToRemote' and 'CopyToLocal' functions copy the host key fingerprint to this property
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToRemote "Smalltoken.file", "."
WScript.Echo "Host key fingerprint: " & objScp.HostFingerprint
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.LogFile = "Log.txt"
objScp.CopyToRemote "Smalltoken.file", "."
| Function | Description |
| Clear | Reset all properties to the default values |
| CopyToLocal | Copy the files to the local host |
| CopyToRemote | Copy the files to the remote host |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to the initial values.
Parameters:
Return value:
Always 0.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToRemote "Smalltoken.file", "."
objScp.Clear ' Resets properties
' Set new property values
...
objScp.CopyToRemote "Smalltoken.file", "."
objScp.Clear
...
Description:
Copy a file or directory from the remote host specified in the 'Host' property to the local host.
Parameters:
Return value:
Always 0.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToLocal "Smalltoken.file", "C:\test"
Description:
Copy a file or directory from the local to the remote host specified in the 'Host' property.
Parameters:
Return value:
Always 0.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
...
objScp.CopyToRemote "Smalltoken.file", "/var/www/upload"
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objScp = CreateObject("ActiveXperts.Scp") ' Create an Scp instance
objScp.Host = "192.168.1.10"
objScp.UserName = "mjohnson"
objScp.Password = "topsecret"
objScp.CopyToRemote "Smalltoken.file", "."
WScript.Echo "Error description: " & objScp.GetErrorDescription( objScp.LastError )
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Return value:
Always 0.
Example:
Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Create Scp object
...
objScp.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objScp = CreateObject( "ActiveXperts.Scp" ) ' Create Scp object objScp.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
SFTP (Secure File Transfer Protocol) allows secure network file transfer over an insecure network, such as the Internet.
The Secure File Transfer Protocol is an extension to the SSH version 2.0 protocol. Most SSH server implementations will also allow for SFTP logins. SFTP is the secure successor to SFTP.
The ActiveSocket SFTP implementation is based on the PuTTY implementation. With the ActiveSocket SFtp object, you can login onto a remote machine running the SSH-2 daemon and has the SFTP service enabled.
There are two ways to authenticate: by using a password or by using a 'private key'. When using a password to authenticate it is required that the host private key is known to the system. If the hosts private key is unknown to the system or if it was changed since the last connection the Sftp object will return an error. To connect anyway and store the host key in the registry for future connections the 'AcceptHostKey' property can be set.
NOTE:
The following sample (in VBScript) changes to a 'test' directory, lists the directory and gets the 'Smalltoken.file' file on '192.168.1.10' by logging in using a password:
' Helper function to expand a string variable to a specified length Function Pad(ByRef Text, ByVal Length) Pad = Left(Text & Space(Length), Length) End Function ' Helper function to test and find the error description and exit Function test_lasterror() If objSFtp.LastError <> 0 Then WScript.Echo "Error " & objSFtp.LastError If objSFtp.ProtocolError <> "" Then WScript.Echo "Protocol error: " & objSFtp.ProtocolError WScript.Quit 1 End If End If End Function ' Connect to the host Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance objSFtp.Host = "192.168.1.10" ' Hostname or IP address of ' remote UNIX/LINUX machine objSFtp.UserName = "demo" ' Login as 'demo' objSFtp.Password = "topsecret" ' Use a password to login WScript.Echo "Connect" objSFtp.Connect ' Connect to the SFTP server test_lasterror ' Change directory objSFtp.ChangeDir "test" test_lasterror ' List directory contents Set f = objSFtp.FindFirstFile(".") test_lasterror While objSFtp.LastError = 0 str = pad(f.name, 30) & pad(f.SizeKb & "KB", 10) & f.Date WScript.Echo str Set f = objSFtp.FindNextFile WEnd ' Get smalltoken file objSFtp.GetFile "Smalltoken.file", "." test_lasterror objSFtp.Disconnect ' YES, command has completed WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Name | String | Out | Filename |
| IsDirectory | Boolean | Out | Is the file a directory (True) or a file (False) |
| SizeBytes | Number | Out | Size of file (in bytes) |
| SizeBytesHigh | Number | Out | High part of he size of the file |
| SizeKB | Number | Out | Size of file (in kilobytes) |
| SizeMB | Number | Out | Size of file (in megabytes) |
| DateSeconds | Number | Out | Last modification date of the file (in seconds after 1/1/1970) |
| Date | String | Out | Last modification date of the file (as a friendly string) |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| ProtocolError | String | Out | If the last called function triggered a protocol error. This property will contain more information. |
| Host | String | In/Out | Specifies the host to connect to |
| Port | Number | In/Out | TCP port number to identify a (remote) SFTP daemon. Default: 22 |
| UserName | String | In/Out | Specifies the user name to use on the remote host |
| Password | String | In/Out | Specifies the password to use on the remote host. If this property is left blank the 'PrivateKeyFile' property will be used to authenticate. |
| PrivateKeyFile | String | In/Out | Specifies the private key file to logon to the remote host. If this property is left blank the 'password' property will be used to authenticate. |
| AcceptHostKey | Boolean | In/Out | Specifies whether to accept an unknown or changed host key |
| HostFingerprint | String | Out | The SFtp 'Connect' function copies the host key fingerprint to this property |
| Compression | Boolean | In/Out | Specifies whether compression should be used while transferring files |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
File name.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objSFtpFile.SizeBytes WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Boolean
Description:
True indicates a directory, False indicates a file.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objSFtpFile.SizeBytes WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Number
Description:
Size (in bytes) of the file. This field is actually the lower part of a 64Bit file size. The high part is located in the SizeBytesHigh property. Using only this property will be sufficient if files are not bigger than 4GB.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory ' Calculate the size of the file. WScript.Echo "Size (in bytes) : " & _ (objSFtpFile.SizeBytesHigh * (2^32) + bjFtpFile.SizeBytes) WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Number
Description:
The high 32bit part of he size of the file. The lower part is located in the SizeBytes property. If the filesize is smaller than 4GB this property will be 0.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory ' Calculate the size of the file. WScript.Echo "Size (in bytes) : " & _ (objSFtpFile.SizeBytesHigh * (2^32) + bjFtpFile.SizeBytes) WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Number
Description:
Contains the size in KB of the file when the file size is smaller than 4TB (4 Terabyte; 4 * 2^40 Bytes).
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in KB) : " & objSFtpFile.SizeKB WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Number
Description:
Contains the size in MB of the file when the file size is smaller than 4PB (4 Petabyte; 4 * 2^50 Bytes).
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in MB) : " & objSFtpFile.SizeMB WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
Number
Description:
last modified date and time of the file, in seconds after 1/1/1970.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objSFtpFile.SizeBytes WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
String
Description:
last modified date and time of the file, as a friendly string.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Connect ' Connect to the SFTP server ... Set objSFtpFile = objSFtp.FindFirstFile(".") ' Get first file in the ' directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Name : " & objSFtpFile.Name WScript.Echo "IsDirectory : " & objSFtpFile.IsDirectory WScript.Echo "Size (in bytes) : " & objSFtpFile.SizeBytes WScript.Echo "DateSeconds : " & objSFtpFile.DateSeconds WScript.Echo "Date : " & objSFtpFile.Date ' Display last modified ' date/time as a friendly string End If ... objSFtp.Disconnect ' Disconnect
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create SFtp object
WScript.Echo "Version: " & objSFtp.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create SFtp object
WScript.Echo "Build: " & objSFtp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create SFtp object
WScript.Echo "ExpirationDate: " & objSFtp.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.Connect
WScript.Echo "LastError: " & objSFtp.LastError
Type:
String
Description:
If the last called function triggered a protocol error. This property will contain more information. The protocol error string is usually triggered and formulated into an error description at the remote host.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.Connect
WScript.Echo "ProtocolError: " & objSFtp.ProtocolError
Type:
String
Description:
Specifies the host on which to run the command.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
objSFtp.Host = "server01.domain.dom"
...
objSFtp.Connect
Type:
Number
Description:
TCP port number to identify a remote SSH daemon. If you don't specify the 'Port' property, port 22 (default SSH port) is used.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
objSFtp.Host = "server01.domain.dom"
objSFtp.Port = 8022 ' Use port 8022 instead of 22
...
objSFtp.Connect
Type:
String
Description:
Specifies the user name to use on the remote host. You must also specify either a Password or Private Key to logon to the machine.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
objSFtp.Host = "server01.domain.dom"
objSFtp.UserName = "mjohnson"
objSFtp.Password = "topsecret"
objSFtp.Connect
Type:
String
Description:
Specifies the password to use on the remote host. If you do not use a password, you must use a Private Key to logon to the machine.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
objSFtp.Host = "server01.domain.dom"
objSFtp.UserName = "mjohnson"
objSFtp.Password = "topsecret"
objSFtp.Connect
Type:
String
Description:
Specifies the private key file to use on the remote host. If you do not use a private key, you must use a Password to logon to the machine.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
objSFtp.Host = "server01.domain.dom"
objSFtp.UserName = "mjohnson"
objSFtp.PrivateKeyFile= "c:\keys\root.ppk"
objSFtp.Connect
Type:
Boolean
Description:
Specifies whether to accept an unknown or changed host key and add it to the registry. Leaving this property set to true when connecting to unknown or untrusted hosts poses a security risk.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.AcceptHostKey = true
objSFtp.Connect
Type:
String
Description:
The SFtp 'Connect' function copies the host key fingerprint to this property
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.Connect
WScript.Echo "Host key fingerprint: " & objSFtp.HostFingerprint
Type:
Boolean
Description:
Specifies whether to use compression when copying files to the remote location. This will enable faster file transfer rates at the cost of a higher load on the server/client side.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.Compression = true
objSFtp.Connect
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objSFtp = CreateObject("ActiveXperts.SFtp") ' Create an SFtp instance
...
objSFtp.LogFile = "Log.txt"
objSFtp.Connect
| Function | Description |
| Clear | Reset all properties to their default values |
| Connect | Connect to a remote SFTP server |
| Disconnect | Close the connection |
| GetCurrentDir | Retrieve the current directory |
| ChangeDir | Change directory |
| CreateDir | Create directory |
| RenameDir | Rename directory |
| DeleteDir | Delete directory |
| FindFile | Find a file in the current directory |
| FindFirstFile | Find first file in the search pattern / directory |
| FindNextFile | Find next file in the current directory |
| RenameFile | Rename a file in the current directory |
| DeleteFile | Delete a file in the current directory |
| GetFile | Download (get) a file from the current directory |
| PutFile | Upload (put) a file to the current directory |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Suspends the execution of the object for at least the specified interval |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 ... objSFtp.Disconnect ' Disconnect objSFtp.Clear ' Clear properties before connecting ' to another SFTP server objSFtp.Host = "SFtp2" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp2
Description:
Call this function to connect to a remote SFTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ... objSFtp.Disconnect End If
Description:
Call this function to close a connnection that was established using the Connect function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.Disconnect ' Close the session End If
Description:
The directory string. If the function fails, an empty string is returned and the LastError property is set to a non-zero value indicating the reason for failing.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... strCurrentDir = objSFtp.GetCurrentDir() ' Retrieve current directory If( objSFtp.LastError = 0 ) Then WScript.Echo "Current Directory: " & strCurrentDir End If objSFtp.Disconnect ' Close the session End If
Description:
Change the current directory on the remote SFTP server. You can use a fully qualified directory name, or a plain directory name.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.ChangeDir( "family" ) ' Change directory to: /pictures/family ... objSFtp.ChangeDir( "/pictures/friends" ) ' Change directory to: /pictures/friends ... objSFtp.Disconnect ' Close the session End If
Description:
Create a new directory on the remote SFTP server in the directory indicated by GetCurrentDir.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.CreateDir( "family" ) ' Create new directory 'family' ... objSFtp.Disconnect ' Close the session End If
Description:
Rename directory.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.RenameDir( "pictures", "images" ) ' Rename directory 'pictures' into 'images' ... objSFtp.Disconnect ' Close the session End If
Description:
Delete a directory.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.DeleteDir( "family" ) ' Delete directory 'family' ... objSFtp.Disconnect ' Close the session End If
Description:
Find a file. You can use a plain filename (the file will then be retrieved from the current directory) or you can use a fully qualified filename.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ' Find file using a fully qualified filename Set objSFtpFile1 = objSFtp.FindFile( "/pictures/picture1.jpg") ... objSFtp.ChangeDir( "/pictures" ) Set objSFtpFile2 = objSFtp.FindFile( "picture2.jpg") ' Find file using a plain filename objSFtp.Disconnect ' Close the session End If
Description:
Iterate over all files and directories in the search pattern. The search pattern can either be a directory or a wildcard search. The 'FindFirstFile' function retrieves the first file/directory. You can call 'FindNextFile' until there are no more files/directories.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then Set objSFtpFile = objSFtp.FindFirstFile(".") While( objSFtp.LastError = 0 ) WScript.Echo "File: " & objSFtpFile.Name ' Display filename ' (or directoryname) Set objSFtpFile = objSFtp.FindNextFile() WEnd objSFtp.Disconnect ' Close the session End If
Description:
Iterate over all files and directories in the search pattern. The search pattern can either be a directory or a wildcard search. The 'FindFirstFile' function retrieves the first file/directory. You can call 'FindNextFile' until there are no more files/directories.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then Set objSFtpFile = objSFtp.FindFirstFile(".") While( objSFtp.LastError = 0 ) WScript.Echo "File: " & objSFtpFile.Name ' Display filename (or dir.name) Set objSFtpFile = objSFtp.FindNextFile() WEnd objSFtp.Disconnect ' Close the session End If
Description:
Rename file.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.RenameFile( "old.jpg", "new.jpg" ) ' Rename 'old.jpg' into 'new.jpg' ... objSFtp.Disconnect ' Close the session End If
Description:
Iterate over all files and directories in the search pattern. The search pattern can either be a directory or a wildcard search. The 'FindFirstFile' function retrieves the first file/directory. You can call 'FindNextFile' until there are no more files/directories.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then Set objSFtpFile = objSFtp.FindFirstFile(".") While( objSFtp.LastError = 0 ) WScript.Echo "File: " & objSFtpFile.Name ' Display filename (or dir.name) Set objSFtpFile = objSFtp.FindNextFile() WEnd objSFtp.Disconnect ' Close the session End If
Description:
Download a file from the SFTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.GetFile( "pict1.jpg", "c:\pictures\file1.jpg" ) ' Download 'pict1.jpg' ... objSFtp.ChangeDir( "/" ) ' Change directory to: / objSFtp.GetFile( "/pictures/pict1.jpg", "c:\pict\file1.jpg" )' Download 'pict2.jpg' objSFtp.Disconnect ' Close the session End If
Description:
Upload a file to the SFTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 If( objSFtp.LastError = 0 ) Then ... objSFtp.ChangeDir( "/pictures" ) ' Change directory to: /pictures objSFtp.PutFile( "c:\pictures\pict3.jpg", "/pictures/pict3.jpg" )' Upload 'pict3.jpg' ... objSFtp.PutFile( "c:\pictures\pict4.jpg", "/pictures/pict4.jpg" )' Upload 'pict4.jpg' End If
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create a new SFtp instance ... objSFtp.Host = "SFtp1" objSFtp.UserName = "demo" objSFtp.Password = "demo" objSFtp.Connect ' Connect to host SFtp1 WScript.Echo "LastError: " & objSFtp.LastError WScript.Echo "Error description: " & objSFtp.GetErrorDescription( objSFtp.LastError ) ...
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create Ftperver object
...
objSFtp.Sleep 50
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSFtp = CreateObject( "ActiveXperts.SFtp" ) ' Create SFtp object objSFtp.Activate "xyz", True ' Substitute xyz by your ' own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
SNMP stands for Simple Network Management Protocol. Simple Network Management Protocol is a set of standards for communication with devices connected to a TCP/IP network. It is often used to communicate with hubs and switches.
Since it was developed in 1988, the Simple Network Managment Protocol has become the de facto standard for network management. Because it is a simple solution, requiring little code to implement, vendors can easily build SNMP agents to their products. SNMP is extensible, allowing vendors to easily add network management functions to their existing products. SNMP also separates the managment architecture from the architecture of the hardware devices, which broadens the base of multivendor support. Perhaps most important, unlike other so-called standards, SNMP is not a mere paper specification, but an implementation that is widely available today.
The ActiveSocket Snmp object enables you to add Snmp v1 and Snmp v2c functionality to your program.
Here is a small example (in VBScript) to show how to use the SnmpManager object:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objSnmpManager.Initialize ' Initialize Snmp If( objSnmpManager.LastError <> 0 ) Then WScript.Echo "Initialize failed, error " & objSnmpManager.LastError WScript.Quit End If objSnmpManager.ProtocolVersion = objConstants.asSNMP_VERSION_V2c' Set SNMP protocol version ' before opening SNMP session objSnmpManager.Open "192.168.1.10", "public" ' Open session to remote ' Snmp agent If( objSnmpManager.LastError <> 0 ) Then WScript.Echo "Error " & objSnmpManager.LastError Else objSnmpObject = objSnmpManager.Get( "system.sysName.0" ) ' Retrieve Object ' Identifier value If( objSnmpManager.LastError <> 0 ) Then WScript.Echo "Error " & objSnmpManager.LastError Else WScript.Echo "OID : " & objSnmpObject.Value ' Print Snmp data WScript.Echo " Value:" & objSnmpObject.Value ' Print Snmp data WScript.Echo " Type:" & objSnmpObject.Type ' Print Snmp data End If objSnmpManager.Close() ' Close session End If objSnmpManager.Shutdown ' Uninitialize Snmp
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| Timeout | Number | In/Out | Number of millseconds before an SNMP operation will time out |
| ProtocolVersion | Number | In/Out | Specifies the SNMP protocol version to use |
| LastError | Number | In/Out | Result of the last called function |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSnmpManager = CreateObject("ActiveXperts.SnmpManager") ' Create a new SnmpManager inst.
WScript.Echo "Version: " & objSnmpManager.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSnmpManager = CreateObject("ActiveXperts.SnmpManager") ' Create a new SnmpManager inst.
WScript.Echo "Build: " & objSnmpManager.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager
' instance
WScript.Echo "ExpirationDate: " & objSnmpManager.ExpirationDate
Type:
Number
Description:
Specifies the number of milliseconds before an SNMP operation times out. Default value: 5000 milliseconds.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager inst. objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Timeout = 5000 ' Allow 5000 msecs until an ' SNMP operation times out objSnmpManager.Open "192.168.1.10", "public" ...
Type:
Number
Description:
Specifies the SNMP protocol version to use: asSNMP_VERSION_V1 or
asSNMP_VERSION_V2C.
The default is version asSNMP_VERSION_V2C.
Note: To set the protocol version, you must set the 'ProtocolVersion' property before calling the Open function.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager inst. Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.ProtocolVersion = objConstants.asSNMP_VERSION_V1 ' Use SNMP v1 protocol version. ' Set it before calling 'Open' objSnmpManager.Open "192.168.1.10", "public" ...
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager inst. objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Open "192.168.1.10", "public" WScript.Echo "LastError: " & objSnmpManager.LastError ...
| Function | Description |
| Initialize | Initialize the Snmp object |
| Shutdown | Shut down the Snmp object |
| Clear | Reset all properties to their default values |
| Open | Open an SNMP session to a remote host, using a specified community string |
| Close | Close the existing SNMP session |
| Get | Get the Snmp Data object of the specified OID (Object ID) from the (remote) SNMP agent |
| GetNext | Retrieve the next Snmp Data object from a table or list within an SNMP agent. |
| Set | Assign a new value to the specified OID (Object ID) on the (remote) SNMP agent |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Initializes the Snmp object. Internally, the Initialize function initializes the WinSNMP libraries of the Operating System and allocates all necessary resources. You must call 'Initialize' before you can Open an SNMP session. You must call Shutdown to shut down the object (before unloading the Snmp object).
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp If( objSnmpManager.LastError = 0 ) objSnmpManager.Open "192.168.1.100", "public" ... objSnmpManager.Close ... objSnmpManager.Shutdown End If
Description:
Call this function to shut down the Snmp object. All resources of the object will be released.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp If( objSnmpManager.LastError = 0 ) objSnmpManager.Open "192.168.1.100", "public" ... objSnmpManager.Close ... objSnmpManager.Shutdown ' Uninitialize Snmp End If
Description:
Resets all properties to the initial, default values. Use this function when you are opening/closing SNMP sessions multiple times.
Parameters:
Return value:
Always 0.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) ... objSnmpManager.Close End If objSnmpManager.Clear objSnmpManager.Open "192.168.1.200", "public" If( objSnmpManager.LastError = 0 ) ... objSnmpManager.Close End If objSnmpManager.Shutdown ' Uninitialize Snmp
Description:
Opens an SNMP session to a remote host, using a specified community string.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) WScript.Echo "Yes, session successfully established" ... objSnmpManager.Close End If ...
Description:
Close an SNMP session that was opened by the Open function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) WScript.Echo "Yes, session successfully established" ... objSnmpManager.Close End If ...
Description:
Get the value and type of the specified OID (Object ID) from the (remote) SNMP agent. You must first open a session to the remote agent using the Open function. The return value is an SnmpObject object.
Parameters:
Return value:
The LastError property contains the error code.
Example:
Set objSnmpManager = CreateObject("ActiveXperts.SnmpManager") ' Create a new SnmpManager
' instance
objSnmpManager.Initialize ' Initialize Snmp
...
objSnmpManager.Open "192.168.1.100", "public"
If( objSnmpManager.LastError = 0 )
Set objSnmpObject = objSnmpManager.Get( "system.sysName.0" ) ' Get SnmpObject object
If( objSnmpManager.LastError = 0 )
WScript.Echo "Type: " & objSnmpObject.Type
WScript.Echo "Value: " & objSnmpObject.Value
End If
Set objSnmpObject = objSnmpManager.Get(".1.3.6.1.2.1.1.5.0") ' Get another SnmpObject
' object
If( objSnmpManager.LastError = 0 )
WScript.Echo "Type: " & objSnmpObject.Type
WScript.Echo "Value: " & objSnmpObject.Value
End If
objSnmpManager.Close
End If
...
Description:
Retrieve the next OID from a table or list within an SNMP agent. This function should only be called after a successfull Get function call.
Parameters:
Return value:
An SnmpObject object. If the function fails, the LastError property contains the error code.
Example (SNMP walker):
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new Snmp instance objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) Set objSnmpObject = objSnmpManager.Get( "system.sysName.0" ) ' Get SnmpObject object While( objSnmpManager.LastError = 0 ) WScript.Echo "Type: " & objSnmpObject.Type WScript.Echo "Value: " & objSnmpObject.Value Set objSnmpObject = objSnmpManager.GetNext() ' Get next SnmpObject object End If objSnmpManager.Close End If ...
Description:
Set value and type of the SnmpObject object on the (remote) SNMP agent. You must first open a session to the remote agent using the Open function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) ' Create a new SnmpObject ' instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Open "192.168.1.100", "public" If( objSnmpManager.LastError = 0 ) objSnmpObject.Clear() ' Clear all properties, a ' good practise objSnmpObject.OID = ".1.3.1.2.3.4.5.6.7.8" ' Specify object properties objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS ' Specify object properties objSnmpObject.Value = "10.1.1.10" ' Specify object properties objSnmpManager.Set( objSnmpObject ) ' Call Set objSnmpManager.Close End If ...
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance objSnmpManager.Initialize ' Initialize Snmp ... objSnmpManager.Open "www.thisdoesnotexist.com", "public" WScript.Echo "LastError: " & objSnmpManager.LastError WScript.Echo "Error description: " & objSnmpManager.GetErrorDescription( objSnmpManager.LastError ) ...
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create SnmpManager object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objSnmpManager.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create SnmpManager object objSnmpManager.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
| Property | Type | Read/Write | Description |
| OID | String | In/Out | SNMP Object Identifier |
| Type | Number | In/Out | SNMP data type |
| Value | String | In/Out | SNMP data value |
| RequestID | Number | Out | SNMP node ID |
| Name | String | Out | SNMP object name |
| Path | String | Out | SNMP full path object name |
| NodeID | String | Out | SNMP node ID |
| ParentNodeID | Number | Out | n/a |
| Syntax | String | Out | SNMP OID syntax |
| Access | Number | Out | SNMP OID Access |
| Status | Number | Out | SNMP OID Status |
Type:
String
Description:
SNMP Object Identifier.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager 'instance ... Set objSnmpObject = objSnmpManager.Get( ".1.3.1.1.1.1" ) ' Get an SnmpObject object WScript.Echo "OID : " & objSnmpObject.OID ' Print OID WScript.Echo "Type : " & objSnmpObject.Type ' Print Type WScript.Echo "Value : " & objSnmpObject.Value ' Print Value
Type:
Number
Description:
SNMP data type. For an overview of all SNMP data types, check the SNMP Data Types section.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance ... Set objSnmpObject = objSnmpManager.Get( ".1.3.1.1.1.1" ) ' Get an SnmpObject object WScript.Echo "OID : " & objSnmpObject.OID ' Print OID WScript.Echo "Type : " & objSnmpObject.Type ' Print Type WScript.Echo "Value : " & objSnmpObject.Value ' Print Value
Type:
Variant
Description:
SNMP value as a string. The value type is indicated by the Type property.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance ... Set objSnmpObject = objSnmpManager.Get( ".1.3.1.1.1.1" ) ' Get an SnmpObject object WScript.Echo "OID : " & objSnmpObject.OID ' Print OID WScript.Echo "Type : " & objSnmpObject.Type ' Print Type WScript.Echo "Value : " & objSnmpObject.Value ' Print Value WScript.Echo "RequestID : " & objSnmpObject.RequestID ' Print RequestID
Type:
Number
Description:
This property indicates the request ID of the OID.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance ... Set objSnmpObject = objSnmpManager.Get( ".1.3.1.1.1.1" ) ' Get an SnmpObject object WScript.Echo "OID : " & objSnmpObject.OID ' Print OID WScript.Echo "Type : " & objSnmpObject.Type ' Print Type WScript.Echo "Value : " & objSnmpObject.Value ' Print Value WScript.Echo "RequestID : " & objSnmpObject.RequestID ' Print RequestID
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
String
Description:
'Name' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. This property indicates the plain name of the object.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
String
Description:
'Path' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. This property indicates the full-path name of the object.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name WScript.Echo "OID Full-path Name: " & objSnmp.Path ' Display Full-patt Name
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
Number
Description:
'NodeID' is only set when the SnmpObject is returned by SnmpMibBrowser's Get
or GetNext function.
This property indicates the node ID of the OID.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name WScript.Echo "NodeID: " & objSnmp.NodeID ' Display NodeID
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
Number
Description:
'ParentNodeID' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. This property indicates the parent node ID of the OID.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name WScript.Echo "ParentNodeID: " & objSnmp.ParentNodeID ' Display parent NodeID
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
Number
Description:
'Syntax' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. This property indicates the syntax of the object.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name WScript.Echo "Syntax: " & objSnmp.Syntax ' Display Syntax
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
Number
Description:
'Access' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. Click here for a list of valid Access values
Example:
Set objSnmpManager = CreateObject ( "ActiveXperts.SnmpManager") ' Create a new SnmpManager ' instance Set objConstants = CreateObject ( "ActiveXperts.ASConstants") objSnmpManager.Server = "ns1.interstroom.nl" ' Apply queries to DNS ' server ns1.interstroom.nl objSnmpManager.Lookup "activexperts.com", _ objConstants.asDNS_TYPE_SOA ' Lookup SOA record for ' activexperts.com If( objSnmpManager.LastError = 0 ) Then WScript.Quit End If Set objSnmpObject = objSnmpManager.GetFirstRecord ' Get first DNS record If( objSnmpManager.LastError = 0 ) Then WScript.Echo "Name: " & objSnmpObject.Name ' Display all SOA record fields WScript.Echo "NameServer: " & objSnmpObject.NameServer WScript.Echo "MailBox: " & objSnmpObject.MailBox WScript.Echo "NameServer: " & objSnmpObject.NameServer WScript.Echo "SerialNumber: " & objSnmpObject.SerialNumber WScript.Echo "RefreshInterval: " & objSnmpObject.RefreshInterval WScript.Echo "RetryInterval: " & objSnmpObject.RetryInterval WScript.Echo "ExpirationLimit: " & objSnmpObject.ExpirationLimit WScript.Echo "MinimumTTL: " & objSnmpObject.MinimumTTL End If
MIB properties (only set when used with the SnmpMibBrowser object)
Type:
Number
Description:
'Status' is only set when the SnmpObject is returned by SnmpMibBrowser's Get or GetNext function. Click here for a list of valid Status values
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID WScript.Echo "OID Name: " & objSnmp.Name ' Display Name WScript.Echo "Status: " & objSnmp.Status ' Display Status
| Function | Description |
| Clear | Reset all properties |
| GetErrorDescription | Get the description of the given error |
Description:
Clears all properties of the object.
Parameters:
Return value:
Always 0.
Example:
Set objSnmpManager = CreateObject( "ActiveXperts.SnmpManager" ) ' Create a new SnmpManager ' instance Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) ' Create a new SnmpObject ' instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objSnmpObject.Clear() ' Clear all properties objSnmpObject.OID = "1.3.1.2.3.4.5" objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS objSnmpObject.Value = "10.1.1.10" objSnmpManager.Set( objSnmpObject ) ' SNMP Set
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the specified error code.
Example:
' Create a new SnmpTrapManager instance Set objSnmpObject = CreateObject("ActiveXperts.SnmpTrapManager") objSnmpObject.Initialize ' Initialize SNMP WScript.Echo "LastError: " & objSnmpObject.LastError WScript.Echo "Error description: " & objSnmpObject.GetErrorDescription( objSnmpObject.LastError )
An SNMP trap is simply a notification message that is transmitted by an SNMP-managed device whenever it has something of interest to report.
Traps can be thought of as event messages, similar to the events in the Windows event logs. Traps, like regular SNMP variables, are defined in MIB (Management Information Base) files. They are defined as a set of SNMP variables contained in (or referenced by) an OID (Object Identifier). If you look at the system directory on any Windows machine that has SNMP installed, you will find several MIB files. (They have the extension ".mib".) If you look through them you will see the variables that are supported on that machine.
ActiveSocket has interfaces for sending and receiving SNMP traps.
The SnmpTrapManager object provides properties and functions for sending and receiving SNMP traps.
Here is a small example (in VBScript) to show how to send an SNMP trap using the SnmpTrapManager object:
' Create a new SnmpTrapManager instance Set objSnmpTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Create a new SnmpTrap ' instance Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) ' Create a new SnmpObject ' instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create a new Constants ' instance objSnmpTrapManager.Initialize ' Initialize SNMP If( objSnmpTrapManager.LastError <> 0 ) Then WScript.Quit End If ' Set trap properties objSnmpTrap.Clear() objSnmpTrap.Host = "server06" objSnmpTrap.Community = "public" ' Add a variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.0" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS ' Set trap properties objSnmpObject.Value = "10.0.0.1" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue ' Add another variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.1" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_OCTETSTRING ' Set trap properties objSnmpObject.Value = "One two three" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue objSnmpTrapManager.Send objSnmpTrap ' Send trap WScript.Echo "Send, result: " & objSnmpTrapManager.LastError ' Display the result objSnmpTrapManager.Shutdown ' Uninitialize SNMP
A small example (in VBScript) to show how to receive SNMP traps using the SnmpTrapManager object. The sample listens for incoming traps and displays the results:
' Create a new SnmpTrapManager instance Set objSnmpTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objSnmpTrapManager.Initialize ' Initialize SNMP If( objSnmpTrapManager.LastError <> 0 ) Then WScript.Quit End If objSnmpTrapManager.StartListening "public" ' Start listening now If( objSnmpTrapManager.LastError <> 0 ) Then objSnmpTrapManager.Shutdown ' Uninitialize SNMP WScript.Quit End If Set objSnmpTrap = objSnmpTrapManager.GetFirstTrap ' Get trap While( objSnmpTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' iterate over all variables ' in the trap WScript.Echo " OID : " & objSnmpObject.OID WScript.Echo " Value:" & objSnmpObject.Value WScript.Echo " Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objSnmpTrapManager.GetNextTrap ' Get next trap WEnd objSnmpTrapManager.StopListening ' Stop listening for ' incoming traps objSnmpTrapManager.Shutdown ' Uninitialize SNMP
ActiveSocket ships with a utility to receive SNMP trap messages in the background. This program runs as a Windows service, and stored incoming traps in a database (MS Access database by default). Configration settings are stored in a plain ASCII file. For more information about this SNMP Trap Receiver Service, see Chapter: SNMP Trap Receiver Service.
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| ProtocolVersion | Number | In/Out | Specifies the SNMP protocol version to use |
| LastError | Number | In/Out | Result of the last called function |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
' Create a new SnmpTrapManager instance
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" )
WScript.Echo "Version: " & objTrapManager.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
' Create a new SnmpTrapManager instance
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" )
WScript.Echo "Build: " & objTrapManager.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
' Create a new SnmpTrapManager instance
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" )
WScript.Echo "ExpirationDate: " & objSnmpTrapManager.ExpirationDate
Type:
Number
Description:
Specifies the SNMP protocol version to use: asSNMP_VERSION_V1 or
asSNMP_VERSION_V2C.
The default is version asSNMP_VERSION_V2C.
Note: To set the protocol version, you must set the 'ProtocolVersion' property before calling the
Send function.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Create a new Create ' a new SnmpTrap instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTrapManager.Initialize ' Initialize SNMP ... objSnmpTrap.Host = ... ' Set trap properties objSnmpTrap.Community = ... ' Set trap properties ... objTrapManager.ProtocolVersion = objConstants.asSNMP_VERSION_V1 ' Use SNMP v1 objTrapManager.Send objSnmpTrap ' Send trap ...
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject("ActiveXperts.SnmpTrapManager") objTrapManager.Initialize ' Initialize SNMP WScript.Echo "Initialize, LastError: " & objTrapManager.LastError ... objTrapManager.Shutdown ' Shutdown SNMP ...
| Function | Description |
| Initialize | Initialize the SnmpTrapManager object |
| Shutdown | Shut down the SnmpTrapManager object |
| Clear | Reset all properties to their default values |
| Send | Send a trap |
| StartListening | Start listening for incoming traps |
| StopListening | Stop listening for incoming traps |
| GetFirstTrap | Get first trap in the 'Inbox' |
| GetNextTrap | Get next trap in the 'Inbox' |
| Sleep | Suspends the execution of the object for at least the specified interval |
| GetErrorDescription | Get the description of the given error |
Description:
Initializes the SnmpTrapManager object. Internally, the Initialize function initializes the WinSNMP libraries of the Operating System and allocates all necessary resources. You must call 'Initialize' before you can Send an SNMP trap. You must call Shutdown to shut down the object (before unloading the SnmpTrapManager object).
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject("ActiveXperts.SnmpTrapManager") objTrapManager.Initialize ' Initialize SNMP WScript.Echo "Initialize, LastError: " & objTrapManager.LastError ... objTrapManager.Shutdown ' Shutdown SNMP
Description:
Call this function to shut down the SnmpTrapManager object. All resources of the object will be released.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP If( objTrapManager.LastError = 0 ) ... objSnmpTrapManager.Shutdown ' Shutdown SNMP End If
Description:
Resets all properties to the initial, default values. Use this function when you are opening/closing SNMP sessions multiple times.
Parameters:
Return value:
Always 0.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.Clear ' Reset all properties objTrapManager.ProtocolVersion = objConstants.asSNMP_VERSION_V1 ' Use SNMP v1 ...
Description:
Send a trap to a (remote) SNMP agent.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Create a new SnmpTrap ' instance Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) ' Create a new SnmpObject ' instance Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create a new Constants ' instance objTrapManager.Initialize ' Initialize SNMP If( objTrapManager.LastError <> 0 ) Then WScript.Quit End If ' Set trap properties objSnmpTrap.Clear() objSnmpTrap.Host = "server06" objSnmpTrap.Community = "public" ' Add a variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.0" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS ' Set trap properties objSnmpObject.Value = "10.0.0.1" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue ' Add another variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.1" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_OCTETSTRING ' Set trap properties objSnmpObject.Value = "One two three" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the trap to the queue objTrapManager.Send objSnmpTrap ' Send trap WScript.Echo "Send, result: " & objTrapManager.LastError ' Display the result objTrapManager.Shutdown ' Uninitialize SNMP
Description:
Start listening for incoming traps. The function returns immediately. From that moment, it will store all incoming traps in the internal queue. Use GetFirstTrap and GetNextTrap to fetch the received traps from the internal queue.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
' Create a new Snmp instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "" ' Start listening on ' this computer for any ' incoming traps objTrapManager.Sleep 30000 ' Store all incoming ' traps for 30 seconds objTrapManager.Stoplistening ' Stop listening ...
Description:
Stop listening for incoming traps. It only makes sense to call this functions if the program is in 'listen' mode, i.e. if the program called StartListening in an earlier stage.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
' Create a new Snmp instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "public" ' Start listening on this ' computer for incoming traps objTrapManager.Sleep 30000 ' Store all incoming traps ' for 30 seconds objTrapManager.Stoplistening ' Stop listening ...
Description:
Get the first trap from the internal queue. Traps are retrieve in FIFO (first-in-first-out) order. The queue is cleared automatically when GetNextTrap has fetched the last item in the queue.
Parameters:
Return value:
An LastError property to see if the function was completed successfully.
Example:
' Create a new Snmp instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "public" ' Start listening now ... Set objSnmpTrap = objTrapManager.GetFirstTrap ' Get trap While( objTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' iterate over all variables in ' the trap WScript.Echo "OID : " & objSnmpObject.OID WScript.Echo "Value:" & objSnmpObject.Value WScript.Echo "Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objTrapManager.GetNextTrap ' Get next trap WEnd objTrapManager.StopListening ' Stop listening for ' incoming traps objTrapManager.Shutdown ' Uninitialize SNMP
Description:
Get the next trap from the internal queue. Traps are retrieve in FIFO (first-in-first-out) order. The queue is cleared automatically when 'GetNextTrap' has fetched the last item in the queue.
Parameters:
Return value:
Check the LastError property to see if the function was completed successfully.
Example:
' Create a new Snmp instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "public" ' Start listening now ... Set objSnmpTrap = objTrapManager.GetFirstTrap ' Get trap While( objTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' iterate over all variables in ' the trap WScript.Echo "OID : " & objSnmpObject.OID WScript.Echo "Value:" & objSnmpObject.Value WScript.Echo "Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objTrapManager.GetNextTrap ' Get next trap WEnd objTrapManager.StopListening ' Stop listening for ' incoming traps objTrapManager.Shutdown ' Uninitialize SNMP
Description:
Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.Send objSnmpTrap objTrapManager.Sleep 5000 ' Suspend 5 seconds before ' sending the next trap objTrapManager.Send objSnmpTrap ...
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the specified error code.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject("ActiveXperts.SnmpTrapManager") objTrapManager.Initialize ' Initialize SNMP WScript.Echo "LastError: " & objTrapManager.LastError WScript.Echo "Error description:" & objTrapManager.GetErrorDescription(objTrapManager.LastError)
| Property | Type | Read/Write | Description |
| Host | String | In/Out | SNMP host |
| Community | String | In/Out | SNMP community |
| Port | Number | In/Out | SNMP port |
| GenericTrap | Number | In/Out | Generic Trap identifier |
| SpecificTrap | Number | In/Out | Specific Trap identifier (custom trap) |
| Enterprise | String | In/Out | Relative OID path |
| UpTime | String | In/Out | UpTime |
Type:
String
Description:
Host or IP address. If the object is used for sending traps, the 'Host' property specifies the remote host to send the trap to. If the object is returned by the GetFirstTrap or GetNextTrap function, the 'Host' propery identifies the host where the trap was received from.
Example:
' Create a new SnmpTrapManager instance Set objSnmpManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objSnmpTrapManager.StartListening "public" ... Set objSnmpTrap = objSnmpTrapManager.GetFirstTrap While objSnmpTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objSnmpTrapManager.GetNextTrap WEnd ... objSnmpTrapManager.StopListening
Type:
String
Description:
Community name. If the object is used for sending traps, the 'Community' property specifies the community used for sending traps. If the object is returned by the GetFirstTrap or GetNextTrap function, the 'Community' propery identifies the community on which the trap was received from.
Example:
' Create a new SnmpTrapManager instance Set objSnmpManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objSnmpTrapManager.StartListening "public" ... Set objSnmpTrap = objSnmpTrapManager.GetFirstTrap While objSnmpTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objSnmpTrapManager.GetNextTrap WEnd ... objSnmpTrapManager.StopListening
Type:
Number
Description:
SNMP port. If the object is used for sending traps, the 'Port' property specifies the port used for sending traps (default: 162). If the object is returned by the GetFirstTrap or GetNextTrap function, the 'Port' propery identifies the port on which the trap was received.
Example:
' Create a new SnmpTrapManager instance Set objSnmpManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objSnmpTrapManager.StartListening "public" ... Set objSnmpTrap = objSnmpTrapManager.GetFirstTrap While objSnmpTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Port:" & objSnmpTrap.Port ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objSnmpTrapManager.GetNextTrap WEnd ... objSnmpTrapManager.StopListening
Type:
Number
Description:
This property can only be used with SNMP v1. For a list of valid values, click here.
Example:
' Create a new SnmpTrapManager instance Set objSnmpManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objTrapManager.StartListening "public" ... Set objSnmpTrap = objTrapManager.GetFirstTrap While objSnmpTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objTrapManager.GetNextTrap WEnd ... objTrapManager.StopListening
Type:
Number
Description:
This property can only be used with SNMP v1. You can specify a custom trap type.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objSnmpTrapManager.StartListening "public" ... Set objSnmpTrap = objSnmpTrapManager.GetFirstTrap While objSnmpTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objSnmpTrapManager.GetNextTrap WEnd ... objSnmpTrapManager.StopListening
Type:
String
Description:
This property can only be used with SNMP v1. It indicates the relative OID.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objTrapManager.StartListening "public" ... Set objSnmpTrap = objTrapManager.GetFirstTrap While objTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objTrapManager.GetNextTrap WEnd ... objTrapManager.StopListening
Type:
Number
Description:
Provides the amount of time that has elapsed between the last network reinitialization and generation of the trap. This property is available for both SNMP v1 and SNMP v2c.
Example:
' Create a new SnmpTrapManager instance Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) ... objTrapManager.StartListening "public" ... Set objSnmpTrap = objTrapManager.GetFirstTrap While objTrapManager.LastError = 0 WScript.Echo "Host : " & objSnmpTrap.Host ' Print incoming trap properties WScript.Echo "Community:" & objSnmpTrap.Community ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties WScript.Echo "GenericTrap:" & objSnmpTrap.GenericTrap ' Print incoming trap properties WScript.Echo "SpecificTrap:" & objSnmpTrap.SpecificTrap ' Print incoming trap properties WScript.Echo "Enterprise:" & objSnmpTrap.Enterprise ' Print incoming trap properties WScript.Echo "Uptime:" & objSnmpTrap.UpTime ' Print incoming trap properties Set objSnmpTrap = objTrapManager.GetNextTrap WEnd ... objTrapManager.StopListening
| Function | Description |
| Clear | Reset all properties to their default values |
| AddObject | Add a new SNMP object to the trap |
| GetFirstObject | Get first variable |
| GetNextObject | Get next variable |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) ' Create a new SnmpTrap instance ... objSnmpTrap.Clear() ' Clear all properties objSnmpTrap.Host = ... objSnmpTrap.Community = ...
Description:
Add an SnmpObject to the trap. You can add multiple SnmpObjects to a trap.
Parameters:
Return value:
Always 0.
Example:
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) Set objSnmpTrap = CreateObject( "ActiveXperts.SnmpTrap" ) Set objSnmpObject = CreateObject( "ActiveXperts.SnmpObject" ) Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) objTrapManager.Initialize ... ' Set trap properties objSnmpTrap.Clear() objSnmpTrap.Host = "server06" objSnmpTrap.Community = "public" ' Add a variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.0" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_IPADDRESS ' Set trap properties objSnmpObject.Value = "10.0.0.1" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the object to the trap ' Add another variable to the trap objSnmpObject.Clear() ' Clear trap object objSnmpObject.OID = ".1.3.6.1.2.1.1.5.1" ' Set trap properties objSnmpObject.Type = objConstants.asSNMP_TYPE_OCTETSTRING ' Set trap properties objSnmpObject.Value = "One two three" ' Set trap properties objSnmpTrap.AddObject objSnmpObject ' Add the object to the trap objTrapManager.Send objSnmpTrap ' Send trap ...
Description:
Iterate over all SnmpTrap objects in the trap. There can be 1 or more SnmpTrap objects in one trap.
Parameters:
Return value:
A reference to an SnmpTrap object.
Example:
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "public" ' Start listening now ... Set objSnmpTrap = objTrapManager.GetFirstTrap ' Get trap While( objTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' iterate over all variables ' in the trap WScript.Echo "OID : " & objSnmpObject.OID WScript.Echo "Value:" & objSnmpObject.Value WScript.Echo "Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objTrapManager.GetNextTrap ' Get next trap WEnd objTrapManager.StopListening ' Stop listening for ' incoming traps objTrapManager.Shutdown ' Uninitialize SNMP
Description:
Iterate over all SnmpTrap objects in the trap. There can be 1 or more SnmpTrap objects in one trap.
Parameters:
Return value:
A reference to an SnmpTrap object.
Example:
Set objTrapManager = CreateObject( "ActiveXperts.SnmpTrapManager" ) objTrapManager.Initialize ' Initialize SNMP ... objTrapManager.StartListening "public" ' Start listening now ... Set objSnmpTrap = objTrapManager.GetFirstTrap ' Get trap While( objTrapManager.LastError = 0 ) WScript.Echo "Trap from : " & objSnmpTrap.Host WScript.Echo " Community : " & objSnmpTrap.Community Set objSnmpObject = objSnmpTrap.GetFirstObject While( objSnmpTrap.LastError = 0 ) ' iterate over all variables in ' the trap WScript.Echo "OID : " & objSnmpObject.OID WScript.Echo "Value:" & objSnmpObject.Value WScript.Echo "Type:" & GetTypeString( objSnmpObject.Type ) Set objSnmpObject = objSnmpTrap.GetNextObject WEnd Set objSnmpTrap = objTrapManager.GetNextTrap ' Get next trap WEnd objTrapManager.StopListening ' Stop listening for ' incoming traps objTrapManager.Shutdown ' Uninitialize SNMP
ActiveSocket ships with a utility to receive SNMP trap messages in the background. This program runs as a Windows service, and stores incoming traps in a database (MS Access database by default). Configuration settings are stored in a plain ASCII file.
The 'SNMP Trap Receiver Service' is not installed by default. You need to run the SNMP Trap Receive 'Installation and Configuration' program first. You can access this program from the Start menu:
After installation, you can run the same program again to make changes to the configuration. The same program can also be used to uninstall the service.
All configuration items are stored in a single text file. The following registry key points to the configuration file:
HKLM\Software\ActiveXperts\ActiveSocket\SnmpTrapReceiver\ConfigFile
By default, this entry points to the CONFIG.INI file located in the same directory as the service executable, i.e.:
C:\Program Files\ActiveXperts\ActiveSocket\Service\Config.ini
This plain text file can be modified by any text editor, including notepad.
The SNMP Trap Receiver Service uses two files for its output:
The configration file holds the following entries:
| Name | Description |
| Port | Port used by the service to listen for incoming SNMP traps. Default: 162 |
| Community | SNMP community name. Default: public |
| Database | OLE/DB database connection string |
| LogEnabled | Use this value to enable/disable logging. 0 means: disabled; 1 means: enabled |
| LogLevel | Indicates the logging level. 0 indicates: minimal logging; 1 indicates: average logging; 2 indicates: maximum logging |
| LogFile | Name of the log file |
You can use the 'Installation and Configuration' program (the one that is also used to install the service) to configure the service.
To uninstall the SNMP Trap Receiver Service, use the same program as used to install the service. The program has the option to uninstall the service.
A management information base (MIB) is a database used to manage the devices in a communications network. The database is hierarchical (tree-structured) and entries are addressed through object identifiers (OID's).
A MIB should contain information on these commands and on the target objects (controllable entities or potential sources of status information) with a view to tuning the network transport to the current needs. Each type of object in a MIB database has a name, a syntax, and an encoding. The name is represented uniquely as an OID. An OID is an administratively assigned name. The administrative policies used for assigning names are discussed later in this memo.
Use ActiveSocket's 'SnmpMibBrowser' object to load a MIB database into memory and iterate over all objects and view all properties.
Here is a small example (in VBScript) to show how to load a MIB file and display its complete tree structure:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file WScript.Echo "LoadMibFile, result: " & objSnmpMib.LastError If( objSnmpMib.LastError <> 0 ) Then WScript.Quit End If Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID While(objSnmpMIB.LastError = 0 ) WScript.Echo "OID Name: " & objSnmp.Name & "; Full-path: " & objSnmp.Path WScript.Echo " Description: " & objSnmp.Description WScript.Echo " Access: " & objSnmp.Access WScript.Echo " Status: " & objSnmp.Status Set objSnmp = objSnmpMIB.GetNext() ' Get next OID WEnd
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the lasat called function |
| LogFile | String | In/Out | Log file that can be used for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSnmpMib = CreateObject("ActiveXperts.SnmpMibBrowser") ' Create SnmpMibBrowser object
WScript.Echo "Version: " & objSnmpMib.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSnmpMib = CreateObject("ActiveXperts.SnmpMibBrowser") ' Create SnmpMibBrowser object
WScript.Echo "Build: " & objSnmpMib.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create SnmpMibBrowser
' object
WScript.Echo "ExpirationDate: " & objSnmpMib.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objSnmpMib = CreateObject("ActiveXperts.SnmpMibBrowser") ' Create SnmpMibBrowser object
...
objSnmpMib.Get( "iso" )
WScript.Echo "LastError: " & objSnmpMib.LastError
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all MIB browser operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all MIB browser operations will be written to this log file.
Example:
Set objSnmpMib = CreateObject("ActiveXperts.SnmpMibBrowser") ' Create SnmpMibBrowser object
objSnmpMib.LogFile = "c:\snmpmib.txt"
...
objSnmpMib.Get( "iso" )
| Function | Description |
| LoadMibFile | Load a MIB database from file into memory |
| Get | Get the first object from the MIB database |
| GetNext | Get the next object from the MIB database |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
Description:
Load a MIB database from file into memory.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID ...
Description:
Get the first object from the MIB database. Use GetNext to retrieve the next object from the MIB database.
Parameters:
Return value:
An SnmpObject object. If the function fails, a null reference is returned and the LastError property is set to a non-zero value indicating the reason for failing.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file ... Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID While(objSnmpMIB.LastError = 0 ) WScript.Echo "OID path: " objSnmp.Path Set objSnmp = objSnmpMIB.GetNext() ' Get next OID WEnd
Description:
Get the next object from the MIB database. Use Get to retrieve the first object from the MIB database.
Parameters:
Return value:
The LastError property is set to a non-zero value indicating the reason for failing.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create a new SnmpMibBrowser ' instance objSnmpMib.LoadMibFile( "c:\windows\system32\hostmib.mib" ) ' Load MIB file ... Set objSnmp = objSnmpMIB.Get("iso") ' Get first OID While(objSnmpMIB.LastError = 0 ) WScript.Echo "OID path: " objSnmp.Path Set objSnmp = objSnmpMIB.GetNext() ' Get next OID WEnd
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) objSnmpMib.Host = "www.activexperts.com" objSnmpMib.Query() ' Translate host/IP to country WScript.Echo "Query, result: " & objSnmpMib.LastError & _ ' Error code objSnmpMib.GetErrorDescription( objSnmpMib.LastError ) ' Error Description
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objSnmpMib = CreateObject( "ActiveXperts.SnmpMibBrowser" ) ' Create SnmpMibBrowser object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objSnmpMib.Sleep 500
SSH Secure Shell allows secure network services over an insecure network, such as the Internet.
The Secure Shell concept originated on UNIX as a replacement for the insecure "Berkeley services", that is, the rsh , rcp, and rlogin commands. SSH Secure Shell replaces other, insecure terminal applications (such as Telnet and FTP). It allows you to securely login to remote host computers, to execute commands safely in a remote computer, to securely copy remote files, to forward X11 sessions (on UNIX), and to provide secure encrypted and authenticated communications between two non-trusted hosts. Also arbitrary TCP/IP ports can be forwarded over the secure channel, enabling secure connection, for example, to an email service.
SSH Secure Shell with its array of unmatched security features is an essential tool in today's network environment. It is a powerful guardian against the numerous security hazards that nowadays threaten network communications.
The ActiveSocket Ssh implementation is based on the PuTTY implementation. With the ActiveSocket Ssh object, you can login onto a remote machine running the SSH daemon, and execute a command or shell script. It has no user interface by itself: standard error and standard output are not copied to the console, but are copied to the corresponding object properties (StdErr and StdOut) instead.
There are two ways to authenticate: by using a password or by using a 'private key'. When using a password to authenticate it is required that the host private key is known to the system. If the hosts private key is unknown to the system or if it was changed since the last connection the Ssh object will return an error. To connect anyway and store the host key in the registry for future connections the 'AcceptHostKey' property can be set.
NOTES:
The following sample (in VBScript) runs the '/bin/ls' command on host '192.168.1.10' by logging in using a password:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objSsh.UserName = "root" ' Login as 'root'
objSsh.Password = "topsecret" ' Use a password to login
objSsh.Command = "/bin/ls" ' Command to execute
objSsh.ScriptTimeOut = 5000 ' Time-out (in milliseconds)
objSsh.Run ' Execute the command now
WScript.Echo "Run: result = " & objSsh.LastError
If objSsh.LastError <> 0 Then
WScript.Echo "Error " & objSsh.LastError
End If
' YES, command has completed
WScript.Echo "StdErr: " & objSsh.StdErr ' Print Standard Output
WScript.Echo "StdOut: " & objSsh.StdOut ' Print Standard Error
WScript.Echo "Ready."
The following sample (in VBScript) runs the '/bin/ls' command on host '192.168.1.10' by using a private key file:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "192.168.1.10" ' Hostname or IP address of
' remote UNIX/LINUX machine
objSsh.UserName = "root" ' Login as 'root'
objSsh.PrivateKeyFile = "c:\files\privkey.ppk" ' Use a private key file to login
objSsh.Command = "/bin/ls" ' Command to execute
objSsh.ScriptTimeOut = 5000 ' Time-out (in milliseconds)
objSsh.Run ' Execute the command now
WScript.Echo "Run: result = " & objSsh.LastError
If objSsh.LastError <> 0 Then
WScript.Echo "Error " & objSsh.LastError
Else
' YES, command has completed
WScript.Echo "StdErr: " & objSsh.StdErr ' Print Standard Output
WScript.Echo "StdOut: " & objSsh.StdOut ' Print Standard Error
End If
WScript.Echo "Ready."
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| Host | String | In/Out | Specifies the host on which to run the command |
| Port | Number | In/Out | TCP port number to identify a (remote) SSH daemon. Default: 22 |
| UserName | String | In/Out | Specifies the user name to use on the remote host |
| Password | String | In/Out | Specifies the password to use on the remote host |
| PrivateKeyFile | String | In/Out | Specifies the private key file to logon to the remote host. |
| Command | String | In/Out | Specifies the command to run on the remote host |
| ScriptTimeOut | Number | In/Out | Specifies the number of milliseconds before the command will times out |
| AcceptHostKey | Boolean | In/Out | Specifies whether to accept an unknown or changed host key |
| HostFingerprint | String | Out | The Ssh 'Run' function copies the host key fingerprint to this property |
| StdErr | String | Out | The Ssh 'Run' function copies its standard error to this property |
| StdOut | String | Out | The Ssh 'Run' function copies its standard output to this property |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Create Ssh object
WScript.Echo "Version: " & objSsh.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Create Ssh object
WScript.Echo "Build: " & objSsh.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Create Ssh object
WScript.Echo "ExpirationDate: " & objSsh.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
...
objSsh.Run
WScript.Echo "LastError: " & objSsh.LastError
Type:
String
Description:
Specifies the host on which to run the command.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
...
objSsh.Command = "/bin/ls"
objSsh.Run
Type:
Number
Description:
TCP port number to identify a remote SSH daemon. If you don't specify the 'Port' property, port 22 (default SSH port) is used.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
objSsh.Port = 8022 ' Use port 8022 instead of 22
...
objSsh.Command = "/bin/ls"
objSsh.Run
Type:
String
Description:
Specifies the user name to use on the remote host. You must also specify either a Password or Private Key to logon to the machine.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Command = "/bin/ls"
objSsh.Run
Type:
String
Description:
Specifies the password to use on the remote host. If you do not use a password, you must use a Private Key to logon to the machine.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Command = "/bin/ls"
objSsh.Run
Type:
String
Description:
Specifies the private key file to use on the remote host. If you do not use a private key, you must use a Password to logon to the machine.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
objSsh.UserName = "mjohnson"
objSsh.PrivateKeyFile= "c:\keys\root.ppk"
objSsh.Command = "/bin/ls"
objSsh.Run
Type:
String
Description:
Specifies the command to run on the remote host.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Command = "/bin/ls"
objSsh.Host = "server01.domain.dom"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Run
Type:
Number
Description:
Specifies the number of milliseconds before the command will time out.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "server01.domain.dom"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Command = "/bin/ls"
objSsh.ScriptTimeOut = 6000 ' Timeout after 6000
' milliseconds
objSsh.Run
Type:
Boolean
Description:
Specifies whether to accept an unknown or changed host key and add it to the registry. Leaving this property set to true when connecting to unknown or untrusted hosts poses a security risk.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
...
objSsh.AcceptHostKey = true
objSsh.Run
Type:
String
Description:
The Ssh 'Run' function copies the host key fingerprint to this property
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
...
objSsh.Run
WScript.Echo "Host key fingerprint: " & objSsh.HostFingerprint
Type:
String
Description:
Ssh connects to the command. Ssh copies its standard error of the remote command to the 'StdErr' property.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
...
objSsh.Run
If( objSsh.LastError = 0 ) Then
WScript.Echo "StdErr: " & objSsh.StdErr
End
Type:
String
Description:
Ssh connects to the command. Ssh copies its standard out of the remote command to the 'StdOut' property.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Run
If( objSsh.LastError = 0 ) Then
WScript.Echo "StdOut: " & objSsh.StdOut
End
| Function | Description |
| Clear | Reset all properties to the default values |
| Run | Run the command on the remote host |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to the initial values. Use this function when you make consecutive calls to the Run function. It resets all properties
Parameters:
Return value:
Always 0.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
...
objSsh.Run
objSsh.Clear ' Resets properties
' Set new property values
...
objSsh.Run
objSsh.Clear
...
Description:
Run the command on the remote host.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "192.168.1.10"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Command = "/bin/ls"
objSsh.Run
WScript.Echo "Run: result = " & objSsh.LastError
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objSsh = CreateObject("ActiveXperts.Ssh") ' Create an Ssh instance
objSsh.Host = "192.168.1.10"
objSsh.UserName = "mjohnson"
objSsh.Password = "topsecret"
objSsh.Command = "/bin/ls"
objSsh.Run
WScript.Echo "Error description: " & objSsh.GetErrorDescription( objSsh.LastError )
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Create Ssh object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objSsh.Sleep 500
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objSsh = CreateObject( "ActiveXperts.Ssh" ) ' Create Ssh object objSsh.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
The ActiveSocket Tcp object is based on the Transport Control protocol (TCP) protocol. Transport Control Protocol is a Transport Layer host-to-host protocol that provides reliable, connection-oriented service for IP traffic. TCP transports a stream of data in both directions between end stations. TCP does this by breaking the data into segments for transmission across a network running Internet Protocol.
You can use the ActiveSocket Tcp object basically for two purposes:
To establish a connection between two machines, one must act as a server and one must act as a client.
The server process waits for a client to connect. It listens on a port for an incoming connection of a client.
The client doesn't listen at all; it simply connects to a port on the server.
After a connection is established, there's no difference between client and server anymore. They can both send and receive, and they can both disconnect the session.
In order to communicate, the server must first create a socket object, and then 'listen' on a specific TCP port to wait for an incoming connection:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTcp.StartListening 1500 ' listen on port 1500 for ' incoming connection
Then, the server must wait until a connection is established, i.e. when the state of the connection changes from asSOCKET_CONNSTATE_LISTENING to asSOCKET_CONNSTATE_CONNECTED:
Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING
Loop
If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then
' YES, connection established.
End If
Once the connection has been established, server and client can communicate with eachother. They can both send and receive. To receive information, use the ReceiveString function:
Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED str = objTcp.ReceiveString Loop
Each time you call a function, you can check the result by checking the LastError property. For instance:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTcp.StartListening 1500 ' listen on port 1500 for ' incoming connection If objTcp.LastError = 0 Then ' Yes, socket is listening on the specific port for an incoming connection End If
On the client side, the client must connect to a server on a specific server-port:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTcp.Connect "remoteserver", 1500 ' connect on port 1500 If objTcp.LastError = 0 Then ' YES, connection established End If
Now, client and server are peers. They can both send and receive. They can send in the following way:
objTcp.SendData "This is a message from client.vbs." ' Send data
A process can disconnect the session anytime they want:
objTcp.Disconnect ' Disconnect
Use the ActiveSocket Tcp object to establish a telnet session to a server or device and read its contents or configuration, for instance:
The following sample (in VBScript) reads information from the www.activexperts.com/activsocket/demopage page:
Set objTcp = CreateObject("ActiveXperts.Tcp") ' Create Tcp object
Set objConstants= CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object
objTcp.Protocol = objConstants.asSOCKET_PROTOCOL_TELNET ' Telnet protocol
objTcp.Connect "www.activexperts.com", 80 ' Connect on port 80 to
' remote server
WScript.Echo "Connect, result: " & objTcp.LastError
If objTcp.LastError <> 0 Then
WScript.Quit
End If
If objTcp.ConnectionState = asSOCKET_CONNSTATE_CONNECTED Then.
WScript.Echo "Connection established" & vbCrLf
strReceived = ""
nCounter = nCounter + 1
objTcp.Sleep 1000
objTcp.SendString "GET /activsocket/demopage/ HTTP/1.1" ' Send data
objTcp.SendString "Host: www.activexperts.com" ' Send data
objTcp.SendString "" ' Send data (only CRLF)
objTcp.Sleep 1000
If objTcp.HasData Then
strReceived = objTcp.ReceiveString ' Receive data
WScript.Echo "RECV: " & strReceived
End If
objTcp.Sleep 1000
objTcp.Disconnect ' Disconnect
End If
| Property | Type | Read/Write | Description |
| Version | String | Out | |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| Protocol | Number | In/Out | The protocol to be used |
| NewLine | String | In/Out | The character sequence that forms a newline |
| ConnectionState | Number | Out | The state of the connection |
| IOTimeout | Number | In/Out | Maximum time of read operations |
| RemoteAddress | String | Out | The IP address and port number of the remote machine |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object
WScript.Echo "Build: " & objTcp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it. Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object
Response.Write "ExpirationDate: " & objTcp.ExpirationDate
Type:
Number
Description:
The protocol to be used. Can be either asSOCKET_PROTOCOL_RAW for TCP/IP without supplemental on top, or asSOCKET_PROTOCOL_TELNET. The property is read/write.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTcp.Protocol = objConstants.asSOCKET_PROTOCOL_TELNET ' Use telnet protocol objTcp.Connect "server.mydomain.com", 23 Response.Write "Connect, result: " & objTcp.LastError
Type:
String
Description:
The character sequence that forms a newline. Default value: the CRLF (carriage return / linefeed) string. Most frequent used newline strings:
A newline is used internally by two functions:
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect If objTcp.LastError = 0 Then objTcp.NewLine = vbCr ' Use CR in the subsequent ' ReceiveString/SendString calls ' transmitted by the WriteString ' function objTcp.SendString "Hello" If objTcp.LastError = 0 Then WScript.Echo "SendString was successful" Else WScript.Echo "SendString failed" End If objTcp.Disconnect End If
Type:
Number
Description:
The state of the connection. There are 3 valid Connection States. The property is read-only; you cannot assign a value to it.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objTcp.StartListening 8081 ' Create Tcp object If objTcp.LastError <> 0 Then WScript.Quit End If ... Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING objTcp.Sleep 1000 Loop If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then ' YES, connection established. End If
Type:
Number
Description:
Maximum IO timeout for read operations (specified in milliseconds). Increase this value when incomplete data is received.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect to 192.168.1.1 ' on port 8081 WScript.Echo "Connect, result: " & objTcp.LastError ' Print the result ... objTcp.IOTimeout = 1000 ' Set IO timeout to 1000ms ... Wscript.Echo objTcp.ReadString
Type:
String
Description:
The IP address and port of the remote party that you are connected to.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect to 192.168.1.1 ' on port 8081 WScript.Echo "Connect, result: " & objTcp.LastError ' Print the result If( objTcp.LastError = 0 And _ objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED ) Then WScript.Echo "Connecteed to remote party: " & _ objTcp.RemoteAddress ' IP:Port of the remote party End If
Type:
Number
Description:
The result of a previous called function. Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page:
www.activexperts.com/support/errorcodes.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object
objTcp.Connect "server.mydomain.com", 8081
Response.Write "Connect, result: " & objTcp.LastError
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object objTcp.LogFile = "c:\file.log" objTcp.Connect "192.168.1.1", 8081 ' Connect to 192.168.1.1 ' on port 8081 WScript.Echo "Connect, result: " & objTcp.LastError ' Print the result ...
| Function | Description |
| Connect | Connect to a (remote) server |
| Disconnect | Disconnect a connected session |
| SendString | Send a string of ASCII data over the network |
| SendByte | Send a single byte over the network |
| SendBytes | Send raw data over the network |
| StartListening | Start listening for an incoming connection on a specified port |
| StopListening | Stop listening for an incoming connection |
| HasData | Is there data available on the socket? |
| ReceiveString | Receive incoming ASCII data on the socket |
| ReceiveBytes | Receive incoming binary data on the socket |
| ReceiveByte | Receive a single byte on the socket |
| Sleep | Suspends the execution of the object for at least the specified interval |
| GetErrorDescription | Get the description of the given error |
| Activate | Activate the product |
Description:
Make a connection to a (remote) server on a TCP port.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect to 192.168.1.1 ' on port 8081 WScript.Echo "Connect, result: " & objTcp.LastError ' Print the result
Example:
objTcp.Connect "myserver", 8081
Description:
Disconnect an active TCP connection.
The function doesn't require any parameters.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect If objTcp.LastError = 0 Then objTcp.SendData "Hello" objTcp.Disconnect ' Disconnect End If
Description:
This function sends a string of printable ASCII data to the (remote) server.
Telnet functions need a NewLine after the data string.
ActiveSocket will automatically append the NewLine to the string.
Use the SendByte or SendBytes functions
to send binary data or strings without NewLine sequence over the network.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 ' Connect If objTcp.LastError = 0 Then objTcp.SendString "Hello" If objTcp.LastError = 0 Then WScript.Echo "SendString was successful" Else WScript.Echo "SendString failed" End If objTcp.Disconnect End If
Description:
This function sends a single byte over the network. To send multiple bytes at once, use the SendBytes function. SendByte is ideal to send binary data; for ASCII data, it's recommended to use the SendString function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 If objTcp.LastError = 0 Then objTcp.SendByte &H01 ' Send one byte objTcp.SendByte &H04 ' Send one byte objTcp.SendByte &H00 ' Send one byte End If
Description:
This function sends the specified bytes over the network.
Use the 'SendBytes' function to send binary data.
To send ASCII (displayable) data, use the SendString function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.Connect "192.168.1.1", 8081 If objTcp.LastError = 0 Then objTcp.SendBytes "Hello" ' Send a stream of bytes End If
Description:
This function starts a new listening thread. If the functon succeeds, the ConnectionState will be set to asSOCKET_CONNSTATE_LISTENING.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objTcp.StartListening 15000 ' Wait for 15 seconds for an ' incoming connection If objTcp.LastError <> 0 Then WScript.Quit End If Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_LISTENING objTcp.Sleep 1000 ' Still waiting for ' the incoming call Loop If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then ' YES, connection established objTcp.Disconnect End If
Description:
This function stops a listening thread. If the function succeeds, the ConnectionState will change from asSOCKET_CONNSTATE_LISTENING to asSOCKET_CONNSTATE_DISCONNECTED. There are no parameters required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object ... objTcp.StartListening 15000 ' Wait for 15 seconds for ' an incoming connection If objTcp.LastError = 0 Then objTcp.StopListening ' Connection established; ' disconnect now End If
Description:
Check if there's incoming data available.
Parameters:
Return value:
True if there's data available; otherwise False.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED If objTcp.HasData Then ' Data available ? str = objTcp.ReceiveString WScript.Echo "Received: " & str objTcp.Sleep 100 End If Loop
Description:
Read ASCII data from socket until a NewLine is read from the device or a timeout has elapsed.
NOTE: Use the ReceiveBytes or ReceiveByte functions to receive binary data from the (remote) computer).
Parameters:
Return value:
Empty string if there's no incoming data available; otherwise, the ASCII string that was read from the socket. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... Do While objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED If objTcp.HasData Then str = objTcp.ReceiveString WScript.Echo "Received: " & str objTcp.Sleep 100 End If Loop
Description:
Read binary data from socket (use the ReceiveString function
to receive ASCII data from the network).
ReceiveBytes receives and returns all the binary data from the network.
Parameters:
Return value:
The received datastring. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then If objTcp.HasData Then WScript.Echo objTcp.ReceiveBytes ' Receive stream of bytes End If End If
Description:
Receive a single byte of binary data from the socket. Use the ReceiveBytes function to receive all binary data from the (remote) computer.
Parameters:
Return value:
The byte received. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... If objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED Then While objTcp.HasData WScript.Echo "Received Byte: " & objTcp.ReceiveByte WEnd End If
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... Do while objTcp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED objTcp.Sleep 500 ' Hold for 500 msec str = objTcp.ReceiveString Loop
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object
...
objTcp.Connect "www.thisdoesnotexist.com", 1234
WScript.Echo "LastError: " & objTcp.LastError
WScript.Echo "Error description: " & objTcp.GetErrorDescription( objTcp.LastError )
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTcp = CreateObject( "ActiveXperts.Tcp" ) ' Create Tcp object objTcp.Activate "xyz", True ' Substitute xyz by ' your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
The ActiveSocket TftpServer object is based on the Trivial File Transfer Protocol (TFTP) protocol.
TFTP is a forerunner protocol of FTP. The TFTP protocol is basically used for information transfer from a server to a client or vice versa. TFTP is intended to be used when bootstrapping diskless systems are used. This is also used by memory less devices like routers, switches, etc. to get their boot strap information from their servers. TFTP protocol uses UDP for transferring files between server and the client and uses port "69" to transfer, by default. When TFTP is used, the file that is getting transferred is split up into packets each containing 512 bytes of data. The completion of the transfer is informed to the receiver by sending a packet that has 0-511 bytes. The tranfer mode is either ASCII or binary.
The following sample (VBScript) shows how the TftpServer object can be used to download a file from an TFTP server:
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" ) objTftpServer.Get "10.1.1.10", "/folder1/file.txt", _ "c:\\file.txt" ' Download file,save it locally Wscript.Echo "Get, result: " & objTftpServer.LastError If( objTftpServer.LastError <> 0 ) Then ' If download failed then quit WScript.Quit End If WScript.Echo "Packets received: " & _ objTftpServer.PacketsReceived ' Print download statistics WScript.Echo "Bytes received: " & _ objTftpServer.BytesReceived ' Print download statistics
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| HostPort | Number | In/Out | UDP port of the remote TFTP server. Default: 69 |
| BinaryTransfer | Boolean | In/Out | Specifies how to transfer files: binary (default) or ASCII |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file that can be used for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.Tftp" ) ' Create Tftp object
WScript.Echo"Version: " & objTftpServer.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer
' object
WScript.Echo "Build: " & objTftpServer.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it. Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer
' instance
WScript.Echo "ExpirationDate: " & objTftpServer.ExpirationDate
Type:
Number
Description:
UDP port number to identify a (remote) TFTP server. If you don't specify the 'HostPort' property, port 69 (default TFTP port) is used.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer ' instance ... objTftpServer.HostPort = 8069 ' Use port 8069 instead of ' default port 69 objTftpServer.Get "10.1.1.10", "/file.txt" ' Download a file ...
Type:
Boolean
Description:
Specifies the way files are transfered when downloading (Get) or uploading (Put) files. Default value: True, indicating that files are tranferred in binary mode by default.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer ' instance ... objTftpServer.BinaryMode = False ' Transfer files in ASCII ' mode when using Get/Put objTftpServer.Get "10.1.1.10", "/file.txt" ' Download a file in ASCII mode
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer ' instance ... objTftpServer.Get "10.1.1.10", "/file.txt" ' Download a file WScript.Echo "LastError: " & objTftpServer.LastError ...
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all TFTP operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all TFTP operations will be written to this log file.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer ' instance objTftpServer.LogFile = "C:\Tftp.log" ' Write all TFTP operations ' to the specified log file ... objTftpServer.Get "10.1.1.10", "/file.txt" ' Download a file ...
| Function | Description |
| Clear | Reset all properties to their default values |
| Get | Download a file from a TFTP host |
| Put | Upload a file to a TFTP host |
| GetErrorDescription | Get the description of the given error |
| Activate | Suspends the execution of the object for at least the specified interval |
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.TftpServer" ) ' Create a new TftpServer ' instance objTftpServer.Get "10.1.1.10", "/file1.txt" ' Download a file ... objTftpServer.Clear ' Clear properties objTftpServer.Get "10.1.1.10", "/file2.txt" ' Download a file
Description:
Download a file from the TFTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" ) objTftp.Get "10.1.1.10", "/folder1/file.txt", "c:\\file.txt" ' Download file, save it ' to a fixed path Wscript.Echo "Get, result: " & objTftp.LastError If( objTftp.LastError <> 0 ) Then ' If download failed then quit WScript.Quit End If WScript.Echo "Packets received: " & objTftp.PacketsReceived ' Print download statistics WScript.Echo "Bytes received: " & objTftp.BytesReceived ' Print download statistics
Example:
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" ) objTftp.Get "10.1.1.10", "/folder1/file.txt" ' Download and save file with ' same name in current dir. Wscript.Echo "Get, result: " & objTftp.LastError If( objTftp.LastError <> 0 ) Then ' If download failed then quit WScript.Quit End If WScript.Echo "Packets received: " & objTftp.PacketsReceived ' Print download statistics WScript.Echo "Bytes received: " & objTftp.BytesReceived ' Print download statistics
Description:
Upload a file to the TFTP server.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" ) objTftp.Put "10.1.1.10", "/folder1/file.txt" ' Upload and save file with ' same name in current ' directory Wscript.Echo "Put, result: " & objTftp.LastError If( objTftp.LastError <> 0 ) Then ' If upload failed then quit WScript.Quit End If WScript.Echo "Packets sent: " & objTftp.PacketsSent ' Print upload statistics WScript.Echo "Bytes sent: " & objTftp.BytesSent ' Print upload statistics
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objTftpServer = CreateObject ( "ActiveXperts.TftpServer" )
objTftp.Get "10.1.1.10", "/folder1/file.txt", "c:\\file.txt" ' Download file, save
' it to a fixed path
WScript.Echo "LastError: " & objTftpServer.LastError
WScript.Echo "Error description: " & _
objTftpServer.GetErrorDescription( objTftpServer.LastError )
...
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objTftpServer = CreateObject( "ActiveXperts.Tftp" ) ' Create Tftp object objTftp.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started.
The ActiveSocket TraceRoute object is based on the Internet Control Message Protocol (ICMP). Internet Control Message Protocol (ICMP) is part of the Internet Protocol (IP). It is chiefly used by the operating systems of networked computers to send error messages indicating, for example, that a requested service is not available or that a host or router could not be reached.
One function of ICMP is to detect whether or not a host can be reached, so called pinging. This can be achieved with ActiveSocket by using the Icmp object. Tracing a route is an alternative way of using this functionality of ICMP. It can be used to determine the exact route a packet is traveling through the internet.
For example, the route to google.com from a certain point on the internet could be:
Tracing route to www.google.com over max 30 hops
#1, IP: 192.168.31.2 [192.168.31.2], Time: 0ms
#2, IP: 80.65.112.1 [ip112-1.dsl.introweb.nl], Time: 11ms
#3, IP: 62.165.127.51 [AMSIX127-51.introweb.nl], Time: 11ms
#4, IP: *.*.*.* [], Time: 0ms
#5, IP: 209.85.254.90 [209.85.254.90], Time: 11ms
#6, IP: 209.85.255.70 [209.85.255.70], Time: 16ms
#7, IP: 209.85.240.221 [209.85.240.221], Time: 18ms
#8, IP: 209.85.252.83 [209.85.252.83], Time: 17ms
#9, IP: 209.85.243.81 [209.85.243.81], Time: 22ms
#10, IP: 209.85.229.103 [ww-in-f103.1e100.net], Time: 18ms
Done.
Disregarding the concept of dynamic routes, one may assume that all data packets sent to google.com will
follow this route of nodes.
The route a packet follows can be traced by using the TTL property of an IP data packet. This TTL value starts out with a value that is >=1 and <=255. Every time a packet is sent to the next node in the network (a router or a PC), the TTL value is decreased by 1. As long as this value does not reach 0 before the target node is reached, the packet is delivered. However, if the packet's TTL reaches 0 before the target is reached, the packet is either dropped by the receiving node, or sent back to the source of the packet.
Using this feature, a route can be determined by sending a packet starting with a TTL of 1. When the origin PC sends out the packet, it decreases the TTL to 0, and the first node that receives it - the first node in the route - will send it back. Reading the source address of this return packet, the IP of the first node has been determined. Next, the TTL is set to 2, and the same packet is sent out once more. Now the first node will see a TTL of 1, send it out to the next node, which sees a TTL of 0, and the second node will send the packet back. This way the IP of the second node has been determined. This concept continues until the actual target node returns the packet, completing the route.
The ActiveSocket TraceRoute object can be used to determine the path to any reachable host on the internet or local network. The following VBscript example shows how:
Dim objTraceRt
Dim objHop
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.ResolveHostName = True
objTraceRt.MaxHops = 30
Set objHop = objTraceRt.FindFirstHop( "www.google.com" )
While( objTraceRt.LastError = 0 )
WScript.Echo "#" & objHop.Hop & ", IP: " & objHop.IP & _
" [" & objHop.Host & "], Time: " & objHop.ResponseTime & "ms"
Set objHop = objTraceRt.FindNextHop
WEnd
As the above example shows, the TraceRoute object works with a FindFirstHop and FindNextHop call, which return objects when no error occurred (always check with LastError). This object has a Hop, IP, ResponseTime and Host property. See TraceHop for more details.
| Property | Type | Read/Write | Description |
| Version | String | Out | Version number of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
| ResolveHostName | Boolean | In/Out | Determines if IPs are resolved to hostnames |
| MaxHops | Number | In/Out | Sets the maximum length of the route |
| BufferSize | Number | In/Out | Sets the ICMP buffer data size |
| Timeout | Number | In/Out | Sets the ping timeout in milliseconds |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objTraceRoute = CreateObject("ActiveXperts.TraceRoute") ' Create a new TraceRoute
' instance
WScript.Echo "Version: " & objTraceRoute.Version
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" )
' Create a new TraceRoute object
WScript.Echo "Build: " & objTraceRoute.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" )
' Create a new TraceRoute instance
WScript.Echo "ExpirationDate: " & objTraceRoute.ExpirationDate
Type:
Number
Description:
The result of a previous called function.
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Dim objTraceRt
Dim objHop
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.ResolveHostName = True
objTraceRt.MaxHops = 30
Set objHop = objTraceRt.FindFirstHop( "www.google.com" )
While( objTraceRt.LastError = 0 )
WScript.Echo "#" & objHop.Hop & ", IP: " & objHop.IP & _
" [" & objHop.Host & "], Time: " & objHop.ResponseTime & "ms"
Set objHop = objTraceRt.FindNextHop
WEnd
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objTraceRt = CreateObject( "ActiveXperts.TraceRoute" ) ' Create TraceRoute object objTraceRt.LogFile = "c:\file.log ' Specify log file objTraceRt.Open "server.mydomain.com", 8081, False Response.Write "Open, result: " & objTraceRt.LastError
Type:
Boolean
Description:
Determines if FindFirstHop, and
FindNextHop calls will try to resolve IP addresses to
hostnames. False means do not resolve. True means DNS is used to resolve IP addresses.
When this property is set to True, the Host property in TraceHop objects returned by
FindFirstHop and FindNextHop are set to the appropriate hostname (or the IP address when the name could not be
resolved.) When this property is set to False, the aforementioned Host property is always empty.
Example:
Dim objTraceRt
Dim objHop
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.ResolveHostName = True
objTraceRt.MaxHops = 30
Set objHop = objTraceRt.FindFirstHop( "www.google.com" )
While( objTraceRt.LastError = 0 )
WScript.Echo "#" & objHop.Hop & ", IP: " & objHop.IP & _
" [" & objHop.Host & "], Time: " & objHop.ResponseTime & "ms"
Set objHop = objTraceRt.FindNextHop
WEnd
The default value for this property is False.
Type:
Number
Description:
Sets the maximum length of the route determined by a TraceRoute object.
When the route is shorter or equal in length to the value for this property, the entire
route can be determined. If the entire route is not found after the maximum amount of hops
has been reached, the process stops and a specific error is returned.
Example:
Dim objTraceRt
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.MaxHops = 5 ' stop tracing after 5 hops
The default value for this property is 100.
Type:
Number
Description:
ICMP ping packets as they are used in tracerouting may contain arbitrary data buffers, which are to be returned by nodes who reply to the packet. For example, sometimes this value is set to the maximum transmission unit (MTU) to test network components. However, setting this value to anything but the default of 0, may result in certain network nodes responding differently. For example, some nodes might not respond at all with a buffer data size of more than 0.
Example:
Dim objTraceRt
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.BufferSize = 128 ' set data size of 128 bytes
The default value for this property is 0.
Type:
Number
Description:
During the process of determining the route to an internet node, the TraceRoute object
needs a timeout value to determine how long to keep waiting for a reply. This
value is specified in milliseconds.
Note that some nodes will simply never reply when the TTL reaches 0. This explains why
sometimes certain nodes cannot be discovered when tracing a route. For an example of
this, see the google.com trace in the introduction of the TraceRoute object.
The 4th node is set to *.*.*.* since a timeout has occurred. Packets with a TTL of
>0 are handled normally, explaining why all consecutive nodes do respond.
Example:
Dim objTraceRt
Set objTraceRt = CreateObject("ActiveXperts.TraceRoute")
objTraceRt.Timeout = 250 ' do not wait very long for slow hosts to reply
The default value for this property is 2000 (two seconds.)
| Function | Description |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Clear | Reset all properties to their default values |
| FindFirstHop | Returns the first hop (node) in the route to the specified host |
| FindNextHop | Returns the next hop (node) in the current route |
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" ) ' Create TraceRoute object
objTraceRoute.Sleep 500
Description:
Resets all properties to the initial, default values.
Parameters:
Return value:
Always 0.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" ) ' Create TraceRoute object
objTraceRoute.Timeout = 1000 ' change timeout to 1 second in stead of default of 2 seconds
objTraceRoute.Clear ' timeout is 2 seconds again!
Description:
Starts the traceroute process to the specified host. This function should be called only once per route. When this function succeeds, call FindNextHop to get all subsequent hops (nodes) in the route. This function stops any route tracing that was previously in progress. In other words, you cannot use the same TraceRoute object to trace routes to more than one host.
Parameters:
Return value:
A TraceHop object when the call succeeded, or a empty (Nothing) value when an error has occurred.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" ) ' Create TraceRoute object
Set objHop = objTraceRoute.FindFirstHop( "www.google.com" );
Description:
Returns the next hop (node) in the current route, which was started with a call to FindStartHop. As long as the maximum number of hops hasn't been reached, and the final target of the route (the host specified to FindStartHop) hasn't been reached either, this function will keep returning the hops (nodes) in between.
Parameters:
Return value:
A TraceHop object when the call succeeded, or a empty (Nothing) value when an error has occurred.
Example:
Set objTraceRoute = CreateObject( "ActiveXperts.TraceRoute" ) ' Create TraceRoute object
Set objHop = objTraceRoute.FindFirstHop( "www.google.com" );
While (objTraceRoute.LastError == 0)
objHop = objTraceRoute.FindNextHop
End While
The ActiveSocket TraceHop object is a helper object for the ActiveSocket TraceRoute object. It contains information about the current hop (node) in the trace route process.
| Property | Type | Read/Write | Description |
| IP | String | In/Out | IP address of the node. |
| Host | String | In/Out | Hostname of the node. |
| ResponseTime | Number | In/Out | Hostname of the node. |
| Hop | Number | In/Out | Hop number. |
Type:
String
Description:
Contains the IP address of the current node. When a timeout occurred, the value of this property is "*.*.*.*".
Example:
Set objHop = objTraceRoute.FindFirstHop( "www.google.com" ); WScript.Echo "IP " & objHop.IP
Type:
String
Description:
Contains the hostname address of the current node. This value is not always set. It's only set when the TraceRoute object's ResolveHostName property is set to True. Otherwise this value is always empty. When it's not empty, it's either the hostname of the current node, or the IP address of the current node when no name could be resolved.
Example:
... objTraceRoute.ResolveHostName = True Set objHop = objTraceRoute.FindFirstHop( "www.google.com" ); WScript.Echo "Host: " & objHop.Host
Type:
Number
Description:
Contains the response time of the host in milliseconds. When a timeout occurred, this value is set to 0ms.
Example:
Set objHop = objTraceRoute.FindFirstHop( "www.google.com" ); WScript.Echo "Time: " & objHop.ResponseTime
Type:
Number
Description:
Contains the number of the current node in the route. The first node receives hop number 1. The second receives number 2, and so on.
Example:
Set objHop = objTraceRoute.FindFirstHop( "www.google.com" ); WScript.Echo "# " & objHop.Hop
This object has no methods.
The ActiveSocket Udp object is based on the Transport Control protocol (UDP) protocol. User Datagram Protocol (UDP) is one of the core protocols of the Internet protocol suite. Using UDP, programs on networked computers can send short messages sometimes known as datagrams (using Datagram Sockets) to one another. UDP is sometimes called the Universal Datagram Protocol or Unreliable Datagram Protocol.
UDP does not guarantee reliability or ordering in the way that TCP does. Datagrams may arrive out of order, appear duplicated, or go missing without notice. Avoiding the overhead of checking whether every packet actually arrived makes UDP faster and more efficient, at least for applications that do not need guaranteed delivery. Time-sensitive applications often use UDP because dropped packets are preferable to delayed packets. UDP's stateless nature is also useful for servers that answer small queries from huge numbers of clients. Unlike TCP, UDP supports packet broadcast (sending to all on local network) and multicasting (send to all subscribers).
To send UDP packages between two machines, one (or more) should act as a server and one should act as a client.
The server process(es) wait(s) for a client to get the data, by listening on a port for an incoming packages of a client.
The client doesn't listen at all; it simply send to a port on the server.
In order to communicate, the server must first create a socket object, and then 'listen' on a specific UDP port to wait for incoming data:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objUdp.Open "localhost", 1500, True ' Listen on port 1500 ' for incoming data; ' True indicates: receive ' (instead of send)
On the client side, the client must send UDP data to a server on a specific server-port:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objUdp.Open "remoteserver", 1500, False ' Send to remote machine on port 1500. False indicates: no receive but send. ' To broadcast, use "255.255.255.255" or an empty string.
Now, the client can send to the server(s) in the following way:
objUdp.SendData "This is a message from client.vbs." ' Send data
When you're ready, you should close the socket:
objUdp.Close ' Close
On the client side, the client must connect to a server on a specific server-port:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objUdp.Connect "remoteserver", 1500 ' connect on port 1500 If objUdp.LastError = 0 Then ' YES, connection established End If
Now, client and server are peers. They can both send and receive. They can send in the following way:
objUdp.SendData "This is a message from client.vbs." ' Send data
A process can disconnect the session anytime they want:
objUdp.Disconnect ' Disconnect
' *** client.vbs (full code, VBScript) *** ' Create a socket instance Set objUdp = CreateObject ( "ActiveXperts.Udp" ) Set objConstants = CreateObject ( "ActiveXperts.ASConstants" ) ' Write some information to console WScript.Echo "ActiveSocket " & objUdp.Version & " demo." WScript.Echo "Expiration date: " & objUdp.ExpirationDate & vbCrLf ' Open socket to send to port 1500 on remote server ' To broadcast, use "255.255.255.255" or an empty string. objUdp.Open "localhost", 1500, False WScript.Echo "Open, result: " & objUdp.LastError & _ " (" & objUdp.GetErrorDescription( objUdp.LastError ) & ")" If( objUdp.LastError <> 0 ) Then WScript.Echo "Ready." WScript.Quit End If str = "This is just a message" objUdp.SendString str ' Send message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 str = "And this is another message" objUdp.SendString str ' Send another message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 str = "Quit" objUdp.SendString str ' Send last message WScript.Echo "SendString '" & str & "': result = " & objUdp.LastError objUdp.Sleep 100 objUdp.Close ' And finally, close the socket
' *** server.vbs (full code, VBScript) *** ' Create a socket instance Set objUdp = CreateObject ( "ActiveXperts.Udp" ) Set objConstants = CreateObject ( "ActiveXperts.ASConstants" ) ' Write some information to console WScript.Echo "ActiveSocket " & objUdp.Version & " demo." WScript.Echo "Expiration date: " & objUdp.ExpirationDate & vbCrLf ' Open socket to receive UDP datagrams on port 1500 on this machine objUdp.Open "localhost", 1500, True WScript.Echo "Open, result: " & objUdp.LastError & _ " (" & objUdp.GetErrorDescription( objUdp.LastError ) & ")" If( objUdp.LastError <> 0 ) Then WScript.Echo "Ready." WScript.Quit End If Do While str <> "Quit" str = objUdp.ReceiveString ' Receive message If( objUdp.LastError = 0 And str <> "" ) Then WScript.Echo "ReceiveString: " & str End If objUdp.Sleep ( 100 ) Loop objUdp.Close
| Property | Type | Read/Write | Description |
| Version | String | Out | Display the version of ActiveSocket |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| NewLine | String | In/Out | The character sequence that forms a newline |
| IOTimeout | Number | In/Out | Maximum time of read operations |
| RemoteAddress | String | Out | The IP address and port number of the remote machine |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object
Response.Write "Version: " & objUdp.Version
Type:
String
Description:
Version information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object
WScript.Echo "Build: " & objUdp.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it. Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object
Response.Write "ExpirationDate: " & objUdp.ExpirationDate
Type:
String
Description:
The character sequence that forms a newline. Default value: the CRLF (carriage return / linefeed) string. Most frequent used newline strings:
A newline is used internally by two functions:
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Open "192.168.1.1", 8081, False ' Open an UDP socket to send data. ' To broadcast, use "255.255.255.255" or an empty string. If objUdp.LastError = 0 Then objUdp.NewLine = vbCr ' Use CR in the subsequent ' ReceiveString/SendString calls ' transmitted by the ' WriteString function objUdp.SendString "Hello" End If
Type:
Number
Description:
Maximum IO timeout for read operations (specified in milliseconds). Increase this value when incomplete data is received.
Example:
Set objTcp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Connect "192.168.1.1", 8081 ' Connect to 192.168.1.1 ' on port 8081 WScript.Echo "Connect, result: " & objTcp.LastError ' Print the result ... objUdp.IOTimeout = 1000 ' Set IO timeout to 1000ms ... Wscript.Echo objUdp.ReadString
Type:
String
Description:
The IP address and port of the remote party that you are connected to.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Open "192.168.1.1", 8081, True ' Open an UDP socket to receive data If objUdp.LastError = 0 Then str = objUdp.ReceiveString If( objUdp.LastError = 0 ) Then WScript.Echo "Message from:" & objUdp.RemoteAddress ' Print remote address End If End If
Type:
Number
Description:
The result of a previous called function. Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object objUdp.Open "server.mydomain.com", 8081, False Response.Write "Open, result: " & objUdp.LastError ' print result of 'Open' call
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object objUdp.LogFile = "c:\file.log ' Specify log file objUdp.Open "server.mydomain.com", 8081, False Response.Write "Open, result: " & objUdp.LastError
| Function | Description |
| Open | Open an UDP socket |
| Close | Close an UDP socket |
| HasData | Is there data available on the socket? |
| SendString | Send a string of ASCII data over the network |
| SendByte | Send a single byte over the network |
| SendBytes | Send raw data over the network |
| ReceiveString | Receive incoming ASCII data on the socket |
| ReceiveBytes | Receive incoming binary data on the socket |
| ReceiveByte | Receive a single byte on the socket |
| Sleep | Suspends the execution of the object for at least the specified interval |
| GetErrorDescription | Get the description of the given error |
| Activate | Activate the product |
Description:
This function opens a socket that can be used to send or receive UDP datagrams.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objUdp.Open "10.1.1.10", 15000, False ' Open socket for sending ' to 10.1.1.10 on port 15000 If objUdp.LastError <> 0 Then WScript.Quit End If objUdp.SendString "Hello, world." objUdp.Close ' Close socket
Description:
Close a socket that was opened using the Open function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object objUdp.Open "10.1.1.10", 15000, False ' Open socket for sending ' to 10.1.1.10 on port 15000 If objUdp.LastError <> 0 Then WScript.Quit End If objUdp.SendString "Hello, world." objUdp.Close ' Close socket End If
Description:
Check if there's incoming data available.
Parameters:
Return value:
True if there's data available; otherwise False.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... Do While objUdp.ConnectionState = objConstants.asSOCKET_CONNSTATE_CONNECTED If objUdp.HasData Then ' Data available ? str = objUdp.ReceiveString WScript.Echo "Received: " & str objUdp.Sleep 100 End If Loop
Description:
This function sends a string of printable ASCII data to the (remote) server.
Telnet functions need a NewLine after the data string.
ActiveSocket will automatically append the NewLine to the string.
Use the SendByte or SendBytes functions
to send binary data or strings without NewLine sequence over the network.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Open "10.1.1.10", 15000, False ' Open socket for sending ' to 10.1.1.10 on port 15000 If objUdp.LastError = 0 Then objUdp.SendString "Hello" If objUdp.LastError = 0 Then WScript.Echo "SendString was successful" Else WScript.Echo "SendString failed" End If objUdp.Close End If
Description:
This function sends a single byte over the network. To send multiple bytes at once, use the SendBytes function. SendByte is ideal to send binary data; for ASCII data, it's recommended to use the SendString function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Open "10.1.1.10", 15000, False ' Open socket for sending ' to 10.1.1.10 on port 15000 If objUdp.LastError = 0 Then objUdp.SendByte &H01 ' Send one byte objUdp.SendByte &H04 ' Send one byte objUdp.SendByte &H00 ' Send one byte End If
Description:
This function sends the specified bytes over the network.
Use the 'SendBytes' function to send binary data.
To send ASCII (displayable) data, use the SendString function.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object ... objUdp.Open "10.1.1.10", 15000, False ' Open socket for sending ' to 10.1.1.10 on port 15000 If objUdp.LastError = 0 Then objUdp.SendBytes "Hello" ' Send a stream of bytes End If
Description:
Read ASCII data from socket until a NewLine is read from the device or a timeout has elapsed.
NOTE: Use the ReceiveBytes or ReceiveByte
functions to receive binary data from the (remote) computer).
Parameters:
Return value:
Empty string if there's no incoming data available; otherwise, the ASCII string that was read from the socket. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objUdp.Open "localhost", 15000, True ' Open socket for ' receiving on port 15000 Do str = objUdp.ReceiveString ' Receive messages in ' an endless loop If( objUdp.LastError = 0 And str <> "" ) Then WScript.Echo "Received: " & str objUdp.Sleep 100 End If Loop
Description:
Read binary data from socket (use the ReceiveString function
to receive ASCII data from the network).
ReceiveBytes receives and returns all the binary data from the network.
Parameters:
Return value:
The received datastring. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objUdp.Open "localhost", 15000, True ' Open socket for receiving ' on port 15000 Do data = objUdp.ReceiveBytes ' Receive messages in ' an endless loop If( objUdp.LastError = 0 And data <> "" ) Then WScript.Echo "Received: " & data objUdp.Sleep 100 End If Loop
Description:
Receive a single byte of binary data from the socket. Use the ReceiveBytes function to receive all binary data from the (remote) computer.
Parameters:
Return value:
The byte received. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objUdp.Open "localhost", 15000, True ' Open socket for receiving ' on port 15000 Do byte = objUdp.ReceiveByte ' Receive messages in ' an endless loop If( objUdp.LastError = 0 And byte <> "" ) Then WScript.Echo "Received: " & byte End If Loop
Description:
This function can be used in your script anywhere you want; Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) ' Create constants object ... objUdp.Open "localhost", 15000, True ' Open socket for receiving ' on port 15000 Do data = objUdp.ReceiveBytes ' Receive messages in ' an endless loop If( objUdp.LastError = 0 And data <> "" ) Then WScript.Echo "Received: " & data objUdp.Sleep 100 End If Loop
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object
...
objUdp.Open "www.thisdoesnotexist.forsure", 1234, False
WScript.Echo "LastError: " & objUdp.LastError
WScript.Echo "Error description: " & objUdp.GetErrorDescription( objUdp.LastError )
Description:
This function activates the ActiveSocket product. A valid registration code is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objUdp = CreateObject( "ActiveXperts.Udp" ) ' Create Udp object
objUdp.Activate "xyz", True
' Substitute xyz by your own registrationkey
' Pass True to make the activation persistent, so you need to call
' Activate only once. If you pass False, you need to call
' Activate each time the product is started.
A Wake-On-LAN utility has the ability to "power on" a PC remotely. This is accomplished by the generation of a 'Magic Packet' to remotely power on PCs attached to networks. When the remote network adapter hears a 'Magic Packet' created for it?s unique MAC address the network adapter alerts the computer to power on. If Wake-On-Lan has been enabled in the computer?s BIOS settings, the system will power on as if the power button had been pressed.
To accomplish this you will first need to ensure your PC is configured to accept a Wake-On-LAN remote command. You must also identify the IP Address and MAC Address of the remote device. When the device shuts down, it's Network Interface Card (NIC card) is still receiving power, and keeps listening on the network for a 'magic' packet to arrive.
ActiveSocket has the ability to send such a "Magic Packet" to power on PCs. Here is a small example (in VBScript) to show how to use the WOL object:
Set objWOL = CreateObject("ActiveXperts.WOL") ' Create a new WOL instance
objWOL.WakeUp "00-10-4B-BA-7A-51" ' Power-up machine based on
' its network MAC address
WScript.Echo "WakeUp: result = " & objWOL.LastError
If( objWOL.LastError <> 0 ) Then
WScript.Echo "Error " & objWOL.LastError & ": " & _
objWOL.GetErrorDescription( objWOL.LastError )
End If
| Property | Type | Read/Write | Description |
| Build | String | Out | Display build information of ActiveSocket |
| ExpirationDate | String | Out | Expiration date of ActiveSocket |
| LastError | Number | Out | Result of the last called function |
| LogFile | String | In/Out | Log file; use it for troubleshooting purposes |
Type:
String
Description:
Build information of ActiveSocket. This property is read-only; you cannot assign a value to it.
Example:
Set objWOL = CreateObject("ActiveXperts.WOL") ' Create a new WOL instance
WScript.Echo "Build: " & objWOL.Build
Type:
String
Description:
Expiration date of ActiveSocket. This property is read-only; you cannot assign a value to it.
Once you have registered the product, the property holds the empty string ("") value.
Example:
Set objWOL = CreateObject( "ActiveXperts.WOL" ) ' Create WOL object
WScript.Echo "ExpirationDate: " & objWOL.ExpirationDate
Type:
Number
Description:
Use it to check the result of your last function call.
A zero indicates: success. Any non-zero value means an error.
The GetErrorDescription function provides the error description of an error code.
For a complete list of error codes, check out the following page: www.activexperts.com/support/errorcodes.
Example:
Set objWOL = CreateObject( "ActiveXperts.WOL" ) ' Create WOL object
...
objWOL.Query()
WScript.Echo "LastError: " & objWOL.LastError
Type:
String
Description:
For troubleshooting purposes, you can specify a log file to trace all operations. By default, the 'LogFile' property holds the empty string. By assigning a valid filename to it, all operations will be written to this log file.
Example:
Set objWOL = CreateObject( "ActiveXperts.WOL" ) ' Create WOL object objWOL.LogFile = "c:\file.log" ' Set log file ... objWOL.Query() WScript.Echo "LastError: " & objWOL.LastError
| Function | Description |
| Clear | Reset properties to their initial default values |
| WakeUp | Power-on a PC remotely, based on the MAC address |
| GetErrorDescription | Get the description of the given error |
| Sleep | Suspends the execution of the object for at least the specified interval |
| Activate | Activate Software |
Description:
Reset all properties to their initial values. Use this function when you make consecutive calls to the WakeUp function.
Parameters:
Return value:
Always 0.
Example:
Set objWOL = CreateObject("ActiveXperts.WOL") ' Create a new WOL instance
objWOL.WakeUp "00-10-4B-BA-7A-51"
WScript.Echo "LastError: " & objWOL.LastError
objWOL.Clear
WScript.Echo "LastError: " & objWOL.LastError ' Will be 0
objWOL.WakeUp "00-10-4B-BA-7A-51"
...
Description:
Power on a PC remotely, based on the MAC address.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objWOL = CreateObject("ActiveXperts.WOL") ' Create a new WOL instance
objWOL.WakeUp "00-10-4B-BA-7A-51" ' Power on machine that has
' MAC address 00-10-4B-BA-7A-51
WScript.Echo "LastError: " & objWOL.LastError
Description:
GetErrorDescription provides the error description of a given error code.
Parameters:
Return value:
The error description that is associated with the given error code.
Example:
Set objWOL = CreateObject("ActiveXperts.WOL") ' Create a new WOL instance
objWOL.WakeUp "00-10-4B-BA-7A-51"
WScript.Echo "LastError: " & objWOL.LastError
WScript.Echo "Error description: " & objWOL.GetErrorDescription( objWOL.LastError )
Description:
This function can be used in your script anywhere you want. Suspends the execution of the object for at least the specified interval.
Parameters:
Return value:
Always 0.
Example:
Set objWol = CreateObject( "ActiveXperts.WOL" ) ' Create WOL object
...
objWol.Sleep 500
Description:
This function will activate the ActiveSocket product. A valid registrationcode is required.
Parameters:
Return value:
Always 0. Check LastError property to see if the function was completed successfully.
Example:
Set objWOL = CreateObject( "ActiveXperts.WOL" ) ' Create WOL object objWOL.Activate "xyz", True ' Substitute xyz by your own registrationkey ' Pass True to make the activation persistent, so you need to call ' Activate only once. If you pass False, you need to call ' Activate each time the product is started
In ActiveSocket, all constants are grouped together in a separate object called SocketConstants. You must first create the Constants object before you can actually use constants:
Set objConstants = CreateObject( "ActiveXperts.ASConstants" ) WScript.Echo objConstants.asSOCKET_PROTOCOL_RAW WScript.Echo objConstants.asSOCKET_PROTOCOL_TELNET ... WScript.Echo objConstants.asSNMP_TYPE_INTEGER WScript.Echo objConstants.asSNMP_TYPE_IPADDRESS ...
| Constant | Value | Description |
| asSOCKET_PROTOCOL_RAW | 0 | TCP/IP protocol, without any protocol on top of it |
| asSOCKET_PROTOCOL_TELNET | 0 | Telnet protocol (based on TCP/IP) |
| Constant | Value | Description |
| asSOCKET_CONNSTATE_DISCONNECTED | 0 | No TCP connection |
| asSOCKET_CONNSTATE_LISTENING | 0 | Waiting for incoming connection |
| asSOCKET_CONNSTATE_CONNECTED | 0 | No TCP connection |
| Constant | Value | Description |
| asDNS_TYPE_UNDEFINED | 0 | Undefined |
| asDNS_TYPE_A | 0 | The A-record is the most basic and the most important DNS record type. They are used to translate human friendly domain names such as "www.jhsoft.com" into IP-addresses such as 212.97.55.136 (machine friendly number |
| asDNS_TYPE_NS | 0 | Authoritative name server. NS-records identify DNS servers responsible (authoritative) for a zone |
| asDNS_TYPE_CNAME | 0 | CNAME-records are domain name aliases. Often computers on the Internet have multiple functions such as web-server, ftp-server, chat-server etc. |
| asDNS_TYPE_SOA | 0 | Start of authority. Each zone contains exactly one SOA-record |
| asDNS_TYPE_PTR | 0 | Domain Name Pointer. PTR-records map IP addresses to domain names (reverse of A-records) |
| asDNS_TYPE_MX | 0 | Mail exchange. MX-records identify mail server(s) responsible for a domain name |
| asDNS_TYPE_AAAA | 0 | IPv6 host address |
| asDNS_TYPE_ANY | 0 | Any DNS record |
| Constant | Value | Description |
| asSNMP_VERSION_V1 | 0 | SNMP v1 (RFCs 1155-1157) |
| asSNMP_VERSION_V2C | 0 | SNMP v2c (RFCs 1901-1908) |
| Constant | Value | Description |
| asSNMP_TYPE_UNDEFINED | 0 | Undefined |
| asSNMP_TYPE_INTEGER | 0 | Integer (16 bits) |
| asSNMP_TYPE_INTEGER32 | 0 | Integer (32 bits) |
| asSNMP_TYPE_BITS | 0 | Bit stream |
| asSNMP_TYPE_OCTETSTRING | 0 | Octet string |
| asSNMP_TYPE_NULL | 0 | Null |
| asSNMP_TYPE_OBJECTIDENTIFIER | 0 | Object Identifier |
| asSNMP_TYPE_IPADDRESS | 0 | IP address |
| asSNMP_TYPE_COUNTER32 | 0 | Counter (32 bits) |
| asSNMP_TYPE_GAUGE32 | 0 | Gauge (32 bits) |
| asSNMP_TYPE_TIMETICKS | 0 | Time ticks |
| asSNMP_TYPE_OPAQUE | 0 | Opaque |
| asSNMP_TYPE_COUNTER64 | 0 | Counter (64 bits) |
| asSNMP_TYPE_UNSIGNED32 | 0 | Unsigned integer (32 bits) |
| Constant | Value | Description |
| asSNMP_TRAP_COLDSTART | 0 | Cold start |
| asSNMP_TRAP_WARMSTART | 0 | Warm start |
| asSNMP_TRAP_LINKDOWN | 0 | Link down |
| asSNMP_TRAP_LINKUP | 0 | Link up |
| asSNMP_TRAP_AUTHFAILURE | 0 | Authentication failure |
| asSNMP_TRAP_EGPNEIGHLOSS | 0 | Neighbor lost |
| asSNMP_TRAP_ENTERSPECIFIC | 0 | Custom type |
| 0 | ||
| 0 |
| Constant | Value | Description |
| asMIB_ACCESS_NOACCESS | 0 | No access |
| asMIB_ACCESS_NOTIFY | 0 | Notify access |
| asMIB_ACCESS_READONLY | 0 | Read-only access |
| asMIB_ACCESS_WRITEONLY | 0 | Write-only access |
| asMIB_ACCESS_READWRITE | 0 | Rread-write access |
| asMIB_ACCESS_READCREATE | 0 | Read-create access |
| Constant | Value | Description |
| asMIB_STATUS_CURRENT | 0 | Current |
| asMIB_STATUS_DEPRECATED | 0 | Deprecated |
| asMIB_STATUS_OBSOLETE | 0 | Obsolete |
| asMIB_STATUS_MANDATORY | 0 | Mandatory |
| 0 |
When a function is called, the result of the function is stored in the object's 'LastError' property.
When 'LastError' is 0, it means that the last called function completed successfully; otherwise, an error occured.
The value of the LastError tells you why the function failed. All error codes are listed on the ActiveXperts web site:
www.activexperts.com/support/errorcodes (list of error codes).
Here, you can also lookup a specific error to find its description.
You can also call the 'GetErrorDescription' function of any of the objects to find the error description.
Samples for Visual Basic, Visual Basic .NET, Visual C++, Visual C# .NET, ASP and VBScript are included as part of the installation. You can also find the samples on our ftp site at ftp://ftp.activexperts-labs.com/samples/network-component/.
Visit the ActiveXperts Support Site for a complete list of FAQ items at:
http://www.activexperts.com/support
To contact support, please send an e-mail to: support@activexperts.com
Please visit www.activexperts.com/sales to buy the product. Here, you can also find the latest prices.
You can also contact us via email: sales@activexperts.com
After you purchase the product, you will receive a registration code. This code must be entered in the registry on your machine(s). There are three ways to accomplish this:
The ActiveSocket Toolkit automatic installation performs all necessary steps to install and register the component. It will ask for the registration code during installation and will enter the registration code in the registry.
You can use the Activate function of any of the objects:, for instance
Set objTcp = CreateObject("ActiveXperts.Tcp")
objTcp.Activate XXXXX-XXXXX-XXXXX", True ' Substitute XXXXX-XXXXX-XXXXX by
' your own registration code
' Pass True to make the activation persistent, so you need to
' call Activate only once. If you pass False, you need to call Activate
' each time the product is started.
If you prefer, you can also use the Activate function of any of the other objects, e.g. HttpEx or Ntp.
The Activate function of any of the objects writes the following entry to the registry, which will actually activate the product:
Key: HKEY_LOCAL_MACHINE\Software\ActiveXperts\ActiveSocket Toolkit\RegistrationKey Type: REG_SZ Value: XXXXX-XXXXX-XXXXX
where 'XXXXX-XXXXX-XXXXX' is the registration code issued to you.
You can activate the product by editing the registry manually:
For information about how to use the registration code with a Distribution License, please read the following document: How to distribute an ActiveXperts Toolkit.
PLEASE READ THIS SOFTWARE LICENSE AGREEMENT CAREFULLY BEFORE
DOWNLOADING OR USING THE SOFTWARE. BY CLICKING ON THE
"ACCEPT" BUTTON, OPENING THE PACKAGE, DOWNLOADING THE PRODUCT,
OR USING THE EQUIPMENT THAT CONTAINS THIS PRODUCT, YOU ARE
CONSENTING TO BE BOUND BY THIS AGREEMENT. IF YOU DO NOT AGREE
TO ALL OF THE TERMS OF THIS AGREEMENT, CLICK THE "DO NOT
ACCEPT" BUTTON AND THE INSTALLATION PROCESS WILL NOT CONTINUE,
RETURN THE PRODUCT TO THE PLACE OF PURCHASE FOR A FULL REFUND,
OR DO NOT DOWNLOAD THE PRODUCT.
GENERAL
In this Software License Agreement:
(i) "ActiveXperts" means ActiveXperts Software B.V.
(ii) "Customer" means the individual(s), organization or business entity
buying a license of the Software from ActiveXperts or its Distributors
or its Resellers.
(iii) "Software" means computer programs (and their storage medium)
supplied by ActiveXperts and known collectively as "ActiveSocket"
in which ActiveXperts has property rights and any user manuals,
operating instructions, brochures and all other documentation relating
to the said computer programs (the expression "Software" to include all
or any part or any combination of Software).
1. LICENSE GRANT
ActiveXperts grants Customer the following rights provided that you
comply with all terms and conditions of this License Agreement:
(a) Installation and use. Customer may install, use, access, display and
run one copy of the Software on a single computer, such as a
workstation, terminal or other device ("Workstation Computer"). A
"License Pack" allows you to install, use, access, display and run
additional copies of the Software up to the number of "Licensed Copies"
specified above.
(b) Reservation of Rights. ActiveXperts reserves all rights not
expressly granted to you in this License Agreement.
2. UPGRADES AND SUPPLEMENTS
To use a product identified as an upgrade, you must first be licensed
for the Software as eligible for the upgrade. After upgrading, Customer
may no longer use the product that formed the basis for Customer's
upgrade eligibility.
This License Agreement applies to updates or supplements to the original
Software provided by ActiveXperts, unless we provide other terms along
with the update or supplement.
3. LIMITATION ON REVERSE ENGINEERING,DECOMPILATION, AND DISASSEMBLY
Customer may not reverse engineer, decompile, or disassemble the
Software, except and only to the extent that it is expressly permitted
by applicable law notwithstanding this limitation.
4. TERMINATION
Without prejudice to any other rights, ActiveXperts may cancel this
License Agreement if Customer does not abide by the terms and conditions
of this License Agreement, in which case you must destroy all copies of
the Software and all of its component parts.
5. NOT FOR RESALE SOFTWARE
Software identified as "Not for Resale" or "NFR," may not be resold,
transferred or used for any purpose other than demonstration, test or
evaluation.
6. LIMITED WARRANTY
ActiveXperts warrants that for a period of ninety (90) days from the
date of shipment from ActiveXperts: (i) the media on which the Software
is furnished will be free of defects in materials and workmanship under
normal use; and (ii) the Software substantially conforms to its
published specifications. Except for the foregoing, the Software is
provided AS IS. This limited warranty extends only to Customer as the
original licensee. Customer's exclusive remedy and the entire liability
of ActiveXperts and its suppliers under this limited warranty will be,
at ActiveXperts or its service center's option, repair, replacement, or
refund of the Software if reported (or, upon request, returned) to the
party supplying the Software to Customer. In no event does ActiveXperts
warrant that the Software is error free or that Customer will be able to
operate the Software without problems or interruptions.
This warranty does not apply if the software (a) has been altered,
except by ActiveXperts, (b) has not been installed, operated, repaired,
or maintained in accordance with instructions supplied by ActiveXperts,
(c) has been subjected to abnormal physical or electrical stress,
misuse, negligence, or accident, or (d) is used in ultrahazardous
activities.
7. LIMITATION OF LIABILITY AND REMEDIES.
Notwithstanding any damages that you might incur for any reason
whatsoever (including, without limitation, all damages referenced above
and all direct or general damages), the entire liability of ActiveXperts
and any of its suppliers under any provision of this License Agreement
and your exclusive remedy for all of the foregoing (except for any
remedy of repair or replacement elected by ActiveXperts with respect to
any breach of the Limited Warranty) shall be limited to the greater of
the amount actually paid by you for the Software or U.S.$5.00. The
foregoing limitations, exclusions and disclaimers (including Sections 4,
5 and 6 above) shall apply to the maximum extent permitted by applicable
law, even if any remedy fails its essential purpose.
8. ENTIRE AGREEMENT
This License Agreement (including any addendum or amendment to this
License Agreements which is included with the Software) are the entire
agreement between you and ActiveXperts relating to the Software and the
support services (if any) and they supersede all prior or
contemporaneous oral or written communications, proposals and
representations with respect to the Software or any other subject matter
covered by this License Agreement. To the extent the terms of any
ActiveXperts policies or programs for support services conflict with the
terms of this License Agreement, the terms of this License Agreement
shall control.
This Agreement shall be construed in accordance with the laws of The
Netherlands and the Dutch courts shall have sole jurisdiction in any
dispute relating to these conditions. If any part of these conditions
shall be or become invalid or unenforceable in any way and to any extent
by any existing or future rule of law, order, statute or regulation
applicable thereto, then the same shall to the extent of such invalidity
or enforceability be deemed to have been deleted from the conditions
which shall remain in full force and effect as regards all other
provisions.
9. Copyright
The Software is protected by copyright and other intellectual property
laws and treaties. ActiveXperts or its suppliers own the title,
copyright, and other intellectual property rights in the Software. The
Software is licensed, not sold.