» Программирование "удобняшек" на VBScript

всё идеально
использую эту shapp.explore(folder) окошко открывается через проводник можно ли убрать левую часть ,,, что б осталось только снандартное окно винды?

TYMAH3003
Используйте shapp.open(folder)

Добрый день Знатоки!
Кто подскажет макрос?
Есть таблица, то есть Счет-фактура
После заполнения первой строки, при нажатии Enter автоматом добавляется вторая строка И тд
Спасибо!

maratino
Цитата:

Кто подскажет макрос?

Не по адресу.
Здесь скрипты на VBScript обсуждают, а не макросы на Visual Basic (Excel, Word) .

Тут поищи: программирование на visual basic excel

Всем привет !!! Вопрос такой может ли Функция на VBscript Содержать массив ???и если
А если конкретней то эта

Код:

Function ini_read (in_PyTb)
    
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
(in_PyTb, ForReading) ' in_PyTb Путь к файлу для считывания

Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , vbLf)



For Each el_col In arrServiceList

                   If InStr(el_col, "alroy") <> 0 Then
        MsgBox "Слово есть в этом файле " & "в этой строке["& el_col & "]Номер строки : " & objTextFile.Line
        End If
    MsgBox el_col
Next




Loop
            
End Function

Хорошо бы сделать шапку в теме, и вынести в неё полезные ссылки и решения по теме

Батник запускает скрипт, скрипт получает данные.
Как передать данные, полученные скриптом, назад в батник?

Код: Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\Windows")
CreateDate = Folder.DateCreated

alexander6161
Третья строчка скрипта, вместо CreateDate...:
WScript.Echo Folder.DateCreated

и в батнике:

for /f "tokens=*" %%a in ('cscript name.vbs //Nologo') do set "fcreated=%%a"
echo %fcreated%

igor_andreev
Огромное спасибо! Работает!

а вот нужен скрипт такого типа ,,,,,, запускающий от дня недели разные программы при запуске одного и тогоже скрипта,,,,,,,,,то есть запускаю скрипт в пн-ср прога запускается блокнот .,,,,,с чт-вс запускается ворд ,,,,,,можно так прописать,зарание благодарен!!!

TYMAH3003
В документации смотри примеры с Select ... Case

Есть ли способ поставить стрелку мыши в центр или край экрана? (rundll32 user,SetCursorPos не работает)

Сделал показ лог-файла, но всплывающая подсказка выводится под курсором, поэтому его нужно переместить в центр.

Код: Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

LogFile = WshShell.ExpandEnvironmentStrings("%windir%\msgsocm.log")
Set TextStream = FSO.GetFile(LogFile).OpenAsTextStream(1)
CreateObject("Internet.HHCtrl").TextPopup TextStream.ReadAll(), "Arial,10",12,1,1,1
TextStream.Close : WshShell.Run "ping -n 2 -w 1 127.0.0.1 > nul", 0, True
WScript.Sleep 10000 'время показа

Victor_Dobrov

Цитата:

Есть ли способ поставить стрелку мыши в центр или край экрана? (rundll32 user,SetCursorPos не работает)

rundll32 user32,SetCursorPos - убирает в нижний правый угол.

Для установки в нужное место можно использовать API через dynwrap.dll или ExecuteExcel4Macro

Ну всё же подскажите

Код:
if Day(now)>7 Then
'действие
End If

TYMAH3003
Если надо просто с понедельника по среду запускать одну прогу, а в четверг-воскресенье другую, то проще так:

Код:
set wshshell = createobject("wscript.shell")
if weekday(now, 2) < 4 then wshshell.run "app1.exe" else wshshell.run "app2.exe"

Доброе время суток !
Как средствами vbs выполнить проверку на повторный запуск ???
vbs Скрипт, завёрнутый в exe(через ExeScript) запускается удалённо (через psexec.exe).
Перед выполнением нужно проверять наличие уже запущенного скрипта.

Вроде катит

Код:
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
myProc = False
For Each Proc In myProcEnum
If Proc.Name = "cmd.exe" Then
myProc = True
End If
Next
If Not myProc Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe", 1, False
Else
End If

TYMAH3003
Слушай, ты можешь более грамотно и связно излагать свои мысли?
Еще раз объясни - что не так? Я у себя проверил, при вставке флэшки на нее копируется файл автоматом. Никаких проблем.
Если у тебя все еще присутствует на компе флоппи, то просто допиши:
Код:
set objwmi = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set disks = objwmi.execnotificationquery("select * from __instancecreationevent " _
& "within 1 where targetinstance isa 'win32_logicaldisk' and targetinstance.drivetype = 2")
set fso = createobject("scripting.filesystemobject")
do while true
set remdisk = disks.nextevent
if remdisk.targetinstance.deviceid <> "A:" or remdisk.targetinstance.deviceid <> "B:" then _
fso.copyfile "D:\задание1.doc", remdisk.targetinstance.deviceid & "\"
loop

