Este script reseta licenças de usuários a partir de um txt. Se clicar nele ou chamar via prompt de comando funciona, só via task scheduler do windows que não.
Option Explicit
Dim objFSO, strTextFile, strData, strLine, arrLines, objShell, strTmp, strFeature, strUserDev
CONST ForReading = 1
set objShell = wscript.createObject("wscript.shell")
'Name of the text file to be read
strTextFile = "users.txt"
'ADJUST strFeature AS PER REQUIREMENTS
strFeature = "XDT_PLT_UD"
'ADJUST strUserDev AS PER REQUIREMENTS
strUserDev = "user"
'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Open the text file - strData now contains the whole file
strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
'Split the text file into lines
arrLines = Split(strData,vbCrLf)
'Step through the lines
For Each strLine in arrLines
strTmp = "cmd /C udadmin -f " & strFeature & " -" & strUserDev & " " & strLine & " -delete"
'To see the command being, run add a line below with wscript.echo strtmp
objShell.Run strTmp
'wscript.echo strTmp
Next
'Cleanup
Set objFSO = Nothing
