Member 13615326 Ответов: 1

У меня есть vbscript следующим образом: set nice = wscript.createobject ("wscript.shell"). Теперь я хочу, чтобы имя пользователя выбиралось динамически для тех, кто вошел в систему.

у меня есть vbscript следующим образом :

набор хороший = объект WScript.функция createobject ("объект WScript.раковина")

в резюме об ошибке следующий

приятно.запустить "cmd.exe"

объект WScript.сон 400

приятно.помощью sendkeys "компакт C:\Users\Annamaria.Mikecz01\Desktop\CENT-ERIKA-GUI"
приятно.помощью sendkeys "{ввод}"

хорошо, пришлите ключи". capture.jpg"
приятно.помощью sendkeys "{ввод}"
объект WScript.сон 300
приятно.помощью sendkeys "%{F4 и}"


Теперь я хочу, чтобы имя пользователя выбиралось динамически для тех, кто вошел в систему. Итак, каким кодом я должен заменить этот : "C:\Users\Annamaria-да.Mikecz01\Desktop".


Пожалуйста помочь

Что я уже пробовал:

набор хороший = объект WScript.функция createobject ("объект WScript.раковина")

в резюме об ошибке следующий

приятно.запустить "cmd.exe"

объект WScript.сон 400

приятно.помощью sendkeys "компакт C:\Users\Annamaria.Mikecz01\Desktop\CENT-ERIKA-GUI"
приятно.помощью sendkeys "{ввод}"

хорошо, пришлите ключи". capture.jpg"
приятно.помощью sendkeys "{ввод}"
объект WScript.сон 300
приятно.помощью sendkeys "%{F4 и}"

1 Ответов

Рейтинг:
0

Richard Deeming

Специальные папки - VBScript - SS64.com[^]

Так: 

Dim folderPath
folderPath = nice.SpecialFolders("Desktop")
folderPath = folderPath & "\CENT-ERIKA-GUI"

nice.SendKeys "cd "
nice.SendKeys folderPath
nice.SendKeys "{enter}"


Однако- это не очень хорошая идея , чтобы полагаться на нее SendKeys. Если вы просто пытаетесь открыть файл в соответствующем приложении, используйте Run вместо этого-метод.
Dim nice
Dim filePath

Set nice = Wscript.CreateObject("wscript.shell")
filePath = nice.SpecialFolders("Desktop")
filePath = filePath & "\CENT-ERIKA-GUI\capture.jpg"

nice.Run filePath