Hirdetés
- laskr99: DFI és DFI Lanparty gyűjteményem
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- GoodSpeed: Ágymatrac keresési kálvária
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Kalózkodás. Kalózkodás?
Új hozzászólás Aktív témák
-
dkaro
őstag
Sziasztok!
Egy user felvelő scriptet fabrikálnék, de nem boldogulok a manager attributummal.
Van egy ilyen selectem amivel kilistázom a felhasználókat:
<select size="1" name="felettes">
<option selected value="-">-</option>
<script language="vbscript">
Set objOU = GetObject("LDAP://srv0101vg/ou=Varosgazda,dc=varosgazda,dc=hu")
objOU.Filter = Array("user")For Each objUser in objOU
strUser=Right(objUser.Name, (Len(ObjUser.Name)-3))
document.write("<option value='"&objUser.Name&"'>"&strUser&"</option>")
Next
</script>
</select>strFelettes=felettes.value
objNewUser.Put "manager", strFelettesDe hibával elszáll. Így is próbáltam megadni:
objNewUser.Put "manager", "CN="&strFelettes&",OU=ou,DC=domain,DC=hu"Ezt se ettem meg. Nagyon láma vagyok a programozáshoz, valaki pls írja le mivel fog működni.
Köszönöm!
dkaro -
dkaro
őstag
válasz
martonx
#1823
üzenetére
Köszönöm a segítséget így nyert.
Most újabb hibánál akadtam el:
Sub RunScript
For i = 0 to (nyomtato.Options.Length - 1)
If (nyomtato.Options(i).Selected) Then
strComputer = strComputer & nyomtato.Options(i).Value & "%"
End If
Next
Dim tomb
Dim objGroup
Const ADS_PROPERTY_APPEND = 3
tomb = Split(strComputer,"%")
For j = 0 To (UBound(tomb))
Set objGroup = GetObject("LDAP://srv/"&tomb(j)&",ou=Printers,ou=SZE,dc=domain,dc=local")
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=user,ou=SZE,dc=domain,dc=local")
objGroup.SetInfo
next
End SubEz a script azt lenne hivatott csinálni, hogy a multiple selectben kiválasztott csoportokba berakja a user.
Sajnos 80005000-es hibaüzenetet kapok. Ettől függetlenül bekerül a user az összeskijelölt csoportba de a hibaüzenet zavar.
Természetesen rendszergazdaként futtatom a scriptet.
Köszönöm! -
dkaro
őstag
Sziasztok!
Most a multiple selecttel akadtam el. Úgy olvastam hogy egy stringben tárolódik le az értéke a kiválasztott elemeknek vesszővel elválasztva. Adott ez a kód:
<html>
<head>
<title>My HTML application</title>
<HTA:APPLICATION
APPLICATIONNAME="My HTML application"
ID="MyHTMLapplication"
VERSION="1.0"/><script language="VBScript">
Sub RunScript
Dim strValaszt
strValaszt = ertek.value
document.write("<span>"&strValaszt&"</span>")End Sub
</script>
</head><body bgcolor="white">
<form>
<select multiple="multiple" size="3" name="ertek">
<option value='1'>1</option>
<option value='2'>2</option>
<option value='3'>3</option>
</select>
<input type="button" value="próba" onClick="RunScript">
</form></body>
</html>Csak az első kijelölt elem kerül bele a változóba. Hogy tudom belevarázsolni mindet?
Köszönöm! -
dkaro
őstag
Akkor újabb kérdésem lenne (gondolom lesz még
:
Adott ez a script részletem:
Célja az lenne hogy kiiratom a Printers ouban található Csoportokat (mind univerzális biztonsági csoport)
<script language="vbs">
Set objOU = GetObject("LDAP://srv0101vg/ou=Printers,ou=cég,dc=varosgazda,dc=hu")
objOU.Filter = Array("group")
For Each objGroup in objOU
document.write("<option value='"&objGroup.Name&">"&objGroup.Name&"</option>")
Next
</script>Nos ki is listázza a csoportokat de nem mindet. Csak 13at a 29ből hibát pedig nem kapok.
Mit kéne máshogy írnom?
Köszönöm!---
Szerk:
Pontosítanék. Minden 2kat ír csak ki. Ez vmi triviális hiba lehet. -
dkaro
őstag
Sziasztok!
Remélem jó helyre írok. VBS HTA script írásban szeretnék segítséget kérni.
A célom:
Egy tömbbe kigyűjtöttem egy OU Groupjait.
Szeretném ezeket a groupokat html formban dinamikusan megjeleníteni.
Tehát pl ha x a mérete a tömbnek akkor generáljon le x radiogombot így, hogy:
radiogomb1 értéke tomb(0)
radiogomb2 értéke tomb(1)
stb...Tudom, hogy kicsit összetettebb de remélem valaki tud segíteni.
Azt fontos megjegyezni, hogy nem egész 2 napja "foglalkozgatok" vbssel.
Előre is köszönöm a segítséget!
dkaro
:Új hozzászólás Aktív témák
- Fejhallgató erősítő és DAC topik
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Kihúzhatja a gyufát a PC-s gyártóknál az érkező új Xbox
- Nintendo Switch 2
- Folytatja küzdelmét az Intel az NVIDIA (és az AMD) ellen
- Anglia - élmények, tapasztalatok
- Vírusirtó topic
- laskr99: DFI és DFI Lanparty gyűjteményem
- One otthoni szolgáltatások (TV, internet, telefon)
- Ingatlanos topic!
- További aktív témák...
- Microsoft Surface Hub 2s - Interaktiv 4K monitor/ All in one PC - I5 8. generációs - Piaci ár alatt
- Benq - LU951- 5000 Ansi Lézer projektor - Piaci ár alatt
- -ÚJ,2 ÉV GAR- GAMER PC: i5-14400F (10mag/16szál) +RX 6600/6700XT +16-64GB DDR4! SZÁMLA! 70 féle ház!
- Capriolo Oxygen 29" MTB Új
- DJI Convertible Carrying Bag + Ajándék DJI rádió nyakpánt
- LG Gram 14 WUXGA IPS i7-1360P 5.0Ghz 12mag 32GB DDR5 1TB SSD Intel Iris XE 10óra Akku Win11 Garancia
- ÚJ ÁRU 10.22.!!! HP üzleti laptopok Elitebook, Probook, Zbook 4-13. gen gar.
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Apple iPhone 12 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest