Fråga : Dynamiska HTA tappar besegrar listar

Jag behöver någon hjälp på att skapa ett tillträde bildar var jag har två att tappa besegrar menyer. Första visar att min listar av tillgängliga serveror med trycket köar, och detta listar är en statisk elektricitet listar. Understödja tappar besegrar listar behov att vara dynamisk, visningen som trycket köar tillgängligt på varje server, jag väljer från serveren listar. Om jag väljer server 1, understödja tappar besegrar listar ska automatiskt befolkar lista av köar på server 1. Om jag väljer server 2, understödja tappar besegrar listar ska show som lista av köar på server 2, och så vidare. Jag har inget problem på att querying serverorna och att skapa lista. Mitt problem är till bundsförvanten som detta listar med understödja tappar besegrar menyn boxas. Denna är kodifiera som jag var skrivkunnigt så avlägset. Tack för din help. > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
" codeBody " " > för class= " för HTA PrinterList Underskrivare Dunkel strComputer, strHTML, PrinterName Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = PServer.Value Fastställd objWMIService = GetObject (”winmgmts: ” & ”{impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ cimv2”) Fastställd objReg = GetObject (”winmgmts: ” & ”{impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ standard: StdRegProv”) På felmeritförteckning därefter Fastställda colPrinters = objWMIService.ExecQuery (”välj * från Win32_Printer”), För varje objprinter i colPrinters strHTML = strHTML & (ucasen (objprinter.deviceID)) Därefter PrintList.InnerHTML = strHTML Avsluta suben Sub QName PrinterName= (ucase (QueueName.Value)) msgbox (PrinterName) Avsluta suben Känd server: Selecttryckserver #1 Server1 Server2 Server3 Server4 Server5
Känd skrivare:
" klar "

Svar : Dynamiska HTA tappar besegrar listar

Sure du kan, men denna gäller läsning lista in i en disconnected recordset, då sortering det, och befolka lista boxas.  Jag har git denna för dig.

Också I-förmiddag som ser tillverkad, när du väljer en köa och det precis ekon queuenamen.  Jag antar att du ska avslutar upp att använda detta, som en metod av att förbinda till trycket köar, så vi bör antagligen tillfoga *sharename*en till den bakomliggande *value*en av varje tillträde, så att du kan använda det för den AddPrinterConnection metoden.

Låt mig veta, om det är spåra som du önskar att ta, och jag kan hjälpa dig med det.

Hälsningar,

Råna.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:




HTA PrinterList






Känd server:



Känd skrivare:
Andra lösningar  
 
programming4us programming4us