Definition Variable en fonction de l'adresse IP

Version imprimable

Bonjour,

Je suis nouveau dans le développement, et mon environnement étant Full Windows. Je suis en train de créer des GPO et un Logon script afin d'uniformiser mon parc machine.

J'ai crée plusieurs VBS pour le déploiement de mes applications "socles", Ils fonctionnent parfaitement sur mon site principal.

Je voudrais pouvoir utiliser cela sur un site distant disposant de son propre serveur de sources logicielles.

Il nous arrive de préparer des postes à distance, avec notre compte administrateur. De ce fait, je souhaiterais définir la variable source en fonction de l'adresse IP du poste.

Exemple :

Site A = adresse IP 192.168.1.x = serveur de sources sitea.local
Site B = adresse IP 192.168.2.x = serveur de sources siteb.local

Je suis arrivé à la limite de mes capacités de développement, est il possible d'avoir quelques conseils ?

Voici ce que j'ai commencé à écrire :
Code:

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 ' ' Localisation des sources ' strComputer = "." Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" ) Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" ) For Each objAdapter in colAdapters IPdebut = LBound(objAdapter.IPAddress) IPfin = UBound(objAdapter.IPAddress) If (objAdapter.IPAddress(IPdebut) <> "" ) then For i = IPdebut To IPfin strIPAddress = objAdapter.IPAddress(i) & vbCrLf Next End If Next Public Function ip2num(IP) 'ipv4-only Dim i, a, N a = Split(ip, ".") N = CDbl(0) For i = 0 To UBound(a) N = N * 256 + a(i) Next ip2num = N End Function If ip2num(strIPAddress) >= ip2num("192.168.0.1")_ And ip2num(strIPAddress) <= ip2num("1192.168.0.254") Then FusionSetupExe = "\\Srv-File\DEPLOY$\fusioninventory\fusioninventory-agent_windows-x64_" & AvailableVersion & ".exe" Elseif ip2num(strIPAddress) >= ip2num("192.168.1.1")_ And ip2num(strIPAddress) <= ip2num("1192.168.1.254") Then FusionSetupExe = "\\Srv-File2\DEPLOY$\fusioninventory\fusioninventory-agent_windows-x64_" & AvailableVersion & ".exe" Else ip2num(strIPAddress) >= ip2num("192.168.3.1")_ And ip2num(strIPAddress) <= ip2num("1192.168.3.254") Then FusionSetupExe = "\\Srv-File3\DEPLOY$\fusioninventory\fusioninventory-agent_windows-x64_" & AvailableVersion & ".exe" End If

Je te propose quelques chose de simple.
J'ignore volontairement les problèmes de sous-réseau et d'IP multiples (la première trouvé qui match à gagné).

Code:

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
srv = FindServer()
if (srv = "") Then
	msgbox "Aucune serveur trouvé"
Else
	msgbox "Serveur : " & vbcrlf & srv
End if
 
Function FindServer()
	FindServer = ""
	Set objWMIService = GetObject("winmgmts:!\\.\root\cimv2" )
	Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
	For Each objAdapter in colAdapters
		ip = Join(objAdapter.IPAddress, ", ")
		if (InStr(ip, "192.168.0.") = 1) Then
			FindServer = "Srv-File"
			Exit Function
		ElseIf (InStr(ip, "192.168.1.") = 1) Then
			FindServer = "Srv-File2"
			Exit Function
		ElseIf (InStr(ip, "192.168.3.") = 1) Then
			FindServer = "Srv-File3"
			Exit Function
		End if
	Next
End Function

JE teste cela dés que possible

Merci !!! :D:D:D:D:D:D

Citation:

Envoyé par ericlm128

Je te propose quelques chose de simple.
J'ignore volontairement les problèmes de sous-réseau et d'IP multiples (la première trouvé qui match à gagné).

Code:

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
srv = FindServer()
if (srv = "") Then
	msgbox "Aucune serveur trouvé"
Else
	msgbox "Serveur : " & vbcrlf & srv
End if
 
Function FindServer()
	FindServer = ""
	Set objWMIService = GetObject("winmgmts:!\\.\root\cimv2" )
	Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
	For Each objAdapter in colAdapters
		ip = Join(objAdapter.IPAddress, ", ")
		if (InStr(ip, "192.168.0.") = 1) Then
			FindServer = "Srv-File"
			Exit Function
		ElseIf (InStr(ip, "192.168.1.") = 1) Then
			FindServer = "Srv-File2"
			Exit Function
		ElseIf (InStr(ip, "192.168.3.") = 1) Then
			FindServer = "Srv-File3"
			Exit Function
		End if
	Next
End Function

18/04/2017, 15h29
sebtarbes65

Bonjour,

Cela fonctionne parfaitement je te remercie !

TOP