- Luck Dragon: Asszociációs játék. :)
- Meggyi001: RTX 5060 - Az új népkártya?
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Lauterbrunnen
- btz: Internet fejlesztés országosan!
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Ú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
- Tőzsde és gazdaság
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Tesla topik
- Okosóra és okoskiegészítő topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Teljes verziós játékok letöltése ingyen
- Vezeték nélküli fülhallgatók
- Kamionok, fuvarozás, logisztika topik
- Samsung Galaxy Watch7 - kötelező kör
- További aktív témák...
- XBox Series X 1TB Diablo IV Standard Edition +Garancia
- GAMER PC i7-6700K GTX 1660 SUPER 24GB DDR4 NVME SSD + HDD
- Eladó Gaming PC! 1080 és 1440p játékra
- Csere - Beszámítás! Gamer PC : I7-6700K / 32GB DDR4 / RX 570 8GB / SSD + HDD
- Csere - Beszámítás! Gamer PC : I7-6700 / RX 5700XT / 16GB DDR4 / 256GB SSD + 1500GB HDD
- Nexus 6P 32GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Latitude E5570 Touch - i5-6300U I 8GB I 256SSD I 15,6" FHD I HDMI I CAM I W10 I Gari
- Gamer PC-Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 1TB SSD
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Eredeti Lenovo 230W töltők - 4X20Z83995
Állásajánlatok
Cég: FOTC
Város: Budapest