- Igencsak szerény méretekkel rendelkezik az Aetina Xe HPG architektúrás VGA-ja
- Miniképernyős, VIA-s Epomaker billentyűzet jött a kábelmentes szegmensbe
- Különösen rendezett beltér hozható össze a Cooler Master új házában
- A középkorra és a pokolra is gondolt az új AMD Software
- Új gyártástechnológiai útitervvel állt elő a TSMC
Hirdetés
-
Különösen rendezett beltér hozható össze a Cooler Master új házában
ph A 49,73 literes térfogatú, látszólag jól szellőző modell tárt karokkal várja a konnektoraikat rejtő ASUS és MSI alaplapokat.
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
A Video AI lehet a One UI 6.1.1 ütőkártyája
ma Vagy hogy fogja a mesterséges intelligencia manipulálni a mozgóképeket?
Aktív témák
-
Petisz84
tag
Hali!
Szükségem lenne egy olyan scriptre ami törli a temp könyvtár tartalmát. Ha valaki tudna segíteni azt nagyon megköszönném!
Üdv: Petisz84
[Szerkesztve] -
QuarK
senior tag
Háát, nem tudom ez jó lesz-e:
torol.bat:
@echo off
cd C:\Documents and Settings\xxx\Local Settings\Temp
attrib -r *.* /S /D
del /f /s /q *.*
cd C:\
Aztán ez berakod az Indítópultba. Ez NT esetén jó. Az attrib eltünteti a biztonság kedvéért az összes read-only attribútumot, az összes alkönyvtárból, a del meg töröl, a /f azt is kitörli, amire rákérdezne, a /s az összes alkönyvtárat is elintézi, a /q pedig nem kérdez rá, biztos benne? Bár én leállítás előtt szoktam Total Commanderbe egy pár enter és utána Shift-Del
mod: Bár ez nem Windows Script, a nyelv lenne a lényeg
[Szerkesztve] -
Alan
aktív tag
QuarK, ne haragudj, hogy belejavítok a script-edbe, de ezt a sort:
cd C:\Documents and Settings\xxx\Local Settings\Temp
én lecserélném erre:
cd ''%userprofile%\Local Settings\Temp''
és így minden felhasználóra működni fog. Sőt, ha már itt tartunk, a temp könyvtárba igazából így kell korrektül beváltani:
cd %temp%
(ui. ha valaki átállította a TEMP környezeti beállítást pl. egy másik meghajtóra, akkor az előző megoldás nem nyer.) -
bmx powa
tag
up
"hát, EZT a verziót kihagynám, nem mintha utálnám Jókerpapát, csak Ő nekem már, khmm, nem elég filigrán, túl férfi és semennyire sem bari... "By Bolondember
-
lúzer
veterán
Hali!
VBS üzenetküldő script kéne, ilyesmi:
Set objEmail = CreateObject(''CDO.Message'')
objEmail.From = ''jvaughan@locktonrisk.com''
objEmail.To = ''jvaughan@locktonrisk.com''
objEmail.Subject = ''Monthly File Transfer''
objEmail.Textbody = ''Here is your monthly file.''
objEmail.Send
Csak t-online alatt nem megy 0x80040217 hibakóddal.
Valszeg a hitelesítés miatt, átváltottak hitelesítettre.
axelero alatt még ment, tud valaki segíteni?MO. RIP. - az utolsó kapcsolja le a villanyt.
-
lúzer
veterán
Köszi szépen, de még segítenél?
Ez pl. nem világos, meg a többi hasonló:
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
(''http://schemas.microsoft.com/cdo/configuration/sendusername'') = ''youruserid''
Most itt mit kell írni a (''http://schemas.microsoft.com/cdo.... helyére?
az userid az oké, de ezek a microsoftos címeket nem tudom hova tenniMO. RIP. - az utolsó kapcsolja le a villanyt.
-
kraftxld
nagyúr
Gondolom az Exchange 2007 + Powershell kombó túl durva lenne a feladatra?
| MCSE+M/S, MCITP, VCP6.5-DCV - ''Life can be hard, but Scooter is harder :)'
-
Hydra SR
addikt
Sziasztok
Segítségre lenne szükségem egy script működésre bírásához.
A feladat: Outlook PST file-okat kellene a háttérben menteni futó Outlook mellett ingyenes megoldással, hogy a notebookokon is legyen mentés, amik rendszerint nem csatlakoznak a domainhez a normál napi mentés ideje alatt, napközben meg fut az Outlook és fogja a PST-ket. A helyi PST-ket is menteni kell, amik meghaladhatják a mailbox limit méretét is, tehát mappa szinkronizáció kizárva.
Találtam egy scriptet aminek elvileg működnie kéne:
[link]
A futásához szükség van a VSHADOW.EXE-re, ami letölthető a Microsoft oldaláról:
[link]A hibajelenség:
ERROR: COM call "m_pVssObject->GatherWriterMetadata(&pAsync)" failed.
- Returned HRESULT = 0x80070057
- Error text: A paramÚter nem megfelel- Please re-run VSHADOW.EXE with the /tracing option to get more detailsA hibaüzenet a vshadow.exe paraméterezett futásakor, a (Gathering writer metadata...) sor után jelentkezik.
Tudja-e valaki, hogy mit kellene tenni a működéshez, ill. tud-e valaki valamilyen más megoldást ami megfelel a leírt elvárásoknak?
Előre is köszi annak aki foglalkozik vele
[ Szerkesztve ]
A privát arra való, hogy olyasmit írj, ami nem tartozik másra. A szakmai kérdéseknek általában van topicja. Ha nincs, nyiss egyet.
-
Hydra SR
addikt
A kérdés megoldódott (félig): Vista alatt más az utasításkészlete a vshadow-nak. XP alatt 2 sorral tovább jut a script és egy teljesen másik hibaüzenettel száll el
A privát arra való, hogy olyasmit írj, ami nem tartozik másra. A szakmai kérdéseknek általában van topicja. Ha nincs, nyiss egyet.
-
Hydra SR
addikt
Jupííí, működik a script XP alatt. A második hiba sima rendszerhiba volt, nem a VSS okozta.
Szóval: így kell XP alatt az Outlook alól kirántani a felcsatolt PST-t, a másolat felcsatolható és a tartalma megegyezik az eredetiével.Folyt. köv: Vista alá ugyanez...a VSS-nek mások a kapcsolói Vista alatt.
A privát arra való, hogy olyasmit írj, ami nem tartozik másra. A szakmai kérdéseknek általában van topicja. Ha nincs, nyiss egyet.
-
Hydra SR
addikt
A vss-nek NEM mások a kapcsolói Vista alatt sem, csak valamiért az istennek sem akar működni sem scriptből, sem ntbackupból meghívva. Ha valakinek van valami épkézláb tippje, hogy miért, azt megköszönném, bár a központosított megoldásra van már működő verzió: az ntbackup ha szerverről fut, akkor az általa meghívott shadow copy service is a szerveren fut, még akkor is, ha kliensről ment, és nem számít, hogy a Vistával kompatibilis-e vagy nem, ha a szerveren nem Vista van (és miért lenne?). Még nincs kipróbálva de várhatóan működni fog.
Ja, az ntbackup alapból nem része a Vistának, de ha belemásolod egy könyvtárba a következő file-okat:
ntbackup.exe
ntmsapi.dll
vssapi.dll
...akkor működni fog. A dll-eket nem kell regisztrálni, a help file-ok másolása opcionális, megy nélküle a program veleje. Hirtelen nem is tudom, mik a help file-jai. Shadow copy nélkül nekem is működött.Ezt most részben azért írom, mert ha valaki guglival rátalál a kulcsszavakra, akkor itt a megoldás is. Gyűlölöm, mikor rákeresek valamire és mindenhol csak azt találom, hogy más is ezt keresi de nincs válasz.
Kulcsszavak a kereséshez: VSS volume shadow copy service ntbackup outlook pst mentés script vista
[ Szerkesztve ]
A privát arra való, hogy olyasmit írj, ami nem tartozik másra. A szakmai kérdéseknek általában van topicja. Ha nincs, nyiss egyet.
-
Roten
csendes tag
Sziaztok tudom nem ide illó ez a megnyilvánulás de szeretném kérdez6ni hogy hol tok vagy hogyan tok a mc nek eljutatni olyan infót hogy jó néhány jatek mint pld a gta 4 nem indul el még fel sem engedi hogy telepedjen a windows 7 bétára! előre is köszönöm pm ben mihamarabi választ! üdv Roten
Aki színt visz a szenybe tényleg az a vandál?
-
katona.t
tag
Elakadtam, segítsetek!
Adott egy mappa, amibe azonos nevű file-ok érkeznek. A beérkezett file-t mindig át szeretném nevezni, hogy meglegyen. Tehát olyan szkript kellene ami "filenév+növekvő szám.kiterjesztés" formátumra nevez át.
Eddig ennyi van meg, de a növekvő számot nem tudom megoldani:
Dim fso
i=1
Do While i=101
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "bejovo.txt", "bejovo1.txt"
WScript.Sleep(1000)
i=i+1
Loop100 szor fut le a ciklus, és azt kellene megoldani, hogy a bejovo1.txt-nél az 1 helyén az i aktuális értéke legyen.
Tehát bejovo1.txt, bejovo2.txt stb...
Hogy tehetem az i-t a filenévbe?[ Szerkesztve ]
-
Xpod
addikt
Üdv
Egy kis segítséget szeretnék kérni a munkám egyszerűsítéséhez.
Adott egy ilyen könyvtár struktúra:
-könyvtár1
---alkönyvtár1
-----------------file1
-----------------file2
---alkönyvtár2
-----------------file1
-----------------file2
-könyvtár2
---alkönyvtár1
-----------------file1
-----------------file2
---alkönyvtár2
-----------------file1
-----------------file2Ezt szeretném excelbe listázni, valahogy így:
_______________________
|könyvtár1 | alkönyvtár1 | file1 |
----------------------------------------
|könyvtár1 | alkönyvtár1 | file2 |
----------------------------------------
|könyvtár1 | alkönyvtár2 | file1 |
----------------------------------------
|könyvtár1 | alkönyvtár2 | file2 |
----------------------------------------
|könyvtár2 | alkönyvtár1 | file1 |
----------------------------------------
|könyvtár2 | alkönyvtár1 | file2 |
----------------------------------------
|könyvtár2 | alkönyvtár2 | file1 |
----------------------------------------
|könyvtár2 | alkönyvtár2 | file2 |
----------------------------------------Nem tudok VBScriptben programozni, ezt a google-val vadásztam össze.
A scriptben eddig jutottam, de ez még kevés, mert ez csak azokat a fileokat listázza ki, ami a "gyökér" könyvtárban vannak:Dim fso, objFolder, obFileList, folderpath, fullpath, i, objExcel 'változók
folderpath = "\" 'forrás könyvtár
Set fso = CreateObject("Scripting.FileSystemObject") 'ezt nem tudom mi
Set objFolder = fso.GetFolder(folderpath) 'forrás könyvtár bekérése
Set objSubfolder = objFolder.Subfolders 'alkönyvtárak az objSubfolderhez rendelése
Set objFileLista = objFolder.Files 'forrás könyvtár fájljainak objFileList-hez rendelése
' Excel megnyitása
Set objExcel = createobject("Excel.application")
objexcel.Workbooks.add
' fejléc létrehozása
i=1
objexcel.Cells(1, 1).Value = "konyvtár" '1 első sor 1 cella megnevezése
objexcel.Cells(1, 2).Value = "alkönyvtár" '1 első sor 2 cella megnevezése
objexcel.Cells(1, 3).Value = "fájl neve" '1 első sor 3 cella megnevezése
objexcel.Visible = True
' adatok feltöltése
i=2
For Each File In objFileLista
fullpath = folderpath & "\" & file.name
objexcel.Cells(i, 1).value = file.name 'i első sor 1 cella
objexcel.Cells(i, 2).value = objSubfolder 'i első sor 2 cella
objexcel.Cells(i, 3).value = objSubfolder 'i első sor 3 cella
i = i + 1
Next
MsgBox "Kész vagyok."
objExcel.DisplayAlerts = FALSEHogy tudom a könyvtár és alkönyvtár neveket bepakolni a cellákba? Nekem csak az alkönyvtárak tartalmát kellene kilistázni, azt hogy tudom kiírni?
[ Szerkesztve ]
Most kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
Xpod
addikt
Az a baj, hogy nekem pont az kellene, hogy kb 10-15 gépről elérjék a scriptet.
Gyakorlatilag egy könyvtár struktúrát töltenek fel fileokkkal, és kell egy összesítő excel.Ezt úgy a legegyszerűbb, ha írok egy scriptet, ami a lefut, és generál egy egy excel táblát, így nem kell folyamatosan kézzel update-elni a a tábázatot, és nem kell foglalkozni azzal sem, hogy ki nyitotta meg írásra a filet, ki csak olvasásra.
Ezért gondoltam VBscriptre, mert az az összes XP-s gépen lefut, különösebb előfeltétel nélkül.
Most kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
Xpod
addikt
Alakul. Még a kimenetet kellene formázni, mert jelenleg az első cellába a teljes elérési utat rakja be, így:
_______________________________
|c:\teszt\könyvtár1\alkönyvtár1\ | fájl1 |
------------------------------------------------------
|c:\teszt\könyvtár1\alkönyvtár2\ | fájl1 |
------------------------------------------------------
|c:\teszt\könyvtár2\alkönyvtár1\ | fájl1 |
------------------------------------------------------Ez még nem igazán jó. A c:\teszt rész pl nem kell. Hogy tudom azt megcsinálni, hogy a "\" legyen egy határoló és az így kapott mezők közül az első cellába rakja a 2. mezőt?
Linux alatt van a cut parancs amivel ezt szépen meg lehet csinálni, de nekem windows alatt kell.
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Folder"
objExcel.Cells(1, 2).Value = "File Name"
Set objFSO = CreateObject("Scripting.FileSystemObject")
sfolder="\"
ShowSubfolders objFSO.GetFolder(sfolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
objExcel.Cells(intRow, 1).Value = Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
objExcel.Cells(intRow, 2).Value = objFile.Name
intRow = intRow + 1
Next
ShowSubFolders Subfolder
Next
End Sub
objExcel.Range("A1:B1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
MsgBox "Kész vagyok."Most kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
Xpod
addikt
Köszönöm a segítségedet kraftxld.
Sikerült VBscripttel megoldani.
Most kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
cigam
félisten
Dim fso, i, fajlnev
Set fso = CreateObject("Scripting.FileSystemObject")
i=1
While i<101
fajlnev= "bejövő" + cstr(i) + ".txt"
fso.MoveFile "bejövő.txt", fajlnev
WScript.Sleep(1000)
i=i+1
WendAz fso-t elég 1x létrehozni nem kell a ciklusba.
Bár ha 1mp-en belül nem jön egy újabb bejövő.txt akkor kiakad a progi, mert nem lesz mit move-olni.[ Szerkesztve ]
Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews
-
Zenoshi
csendes tag
Sziasztok,
Egy excel táblázatban szeretenék keresni és egy másik excel táblában megjeleníteni a keresési erdményhez tartozó adatot. Ezt egy F keres fgv nyel meg is studnám oldani de nekem két keresési értéknek kell hogy megfeleljen a keresés nem csak egynek. Van valakinek ötlete hogyan tudnám meg oldan eyzt a problémát? előre is köszönöm.
-
Shuti
csendes tag
sziasztok!
Sajnos script írás terén a tudásom nulla Egy olyan script-re lenne szükségem, amivel megtudom azt oldani hogy távolról, egy pillanat alatt a szerveremen letudjak formázni adott merevlemezeket. Tehát ami az elképzelésem:
Gépemről adott ip-re rendszergazda beloginol, minden felhasználó aki be van jelentkezve azt kilépteti és a megadott merevlemezeket ezután gyorsformázza.
Ez megoldható? Ha igen megköszönném a segítséget
Ha nem, az is jó, hogyha a szerverre távoli asztalon belépek, és ott futattom le a scriptet (ugyebár ekkor csak a felhasználók kiléptetés és a formázás szükséges )
[ Szerkesztve ]
-
The DJ
addikt
A gyorsformázás annyit ér, mint halottnak a csók.
Mindent vissza lehet állítani seperc alatt hacsak nem mélyformázást végzel, arra meg gondolom nem lesz idő, ha kényes adatokat kell gyorsan eltüntetni. Szóval egyszerűbb, ha nem is tárolsz rajta olyat.
https://wpszaki.hu - Minden, ami WordPress, cikkek kezdőknek és haladóknak.
-
Shuti
csendes tag
windows server 2003-ról lenne szó, az is jó ha teljes formázást kap, csak induljon el rajta rendszerlemezt nemakarom formázni.
igazából nem kényes adatok miatt, hanem ha nemjutok olyan nethez amin lehet távoli asztalozni, és másnak kéne megcsinálnia pár dolgot a szerveren, csak amit lehet elötte megoldana maga a szerver -
kraftxld
nagyúr
Felrakod a powershell V2-t a szerverre, kinyitod rá az 5985 és az 5986-os portokat, majd a te gépedről mehet is a távoli parancssor. Előre legyártott powershell scripttel pedig pár mp alatt megvan amit te szeretnél.
[link]| MCSE+M/S, MCITP, VCP6.5-DCV - ''Life can be hard, but Scooter is harder :)'
-
Xpod
addikt
Sziasztok!
Egy kis segítséget kérek.
Összeállítottam egy telepítő DVD-t magamnak.
Ehhez szeretnék írni egy scriptet, amit autorunnal indítok. A script mindössze annyit csinál, hogy felugrik egy ablak, benne 3-4 nyomógomb.
Ha az 1-es gombra kattintok akkor az 1-es telepítő indul el, ha a 2-es gombra akkor a kettes telepítő stb.Ennyit tudtam eddig megcsinálni ,de ez kevés, mert nem történik semmi, nem jelenik meg az ablak. Gondolom hiányzik az ablak kezelés. (A baj, hogy nem értek a vbscripthez)
Mit kellene az elejére írnom?Private Sub telepito_1()
Shell "setup1.exe", vbNormalFocus
End SubPrivate Sub telepito_2()
Shell "setup2.exe", vbNormalFocus
End SubPrivate Sub telepito_3()
Shell "setup3.exe", vbNormalFocus
End SubMost kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
Denniss
tag
Sziasztok!
A problémám azonos az első HSZ-szel, csak WIN7 alatt:
Szükségem lenne egy olyan scriptre ami törli a (többek között) temp könyvtár tartalmát. Ha valaki tudna segíteni azt nagyon megköszönném!
A probléma a jogosultságokkal van, normál esetben azt a hibaüzenetet kapom hogy hozzáférés megtagadva.
Ezt a mutatványt meg tudom csinálni úgy hogy jobbklikk és futtatás rendszergazdaként, de szeretném ha simán lehetne egy kattintással. Ez azért nem lehet, mert az automatikus "futtatás rendszergazdaként" jelölnégyzet szürke állapotú ha jobbgombbal ráklikkelek a grafikus felületen a BAT file-ra, azaz nem tudom bejelölni a tulajdonságok/kompatibilitás táblán. Ugyanez van akkor is ha készítek neki parancsfájlt.
A google-ban találtam a RUNAS parancsról pár dolgot, de ha segéd bat file-lal próbálom akkor meg azt az üzenetet kapom hogy:
"1058 - A szolgáltatást nem lehet elindítani, mert tiltott vagy nem tartozik hozzá engedélyezett eszköz"
A szolgáltatásoknál a másodlagos bejelentkezés ugyan tiltva van, de (szerintem) mivel a renszergazda felhasználó indítja el a batch fájlt, nincs rá szükség. (vagy mégis lenne?)
Van esetleg valakinek ötlete?
Köszönöm előre is!Ha azt hallod hogy a GPS vétel megszűnt, az nem azt jelenti hogy már nem árulják a boltokban... "Ajánlom hogy nagyon csöndbe maradj, mert rossz lóra tettél szert!" by MrSutyerák
-
Shuti
csendes tag
hali!
Nagy kérésem lenne Kéne egy olyan script, amivel távolról tudok tolni egy újraindítást a szerveremre. Tehát kiakarom hagyni a távoliasztalozást és csak annyi hogy két klikkel menjen is a reset. (van amikor olyan helyen vagyok ahol a mobilnet nembírja el a távolit, de a reset meg szükséges lenne : )
Előre is köszönöm
-
Kija
aktív tag
Sziasztok!
Hogyan lehet olyan scriptet írni, amely pingel egy adott IP címet és az átlag ping időt egy file-ba írja?