Username változó Visual Basic szkripthez
Question
Answers
-
Oooo .. majdnem
A VBScriptbol nem hivatkozhatsz kozvetlenul a kornyezeti valtozokra, szintaktikai hiba miatt elhasal.
Ha tenyleg maradunk a vbscriptnel, akkor kb igy tudod a UserName -t beilleszteni a FolderCreate parameterebe:
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName = WshNetwork.UserName...FolderCreate("C:\Documents and Settings\" & UserName & "local...."
De tovabbmegyek: mi garantalja hogy a a C: -n van a Document and Settings? Semmi, csak a ceges standard
Szoval ez nalam kb igy nezne ki:
Code SnippetOption Explicit
Dim objFSO, objFolder, objShell, strDirectory, ProfilePath, TempPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("Wscript.Shell")ProfilePath = oBJShell.ExpandEnvironmentStrings("%USERPROFILE%")
TempPath = ProfilePath + "\Local Settings\Temp"
If Not objFSO.FolderExists(TempPath) Then
Set objFolder = objFSO.CreateFolder(TempPath)
End IfJoeX
All replies
-
Szia!
Megint hasonló a helyzet... Felesleges vizsgálni... a script küldjön el egy mkdir %temp% (set %temp% -al vagy az echo %temp% -al ellenőrizheted, hogy jó az útvonal..) parancsot... ha van, akkor van egy errorlevel (de az kit érdekel), ha meg nincs, akkor létrehozza
Maximum akkor érdekes, ha mindezt el akarod rejteni a t. user elől. Ekkor annyi a vbscript, hogy batch-t start utvonal\batch /min formában indítod el... (Azt nem tudom, hogy vbscript-ben van-e a visualbasicos "shell parancsneve parancs_paramteterek futtatasi_parameterek" megoldás...)
Pistok -
Köszi a linket JoeX! Speciel ezt én annakidején nem logon scripttel, hanem logon programmal oldottam meg. Az megjelenő form nélkül indult (volt néhány userzaklató funkciója), s az indítgatott mindent hidden flaggal. Az egyszerű megoldást meg azért vetettem fel, mert erre a munkára ez bőven elég , nem kell "feleslegesen" - létezik ilyen szó az IT(biztonság)-ben? - bonyolítani.
De jó pap holtig tanul... (Nem ártana belemélyednem a vbscript és powershell és társai körébe sem) -
Pistok wrote: Köszi a linket JoeX! ....
De jó pap holtig tanul... (Nem ártana belemélyednem a vbscript és powershell és társai körébe sem )Szivesen. Es igen .. a PowerShel-be piszok gyorsan el kellene melyednem nekem is. Amikor "bejott", megprobaltam egy regi batch fajlt atirni PS-re (batch file nagyjabol 20 soros lett, utemezetten, minden nap, 2 fele fajlt kellett masolnom egy szerverrol, de a fajlok nevei eleg erdekesen alakultak, rovidebben sehogy sem tudtam megoldani). Az eredmeny: 20 sorbol lett egy 2 soros programom: mindket fajlra egy-egy sor. Igaz, jo hosszu sor lett
, de akkor is, megdobbento hogy mennyi lehetoseg van a PS-ben.JoeX
-
Köszönöm az eddigi segítségeteket is!
A legszebb az egészben, ha sikerül egy egyszerű problémát kellőképpen túlbonyolítani.
Az "mkdir %temp%" tényleg a legegyszerűbb megoldás, így nem ragaszkodom a VB-hez.
Viszont a rejtett üzemmód nem sikerült. Végül is ha nincs bent "pause" a batch-ben, akkor csak egy villanást lát a gyanútlan felhasználó a hibaüzenet helyett.
Próbálkoztam VB-ben az alábbi módon, hogy meghívjam ezt a batch-t, miután kiértékelte, hogy létezik-e a könyvtár:
Set WshShell = WScript.CreateObject ("WSCript.Shell")
WshShell.Run "C:\Documents and Settings\ujhelyis\Asztal\Visual Basic\tempcreate.bat"
Set WshShell = NothingEz viszont nem akar működni.
Ezek után végképp nem tudom, hogy a rejtett módot hogyan kellene megoldani, ha még a sima futást sem tudom meghívni a szkriptben.
-
Még mindig bonyulult a megoldás amit akarsz
Miért ellenőrzöd, hogy van-e könyvtár? Ha már "dos" paranncsal hozd létre, akkor nem kell ellenőrizned. (Nem kell hibátkezelned) A mkdir esetén akár van, akár nincs lefut a script...
Másrészt az én emgoldásomnál nem kell vbscript sehol...
lerakod a mktemp.bat -ot a kozosmegosztas megosztásba a szerveren, s a logonscriptnél ennyit adsz meg:
\\szerver\kozosmegosztas\akarmiutvonal\mktemp.bat
---
Ha vbscriptben akarod csinálni, akkor meg nem az általad vázolt módon kell megadni - szerintem -, hanem így:
Valami.FolderCreate "C:\Documents and Settings\" & %usnername% & "local...."
esetleg
változókba betenni az egzakt útvonal részeit, és
$valtozo=%username
majd
Valami.FolderCreate valtozo1 + (vagy &?) valtozo + (vagy &?) valtozo2
de akkor már menne a következő is:
Valami.FolderCreate %temp%
De a vbscriptbe nem mennék bele, nem értek hozzá, csak a visualbasicos emlékeim alapján mondom ezt... -
Oooo .. majdnem
A VBScriptbol nem hivatkozhatsz kozvetlenul a kornyezeti valtozokra, szintaktikai hiba miatt elhasal.
Ha tenyleg maradunk a vbscriptnel, akkor kb igy tudod a UserName -t beilleszteni a FolderCreate parameterebe:
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName = WshNetwork.UserName...FolderCreate("C:\Documents and Settings\" & UserName & "local...."
De tovabbmegyek: mi garantalja hogy a a C: -n van a Document and Settings? Semmi, csak a ceges standard
Szoval ez nalam kb igy nezne ki:
Code SnippetOption Explicit
Dim objFSO, objFolder, objShell, strDirectory, ProfilePath, TempPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("Wscript.Shell")ProfilePath = oBJShell.ExpandEnvironmentStrings("%USERPROFILE%")
TempPath = ProfilePath + "\Local Settings\Temp"
If Not objFSO.FolderExists(TempPath) Then
Set objFolder = objFSO.CreateFolder(TempPath)
End IfJoeX
-
Hát így már tökéletes a helyzet.
Köszönöm!!!
Jó a batch is, és a Script is. És az Encoder is klassz dolog.
Azt tudtam egyébként, hogy nem lehet a FolderCreate-ben a környezeti változó, csak azért írtam így, hogy kiemeljem, melyik paramétert nem tudom neki átadni.
Most már tényleg csak egy kérdés!
A taskkill /im iexplore.exe konzol parancsot be lehetne ültetni még egy batch-be? Esetleg VB szkriptbe?
-
Öööö ezt a taskill-es kérdésed nem értem...
Ha az a cél, hogy ne internetezzen az emberünk, akkor blokkold a programot policy-ben... (csúnya megoldás lenne az alábbi batch (és nem is elrejthető):
ugorjide:
taskkill /im iexplore.exe
goto ugorjide
Ha az a cél, hogy az "állandóan lefagyó" explorered lövöldözze ki az user, akkor elég az az 1 sor a batch-ba, és shortcut az asztalra. -
Magától nem lesz végtelen ciklus.
Van rá jogosultság? Vista vagy XP? -
Flowman, de sajnos igen. Totalisan full jogokkal futtatom, XP-n - esetleg probald ki
A.
-
Kiprobaljuk. De mit?
Idemasolod a batch fajlodat? Persze nem kell valodi IP cimeket irni, csak a modszert szeretnem latni.
Nalam is hasznalnak juzerek batch fajlt route tabla modisitasara, de sehol sem tapasztalunk vegtelen ciklust. Nalunk is XP-n, es ha erdekes, route delete -ek vannak a batchben.
JoeX
-
Tudom, en is halalra kerestem mar a neten... Ne kapjak RTFM-et
A. -
Es mi van ha igy probalod?
cmd /c "route add 10.1.0.0 MASK 255.255.0.0 10.1.1.1"
Nalam persze hibara futott mert nincs ilyen GW, de ha megadtam a letezot, siman felvette.
De mondjuk CMD /C nelkul is ... szoval proba
JoeX
-
Ugyanaz. Fut a vegtelensegig
A. -
Lehet, hogy lassan uj szalat kellene ennek nyitni
Szoval van egy vezetekes meg egy wifi kapcsolatom. VPN nem aktiv.
Az ugye nem jatszik, hogy az egyiket kilovom, mert akkor ertelemszeruen minden forgalom a masikon megy ki, s nincs ertelme a routolasnak.
S ha siman parancs-sorba bemasolom a batch-file tartalmat, csont nelkul lemegy. Tehat csak valami kisordog futtatja non-stop...
A.
-
Ez vilagos. Na meg egy utolso: mi van ha egy olyan batch file-t futtatsz, ami NEM kapcsolodik a WiFi halozathoz. Tehat csak egy egyszerul dummy route a lokalis halo fele. Az is fagy? Egyebkent hogy nyilvanul meg ez a vegtelen ciklus? Felugrik a CMD ablak, latod a route add ... parancsot es ennyi, ott figyel az idok vegezeteig?
Egyebkent nyithatsz neki
-
Ugye a batch file neve nem route, vagy add vagy ilyesmi?
-
Nem, az elozo peldaban nem akartam nagy szovegeket irni, azert lett mindenhol "a"
A. -
Asteriksz wrote: Nem ertem, hogy mit ertesz azalatt, hogy nem kapcsolodik Wifi halozathoz? Igazad van, ez kisse pongyola volt
.Szoval: mondjuk a WiFI halozaton van egy ilyen cimed: 10.1.1.20/255.255.0.0
A wired kapcsolatnal meg pl. egy ez: 192.168.1.188/255.255.255.0
Probalj ki egy olyan route add-ot, ami sehogyan sem kapcsoldik/kotodik a WiFi halozathoz - meg akkor is, ha semmi ertelme nincs ... hiszen ennek a loopnak sincsen semmi ertelme, de megis letezik
Pl:
route add 192.168.1.166 MASK 255.255.255.255 192.168.1.azatjarodcime
Proba. Mit csinal?
Es csak a hecc kedveert: mit csinal mondjuk a kovetkezo tartalmu BAT fajl?:
notepad.exe
Es mondjuk ez?
route print >C:\rprint.txt
Lett rprint.txt fajl a C:\ =n? Van is benne valami?
JoeX
-
JoeX, kosz a linket, ez segitett
Valami nagyon be lehetett ragadva, de egy nagytakaritas megoldotta
A.
-
Code Snippet
@Echo Off
:MainMenu
CLS
Color 9b
Mode 65,6
Title Yes No
Echo.
Echo Yes To Do What Ever Needed
Echo No To Quit
Echo.
SET Select=
SET /P Select= Type Yes Or No -^>
IF /I '%Select%'=='Yes' GOTO Yes
IF /I '%Select%'=='No' GOTO No
CLs
color FC
Mode 60,4
Echo.
Echo This reply %Select% is Not valid. Please try again.
Echo.
ping -n 3 127.0.0.1>nul
Goto MainMenu:Yes
CLs
color F3
Mode 60,5
Echo.
Echo Place What Ever You Need Here
Echo.
set /p = Press Enter To Return To Main
Goto MainMenu:No
ExitIlyesmi.
-
Köszönöm, most már tényleg minden szép és jó!
Sanca...