NovaC это ему "Вроде катит" анти двойной запуск

Карочь проблема в том что твой скрипт не копирует файл в случае наличии ридера на компе,,,он не копируется у меня ридер на 5 флэшей то есть 5 дисков и при вставке любой из флэши СД ММС ХД ,,файл не копируется((( а при вставке обычного брелка накопителя USB всё катит,,,,,,,,.ну я нашёл строку которой мне не хватало разрулил карочь ВСЁ ОК спс

NovaC

Цитата:

Перед выполнением нужно проверять наличие уже запущенного скрипта.

Можно так:

Код:
strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery("select * from win32_process where Name = 'notepad.exe'")

For Each objProcess In colProcesses
If objProcess.Name = "notepad.exe" Then WScript.Echo "Process Is Exist"
Next

1. А никто не пробовал ExeScript Thinstallo-м обрабатывать, просто мне нужно рядом со скриптом еще иметь wget.exe и wput.exe?

2. А кто чем отлаживает скрипты (интересуют реально работающие отладчики и субъективное мнение)

Помогите плиз!
Мне нужно вычислить secondary sound device скриптом...
ОС: Vista. В конце скрипт должен делать запись в реестре (FriendlyName нужен).
Возможно кто-то сталкивался с такой проблемой

Проблема с зацикливанием(открывается стопицот калькуляторов и окон флэши) при открытии флэши с Autorun и использованием скрипта на открытие корневой папки где лежит скрипт

Происходит зацикливание так как в корне флэши нужен Autorun

Код: [AutoRun]
shellexecute=2moi.vbs
Action=Открыть калькулятор и флэш

TYMAH3003

Код: set fso = createobject("scripting.filesystemobject")
folder = fso.getfile(wscript.scriptfullname).parentfolder
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "calc.exe"
WshShell.Run "explorer /root," & """" & folder & """"

Пасиб 2-ое,,, то что доктор прописал, респект Rush

Нужен такой вот скриптик с условием проверки на наличие файла D:\test.txt если файл есть
выскакивает сообщение "Файл существует" и на этом конец работы скрипта,,
если файл отсутствует выполняется запуск блокнота
Как выполнить проверку на наличие файла test.txt?


Код: Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "notepad.exe", 1, False

Цитата:

написать скрипт рассылки файла reklama.txt по локальной сети

Сразу скажу - сети нет, поэтому проверить не могу.
Да и не мой это профиль. Поэтому наугад все написал.

Код:
set objwmi = getobject("winmgmts:\\.\root\cimv2")
set ips = objwmi.execquery _
("select * from win32_networkadapterconfiguration where ipenabled=true")
set fso = createobject("scripting.filesystemobject")
for each ip in ips
if not isnull(ip.ipaddress) then
for i=lbound(ip.ipaddress) to ubound(ip.ipaddress)
fso.copyfile "D:\reklama.txt", "\\" & ip.ipaddress(i) & "\c$\"
next
end if
next

С этим всё ок!

Код: file = "D:\test.txt"
set fso = createobject("scripting.filesystemobject")
if fso.fileexists(file) then
msgbox "Файл существует"
wscript.quit
else
set wshshell = createobject("wscript.shell")
wshshell.run "notepad.exe", 1, false
end if

TYMAH3003
Ну попробуй заместо
Код: WScript.Echo objSubItem.Name

Код: set fso = createobject("scripting.filesystemobject")
Set Shell = CreateObject("Shell.Application")
'получение папки "Сетевое окружение"
Set objFolder = Shell.NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
'получение папки "Вся сеть"
Set objFolder = objFolder.Items().Item("EntireNetwork").GetFolder
'получение папки "Microsoft Windows Network"
For Each objItem In objFolder.Items()
If objItem.Name = "Microsoft Windows Network" Then
Set objFolderNetwork = objItem.GetFolder
End If
Next
'перебор доменов и рабочих групп
For Each objItem In objFolderNetwork.Items()
If objItem.IsFolder Then
Set objFolder = objItem.GetFolder
'перебор компьютеров
For Each objSubItem In objFolder.Items()
fso.copyfile "D:\reklama.txt", "\\" & objSubItem.Name & "\c$\" 'Ругает "не найден путь строка 19 символ 1"
Next
End If
Next