Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Module Module1 Sub Main() Dim MyDatabase As OleDb.OleDbConnection Dim ConnectToMyDatabase As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\\SERVER\Database.mdb" MyDatabase = New OleDb.OleDbConnection(ConnectToMyDatabase) MyDatabase.Open() Dim stringx As String stringx = MyDatabase.Table Dim file As String file = "robocopy.exe" Dim args As String args = "C:\test C:\test2 *.* /copyall /mir" Dim username As String username = "Username" Dim pass As SecureString pass = Secure() Dim Dom As String Dom = "DOMAIN" Stop 'Process.Start(file, args, username, pass, Dom) End Sub Public Function Start(fileName As String, arguments As String, userName As String, password As SecureString, domain As String) As Process End Function Public Function Secure() As SecureString Dim pass As String pass = "password" Dim str As New SecureString For x As Integer = 0 To pass.Length - 1 str.AppendChar(pass.Substring(x, 1)) Next Return str End Function End Module
|Windows Script Host failed (Access is denied.) error||6||222|
|SQL VB connection works in one PC and doesn't in another||15||67|
|VB6 - Convert HH:MM into Decimal||8||62|
|Help with retrieving partial value from a column using VB.NET||4||51|