‎08-12-2011 03:39 AM
‎10-29-2015 02:12 AM
‎12-26-2014 08:51 AM
‎01-26-2012 08:27 PM
call Init
Public Sub Init
Dim rstAuthors, teamviewerid, shell
if isobject(cn) = false then
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString = "Provider=SQLOLEDB.1;Data " & _
"Source=sourcedatabase; Initial Catalog=lansweeperdb;user id = " & _
"'sa';password='yourpassword'"
cn.Open
strAuthorsQry = "Select tblCompCustom.Custom1 From tblComputers Inner Join tblCompCustom On tblComputers.Computername = tblCompCustom.Computername Where (tblcomputers.domain = '" & wscript.arguments(0) & "' AND tblcomputers.computer = '" & wscript.arguments(1) & "')"
set rstAuthors = cn.execute(strAuthorsQry)
rstAuthors.MoveFirst
teamviewerid = rstauthors("Custom1")
Set shell = CreateObject("WScript.Shell")
shell.Run "\\pathtoactionsfolder\teamviewer.exe -i " & teamviewerid & "", 1, false
Set shell = Nothing
end if
End Sub
‎08-15-2011 10:47 PM
‎03-31-2023 02:47 PM
When will this new feature be released?
‎04-03-2023 11:15 AM
Hello there!
While this feature is still on our customer wish list, it is not in active development. As such, we aren't able to guarantee that this feature will be implemented or provide you with an estimated release date at this time.
Experience Lansweeper with your own data. Sign up now for a 14-day free trial.
Try Now