Visual Basic - Cerrar sesiones RDP en VBS

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha disminuido su posición en 53 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Cerrar sesiones RDP en VBS

Publicado por won (2 intervenciones) el 15/08/2019 05:21:26
Hola a todos:
Estoy en un proyecto para cambiar algunos códigos a VBS, uno de ellos es un codigo para cerrar sesiones de RDP.
El que tengo y funciona, cierra todas las sesiones menos la del Administrador.

Esta en PowerShell y como apenas me estoy iniciando en VBS hay algunas partes que se me escapan. Les comparto el codigo por si les sirve. ¿Me podrían ayudar a saber como hacer esto mismo en VBS?
Gracias de antemano

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
## CIERRA SESIONES DE USUARIOS
$serverName = "nombre del servidor"
$sessions = qwinsta /server $serverName| ?{ $_ -notmatch '^ SESSIONNAME' } | %{
$desco = "" | Select "Active", "SessionName", "Username", "Id", "State", "Type", "Device"
$desco.Active = $_.Substring(0,1) -match '>'
$desco.SessionName = $_.Substring(1,18).Trim()
$desco.Username = $_.Substring(19,20).Trim()
$desco.Id = $_.Substring(39,9).Trim()
$desco.State = $_.Substring(48,8).Trim()
$desco.Type = $_.Substring(56,12).Trim()
$desco.Device = $_.Substring(68).Trim()
$desco
}
 
foreach ($session in $sessions){
    if ($session.Username -ne "" -or $session.Username.Length -gt 1){
		if ($session.Username -ne "nombre de usuario" ){
			if ($session.Username -ne "Administrador" ){
				rwinsta $session.id
				#"Sesion-> $session.id"
 
			}
		}
       }
}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder