You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.6 KiB
43 lines
1.6 KiB
Public Class frmLVNCRSMain
|
|
Private Sub frmLVNCRSMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Services.checkRunTimeComponents()
|
|
Services.getSupportID()
|
|
|
|
If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
|
|
tsButtonRunAs.Image = Global.LVNC_RS.My.Resources.is_admin_on
|
|
Else
|
|
tsButtonRunAs.Image = Global.LVNC_RS.My.Resources.is_admin_off
|
|
End If
|
|
|
|
txtLVNCSupportID.Text = Format(Services.lSupportID, "### ### ##0")
|
|
End Sub
|
|
|
|
Private Sub tsButtonRunAs_Click(sender As Object, e As EventArgs) Handles tsButtonRunAs.Click
|
|
'Dim sLogin As String = "locadm"
|
|
'Dim sPasswd As String = "dbkrf-bujkrf"
|
|
'Dim secPasswd As New Security.SecureString
|
|
'
|
|
'For i As Integer = 0 To sPasswd.Length - 1
|
|
' secPasswd.AppendChar(sPasswd.ElementAt(i))
|
|
'Next
|
|
'
|
|
'Dim startInfo As New ProcessStartInfo
|
|
'With startInfo
|
|
' .Arguments = "/Q /C start " & Application.ExecutablePath
|
|
' .FileName = Environment.GetEnvironmentVariable("ComSpec")
|
|
' .Password = secPasswd
|
|
' .UserName = sLogin
|
|
' .UseShellExecute = False
|
|
' .WorkingDirectory = Environment.CurrentDirectory
|
|
' .WindowStyle = ProcessWindowStyle.Hidden
|
|
'End With
|
|
'
|
|
'Try
|
|
' Dim p As Process = Process.Start(startInfo)
|
|
'Catch ex As System.ComponentModel.Win32Exception
|
|
' Return
|
|
'End Try
|
|
'
|
|
'Application.Exit()
|
|
End Sub
|
|
End Class
|
|
|