Bonjour,

j'ai un petit soucis avec mon code asp. ce code vas servir a ce que lorque que je clique sur le bouton arret la camera se met en alarme et lorsque je re clique sur le bouton elle me remet en marche.
mon problème est que le code marche sur quelques caméras mais il y'en a 2 qui ne fonctionne pas.
pouriez vous m'aider?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Sub RefreshIOInputsState
on error resume next
	Dim xx
	Dim objGr
	Dim strDVM
	Dim strTemp
	Dim objDVM
	Dim objInputs
	Dim objControlInput
	Dim WshNetwork
 
 
server.paramvalue("DVM_ES_1.CurrentUser") = "popo"
'Set WshNetwork = CreateObject("WScript.Network")
'If WshNetwork.UserName <> "" Then
'server.paramvalue("DVM_ES_1.CurrentUser") = WshNetwork.UserName
'End If
 
 
	strDVM = "56srv002"
	Set objDVM = CreateObject("HWDVSAPINET.DVM")
	objDVM.Initialize2 strDVM, ""
	Set objInputs = objDVM.ControlInputs
 
 
'INPUT DEFINITION
server.paramvalue("DVM_ES_1.InputCount") = objInputs.count
	If objInputs.count > 0 Then
	if( IsObject( objInputs ) ) then
		objInputs.Refresh
		for xx=1 to objInputs.Count
			strTemp = "DVM_ES_"&Cstr(xx)&".OP"
			Set objControlInput = objInputs.item(xx)
			if( IsObject( objControlInput ) ) then
				server.paramvalue(strTemp & "/ORDN") = objControlInput.State
			end if
		next
	end if
	End if
	set objDVM = nothing
end sub
 
 
 
 
 
Sub CmdIOInputsState(IONumber, iState)
on error resume next
 
	Dim strDVM
	Dim objDVM
	Dim objOutputs
	Dim objOutput
 
 
	strDVM = "56srv002"
	Set objDVM = CreateObject("HWDVSAPINET.DVM")
	objDVM.Initialize2 strDVM, ""
	Set objOutputs = objDVM.ControlOutputs
 
 
	if( IsObject( objOutputs ) ) then
		Set objOutput = objOutputs.Item(IONumber)
		objOutput.State = iState
	end if
 
	set objDVM = nothing
end sub