Hirdetés
- Nem indul és mi a baja a gépemnek topik
- Androidos tablet topic
- Vezeték nélküli fejhallgatók
- TCL LCD és LED TV-k
- Apple MacBook
- Gaming notebook topik
- RAM topik
- 5.1, 7.1 és gamer fejhallgatók
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Szintet lépett "lopakodó" alaplap készül a Colorful műhelyében
Új hozzászólás Aktív témák
-
válasz
chepavel
#2021
üzenetére
Melóhelyen nem megy a skydrive (de a dropbox, se semmi ilyesmi, úgyhogy ez is kb ex-has:
Dim newpassword
'a következő sor helyére kell beírni, hogy hogyan kapod meg a jelszót, pl:
newpassword = wscript.Argument(0)
'newpassword = "akármi"
Dim app: Set app = CreateObject("MFilesAPI.MFilesServerApplication")
Dim auth_user, auth_pwd, auth_domain, auth_host, auth_port
'Itt kell megadni, hogy milyen technikai felhasználónvvel és jelszóval jelentkezel be az alkalmazásba
app.Connect 3, "sysadmnlogin", "sysadmnpassw", , "ncacn_ip_tcp", "localhost", "2266", "Demo Vault", false
Dim vault: Set vault = app.LoginAccountOperations
vault.UpdateLoginPassword "mfilesadmin", newpassword -
válasz
chepavel
#2016
üzenetére
Mivel a dokumentáció nem publikus, és nem találtam hozzá konkrét példát, így csak ex-has:
- meg kell nézned, hogy futtatható-e az alkalmazás belső api-jai külső környezetben (wbscriptből). Általában ez nem elérhető (ilyen pl NetIQ vagy MOM scripting környezete is)
- meg kell nézni, hogy a szkriptnek milyen formában adhatók át a futtatási argumentumok. WScript környezet esetén ez WScript.Arguments(n) függvénnyel, de ha nem fut WScript környezetben, akkor van saját argumentum kezelő az API-ban (ha kezel egyáltalán argumenteket)
- ha mindezzel megvagy, akkor inicializálni kell hozni a megvelelő class-t amiben az általad hivatkozott függvény van és meghívni a megfelelő argumentumokkal.
Mindez egyben kb így néz ki:
1) WScript
Dim sUser = WScript.Arguments(0)
Dim sPasswd = WScript.Arguments(1)
Dim oAPILoginClass
Set oAPILoginClass = CreateObject( "MFilesAPI.MegfelelőLoginManipulálóClass" )
oAPILoginClass.UpdateLoginPassword sUser, sPasswd2) M-Files
Dim oAPIArgumentsClass
Set oAPIArgumentsClass = CreateObject( "MFilesAPI.MegfelelőArgumentBeolvasóClass" )
Dim sUser = oAPIArgumentsClass.Arguments(0)
Dim sPasswd = oAPIArgumentsClass.Arguments(1)
Dim oAPILoginClass
Set oAPILoginClass = CreateObject( "MFilesAPI.MegfelelőLoginManipulálóClass" )
oAPILoginClass.UpdateLoginPassword sUser, sPasswd -
martonx
veterán
válasz
chepavel
#2018
üzenetére
Nem tudom, neked kellene valahogy jobban képbe kerülnöd, illetve tőlük maguktól kérdezni, mivel ez egy kereskedelmi termék, élő szupporttal.
A te képbe kerülésedet arra értem, hogy ami kódrészletet belinkeltél, nem más mint egy függvény deklaráció legelső sora, azaz éppen semmit nem jelent.
Új hozzászólás Aktív témák
- Xiaomi 15T Pro - a téma nincs lezárva
- A fociról könnyedén, egy baráti társaságban
- Nintendo DS-sel pózol egy OnePlus
- Hivatalos a Poco X8 Pro Max gigantikus akkukapacitása
- sziku69: Fűzzük össze a szavakat :)
- Nem indul és mi a baja a gépemnek topik
- Luck Dragon: Asszociációs játék. :)
- iPhone topik
- BestBuy topik
- Konzolokról KULTURÁLT módon
- További aktív témák...
- Eladó Apple iPhone 11 128GB piros (PRODUCT RED) színben
- Samsung Galaxy S25 512GB HIBÁTLAN!ÚJSZERŰ!Kártyafüggetlen
- Iphone 13 White 128Gb újszerű állapot, független
- Apple MacBook Air 2025 13.6" M4 10C/8C - 256 SSD - 16GB RAM - 3 ÉV GARANCIA
- ZOTAC GTX 670 AMP! Edition 2 GB GDDR5 256 bit PCI-E Videokártya
- Apple iPhone 17 256GB Bontatlan Független Összes Szín / 27% áfás ár
- GYÖNYÖRŰ iPhone 13 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4393, 100% Akkumulátor
- Friss készlet! MacBook Pro 14" M1 16GB RAM 27%-os áfás számla (238)
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Gigabyte B450M R5 5 2600 8GB DDR4 512GB SSD GTX 1650 4GB ZALMAN T3 Plus Deepcool 400W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




