«Есть люди, которым труднее других. И на них обязанность быть лучше. Другим сходит с рук, а им нет… Это вроде бы каждый обязан. Но если человек решился жить по мечте, то он обязан вдвойне. Потому что большинство по мечте жить трусит… Или благоразумие мешает. А те, кто живет по мечте, — они вроде примера. Или укора».
Олег Куваев.
Страницы
суббота, 14 августа 2010 г.
Получить список установленного софта через vbs
Этим скриптом ежедневно машины сдают свой программный конфиг на сервер:
em BEGIN const HKLM = cscript.exe» outFile=»» out_all=0 FMT=1 ‘ 0 — Text ‘ 1 — CSV ‘ 2 — HTM strKey = «SOFTWAREMicrosoftWindowsCurrentVersionUninstall» Set objReg = GetObject(«winmgmts://./root/default:StdRegProv») objReg.EnumKey HKLM, strKey, arrSubkeys S=»» T=»» T=out(T,»INSTDATE»,11,FMT<>3) T=out(T,»VER»,8,FMT<>3) T=out(T,»NAME»,0,FMT<>3) outstr(T) for each strSubkey in arrSubkeys T=»» AppName=»» InstDate=»» verMajor=»» verMinor=»» ver=»» Siz=»» if objReg.GetStringValue(HKLM, strKey DisplayName», AppName) <> 0 then objReg.GetStringValue HKLM, strKey QuietDisplayName», AppName end if if len(AppName)>0 then objReg.GetStringValue HKLM, strKey InstallDate», InstDate objReg.GetDWORDValue HKLM, strKey VersionMajor», verMajor objReg.GetDWORDValue HKLM, strKey VersionMinor», verMinor objReg.GetDWORDValue HKLM, strKey EstimatedSize», Siz ver=verMajor .» .» then ver=»» T=out(T,InstDate,11,FMT<>3) T=out(T,ver,10,FMT<>3) T=out(T,AppName,0,FMT<>3) outstr(T) end if next outEnd() function out(Ret, T, N, Q) if IsNull(T) then T=»» if Q then select case FMT case 0 if N>0 then if N>len(T) then Ret=Ret space(N-len(T)) if N0 then Ret=Ret ,» Ret=Ret » Ret=Ret » » » » text » if len(S)=0 then text=»» » » text end if end if if outCon then if len(outFile)=0 then wScript.echo text end if end if S=S vbCrLf end sub sub outEnd T Apple-style-span» style=»font-size: 0.9em;»> » «» T if not outCon then if len(outFile)=0 then WScript.echo(S) else if FMT=2 then if len(outFile)=0 then WScript.echo T end if end if if len(outFile)>0 then set fso=CreateObject(«Scripting.FileSystemObject») set file=fso.OpenTextFile(outFile, 2, true) file.write(S) file.close end if end sub function qw(T) qw=chr(34) chr(34) end function
(источник — с форума sysadmins.ru)
Урок 1 по VBScript Синтаксис vbs сценариев
Комментариев нет:
Отправить комментарий
Подписаться на: Комментарии к сообщению (Atom)
Поиск по этому блогу
Ярлыки
Архив блога
- апреля 2023 (1)
- февраля 2023 (4)
- октября 2022 (1)
- июля 2022 (2)
- июня 2022 (1)
- апреля 2022 (1)
- марта 2022 (5)
- февраля 2022 (1)
- января 2022 (1)
- декабря 2021 (4)
- октября 2021 (3)
- сентября 2021 (1)
- августа 2021 (6)
- июля 2021 (1)
- июня 2021 (1)
- апреля 2021 (6)
- марта 2021 (14)
- февраля 2021 (3)
- января 2021 (8)
- декабря 2020 (2)
- ноября 2020 (6)
- октября 2020 (2)
- августа 2020 (4)
- июля 2020 (1)
- июня 2020 (3)
- апреля 2020 (1)
- февраля 2020 (6)
- января 2020 (5)
- декабря 2019 (1)
- ноября 2019 (1)
- октября 2019 (3)
- августа 2019 (4)
- июля 2019 (2)
- июня 2019 (1)
- мая 2019 (3)
- апреля 2019 (3)
- марта 2019 (3)
- февраля 2019 (8)
- января 2019 (5)
- декабря 2018 (7)
- ноября 2018 (2)
- октября 2018 (1)
- сентября 2018 (2)
- июля 2018 (1)
- июня 2018 (1)
- мая 2018 (1)
- апреля 2018 (1)
- февраля 2018 (2)
- января 2018 (5)
- декабря 2017 (13)
- ноября 2017 (1)
- октября 2017 (2)
- сентября 2017 (1)
- августа 2017 (1)
- июля 2017 (2)
- июня 2017 (1)
- мая 2017 (4)
- апреля 2017 (2)
- февраля 2017 (3)
- января 2017 (2)
- декабря 2016 (3)
- ноября 2016 (9)
- октября 2016 (3)
- сентября 2016 (2)
- августа 2016 (7)
- июля 2016 (15)
- июня 2016 (8)
- мая 2016 (9)
- апреля 2016 (3)
- марта 2016 (14)
- февраля 2016 (12)
- января 2016 (11)
- декабря 2015 (6)
- ноября 2015 (14)
- октября 2015 (7)
- сентября 2015 (2)
- августа 2015 (4)
- июля 2015 (8)
- июня 2015 (3)
- мая 2015 (1)
- апреля 2015 (4)
- февраля 2015 (5)
- января 2015 (8)
- декабря 2014 (12)
- ноября 2014 (5)
- октября 2014 (18)
- сентября 2014 (10)
- августа 2014 (10)
- июля 2014 (6)
- июня 2014 (6)
- мая 2014 (14)
- апреля 2014 (5)
- февраля 2014 (4)
- января 2014 (2)
- декабря 2013 (11)
- ноября 2013 (13)
- октября 2013 (7)
- сентября 2013 (5)
- августа 2013 (17)
- июля 2013 (8)
- июня 2013 (9)
- мая 2013 (10)
- апреля 2013 (5)
- марта 2013 (12)
- февраля 2013 (10)
- января 2013 (30)
- декабря 2012 (8)
- ноября 2012 (13)
- октября 2012 (43)
- сентября 2012 (5)
- августа 2012 (10)
- июля 2012 (28)
- июня 2012 (42)
- мая 2012 (29)
- апреля 2012 (40)
- марта 2012 (31)
- февраля 2012 (22)
- января 2012 (25)
- декабря 2011 (26)
- ноября 2011 (13)
- октября 2011 (6)
- сентября 2011 (8)
- августа 2011 (12)
- июля 2011 (1)
- июня 2011 (7)
- мая 2011 (12)
- апреля 2011 (13)
- марта 2011 (8)
- февраля 2011 (10)
- января 2011 (10)
- декабря 2010 (5)
- ноября 2010 (3)
- октября 2010 (8)
- сентября 2010 (3)
- августа 2010 (2)
- июля 2010 (5)
- июня 2010 (5)
- мая 2010 (6)
- апреля 2010 (3)
- марта 2010 (6)
- февраля 2010 (1)
- января 2010 (5)
- декабря 2009 (2)
- ноября 2009 (4)
- октября 2009 (3)
- сентября 2009 (2)
- июля 2009 (2)
- июня 2009 (1)
- мая 2009 (1)
- марта 2009 (1)
- ноября 2008 (2)
- октября 2008 (3)
- сентября 2008 (2)
- августа 2008 (2)
- июля 2008 (1)
- марта 2008 (2)
- января 2008 (1)
- декабря 2007 (2)
- сентября 2007 (2)
- августа 2007 (1)
- июля 2007 (2)
- июня 2007 (2)
- сентября 2006 (2)
- августа 2006 (2)
- июля 2006 (2)
- января 2006 (3)
Сообщить о нарушении
Авторы
Комплексные системы развертывания приманок, управляющие платформы deception-системы
Одного-двух ханипотов может быть недостаточно, особенно если речь идет о защите больших корпоративных сетей. Приманки становятся действите.
интересные vbs скрипты
Подпишитесь на
Сообщения
Сообщения
Комментарии
Комментарии
Источник: www.bulygin.su
Проверка установленных программ
Мне нужна помощь в поиске версии установленного программного обеспечения, лицензии и т. Д.
приведенный ниже скрипт работает нормально, но в нем перечислены все установленные программы. Но я пытаюсь найти конкретное программное обеспечение. Это дает хороший результат, вы можете помочь мне здесь.
‘This script outputs to a .tsv file a list of applications installed on the computer ‘Output file is software.tsv ‘Usage: cscript applications.vbs Set objFSO = CreateObject(«Scripting.FileSystemObject») Set objTextFile = objFSO.CreateTextFile(«C:WINDOWSsystem32tempsoftware.tsv», True) strComputer = «.» Set objWMIService = GetObject(«winmgmts:» _ !\» «rootcimv2») Set colSoftware = objWMIService.ExecQuery _ («Select * from Win32_Product») objTextFile.WriteLine «Caption» _ «Description» «Identifying Number» _ «Install Date» «Install Location» _ «Install State» «Name» _ «Package Cache» «SKU Number» «Vendor» «Version» For Each objSoftware in colSoftware objTextFile.WriteLine objSoftware.Caption _ objSoftware.Description _ objSoftware.IdentifyingNumber _ objSoftware.InstallDate2 _ objSoftware.InstallLocation _ objSoftware.InstallState _ objSoftware.Name _ objSoftware.PackageCache _ objSoftware.SKUNumber _ objSoftware.Vendor _ objSoftware.Version Next objTextFile.Close
я просто ищу информацию о C:Program FilesHPhponcfghponcfg.exe и не беспокоюсь о других установленных программах, по умолчанию вышеприведенный скрипт дает подробную информацию обо всех программах, но мне это просто не нужно. где я могу вставить эту строку в сценарий?
С уважением, Дхаранеш,
user4595927 10 апр ’15 в 14:19 2015-04-10 14:19
2015-04-10 14:19
2 ответа
Проверьте эту модификацию, я попробовал ее с именем Google, так что проверьте, если для вас повторные запуски, что вы ожидаете или нет?
Set objFSO = CreateObject(«Scripting.FileSystemObject») Set Ws = CreateObject(«WScript.Shell») LogFile = «software.tsv» if objFSO.FileExists(LogFile) Then objFSO.DeleteFile(LogFile) End if Set objTextFile = objFSO.OpenTextFile(LogFile,8,True) MySoftware = «Google» strComputer = «.» Set objWMIService = GetObject(«winmgmts:» _ !\» «rootcimv2») Set colSoftware = objWMIService.ExecQuery _ («Select * from Win32_Product where Name Like » Caption» _ «Description» «Identifying Number» _ «Install Date» «Install Location» _ «Install State» «Name» _ «Package Cache» «SKU Number» «Vendor» «Version» For Each objSoftware in colSoftware objTextFile.WriteLine objSoftware.Caption _ objSoftware.Description _ objSoftware.IdentifyingNumber _ objSoftware.InstallDate2 _ objSoftware.InstallLocation _ objSoftware.InstallState _ objSoftware.Name _ objSoftware.PackageCache _ objSoftware.SKUNumber _ objSoftware.Vendor _ objSoftware.Version Next objTextFile.Close ws.run «Notepad software.tsv» ‘************************************************************************** Function CommandLineLike(MySoftware) MySoftware = Replace(MySoftware, «», «\») CommandLineLike = «‘%» «%'» End Function ‘**************************************************************************
user3080770 14 апр ’15 в 15:11 2015-04-14 15:11
2015-04-14 15:11
Как получить расширенную информацию о файле?
Например, этот vbscript может получить расширенную информацию Firefox.exe:
Option Explicit Dim fso,ws,RootFolder,LogFile,stFolder,stFile,oShell,oFolder,oFile,i Set fso = CreateObject(«Scripting.FileSystemObject») Set ws = CreateObject(«WScript.Shell») LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, «.»)) txt» If fso.FileExists(LogFile) Then fso.DeleteFile(LogFile) End If stFolder = Ws.ExpandEnvironmentStrings(«%PROGRAMFILES%Mozilla Firefox») stFile =»firefox.exe» Set oShell = CreateObject(«Shell.Application») Set oFolder = oShell.Namespace(stFolder) Set oFile = oFolder.Items.Item(stFile) ‘Displays extended file properties For i = 0 to 34 WriteLog(«[» «] » » : » .»)) txt» Set fs = CreateObject(«Scripting.FileSystemObject») Set ts = fs.OpenTextFile(LogFile,ForAppending,True) ts.WriteLine strText ts.Close End Sub ‘********************************************************************************************************************* Function DblQuote(Str) DblQuote = Chr(34) Chr(34) End Function ‘**********************************************************************************************************************
Или, если вы хотите проверить версию установленного Firefox и если она обновлена или нет, попробуйте этот vbscript:
Вот еще один способ получить FileVersion из Firefox.exe, используя Powershell и Vbscript
GetFileDetailsFirefox.vbs
Option Explicit Dim MyCmd,Ws,Ret,ByPassPSFile,PSFile,PathFile,OutPut Set Ws = CreateObject(«wscript.Shell») PathFile = Ws.ExpandEnvironmentStrings(«%ProgramFiles%») Mozilla FirefoxFirefox.exe» OutPut = Ws.ExpandEnvironmentStrings(«%Temp%») firefox_version.txt» PSFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, «.»)) ps1″ ByPassPSFile = «cmd /c PowerShell.exe -ExecutionPolicy bypass -noprofile -file » MyCmd = «Get-ChildItem «» | Get-ItemProperty | Select VersionInfo | Format-List > » «» Call WriteLog(MyCmd) Ret = Ws.run(ByPassPSFile .»)) ps1″ Set fs = CreateObject(«Scripting.FileSystemObject») Set ts = fs.OpenTextFile(PSFile,ForWriting,True) ts.WriteLine strText ts.Close End Sub ‘********************************************************************************************** Function DblQuote(Str) DblQuote = Chr(34) Chr(34) End Function ‘***********************************************************************************************
Источник: stackru.com
Получить список установленного софта через vbs
Этим скриптом ежедневно машины сдают свой программный конфиг на сервер:
const HKLM = H80000002
on Error resume next
outCon = right ( LCase ( wScript . FullName ) , 11 ) = «cscript.exe»
out_all = 0
strKey = «SOFTWAREMicrosoftWindowsCurrentVersionUninstall»
Set objReg = GetObject(» winmgmts : //./root/default:StdRegProv»)
objReg . EnumKey HKLM , strKey , arrSubkeys
T = out ( T , «INSTDATE» , 11 , FMT 3 )
T = out ( T , «VER» , 8 , FMT 3 )
T = out ( T , «NAME» , 0 , FMT 3 )
for each strSubkey in arrSubkeys
if objReg . GetStringValue ( HKLM , strKey strSubkey , «DisplayName» , AppName ) 0 then
objReg . GetStringValue HKLM , strKey strSubkey , «QuietDisplayName» , AppName
if len ( AppName ) 0 then
objReg . GetStringValue HKLM , strKey strSubkey , «InstallDate» , InstDate
objReg . GetDWORDValue HKLM , strKey strSubkey , «VersionMajor» , verMajor
objReg . GetDWORDValue HKLM , strKey strSubkey , «VersionMinor» , verMinor
objReg . GetDWORDValue HKLM , strKey strSubkey , «EstimatedSize» , Siz
ver = verMajor «.» verMinor
if ver = «.» then ver = «»
Источник: msbro.ru