Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
Tu peux essayer par WMI: On Error Resume Next
Dim strComputer As String, objWMIService As Object, colItems As Object, objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems if objItem.DriveType = 3 Then Debug.Print "DeviceID: " & objItem.DeviceID Debug.Print "FileSystem: " & objItem.FileSystem Debug.Print "FreeSpace: " & objItem.FreeSpace Debug.Print "Size: " & objItem.Size Debug.Print "**********************************************" end if Next
Pour plus d'infos: http://msdn.microsoft.com/library/en-us/wmisdk/wmi/connecting_to_wmi_on_a_remote_computer.asp -- François Picalausa
"tijani" a écrit dans le message de news: 140d01c4a6c5$8e1c1630$
comment connître la capacité utilisée et libre d'un disque d'un poste distant en connaissant son @IP.
Hello,
Tu peux essayer par WMI:
On Error Resume Next
Dim strComputer As String, objWMIService As Object, colItems As Object,
objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_LogicalDisk",,48)
For Each objItem in colItems
if objItem.DriveType = 3 Then
Debug.Print "DeviceID: " & objItem.DeviceID
Debug.Print "FileSystem: " & objItem.FileSystem
Debug.Print "FreeSpace: " & objItem.FreeSpace
Debug.Print "Size: " & objItem.Size
Debug.Print "**********************************************"
end if
Next
Pour plus d'infos:
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/connecting_to_wmi_on_a_remote_computer.asp
--
François Picalausa
"tijani" <tijanisellami@yahoo.fr> a écrit dans le message de news:
140d01c4a6c5$8e1c1630$a401280a@phx.gbl
comment connître la capacité utilisée et libre d'un disque
d'un poste distant en connaissant son @IP.
Dim strComputer As String, objWMIService As Object, colItems As Object, objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems if objItem.DriveType = 3 Then Debug.Print "DeviceID: " & objItem.DeviceID Debug.Print "FileSystem: " & objItem.FileSystem Debug.Print "FreeSpace: " & objItem.FreeSpace Debug.Print "Size: " & objItem.Size Debug.Print "**********************************************" end if Next
Pour plus d'infos: http://msdn.microsoft.com/library/en-us/wmisdk/wmi/connecting_to_wmi_on_a_remote_computer.asp -- François Picalausa
"tijani" a écrit dans le message de news: 140d01c4a6c5$8e1c1630$
comment connître la capacité utilisée et libre d'un disque d'un poste distant en connaissant son @IP.
comment connître la capacité utilisée et libre d'un
disque
d'un poste distant en connaissant son @IP.
.
François Picalausa
Hello,
FreeSpace: 24702672896 Size: 41101688832 mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre
effectivement, 24702672896 octets =~ 23,00615692138671875 Go de même 41101688832 octets =~ 38,2789306640625 Avec 38,278 - 23,006 = 15,272 Ce qui correspond bien au nombres de Go utilisés, non?
Pour les connexions à distances, je n'ai pas personnellement réussit à en établir (sauf sur 127.0.0.1), mais d'autres experts dans la salle ont sans doute plus d'expérience que moi avec WMI?
-- François Picalausa
"tijani" a écrit dans le message de news: 148601c4a6ce$0d49a320$
mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre En spécifiant une @IP autre que mon poste je ne reçoit rien
-----Message d'origine----- Hello,
Tu peux essayer par WMI: On Error Resume Next
Dim strComputer As String, objWMIService As Object, colItems As Object, objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems if objItem.DriveType = 3 Then Debug.Print "DeviceID: " & objItem.DeviceID Debug.Print "FileSystem: " & objItem.FileSystem Debug.Print "FreeSpace: " & objItem.FreeSpace Debug.Print "Size: " & objItem.Size
"tijani" a écrit dans le message de news: 140d01c4a6c5$8e1c1630$
comment connître la capacité utilisée et libre d'un disque d'un poste distant en connaissant son @IP.
Hello,
FreeSpace: 24702672896
Size: 41101688832
mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre
effectivement, 24702672896 octets =~ 23,00615692138671875 Go
de même 41101688832 octets =~ 38,2789306640625
Avec 38,278 - 23,006 = 15,272
Ce qui correspond bien au nombres de Go utilisés, non?
Pour les connexions à distances, je n'ai pas personnellement réussit à en
établir (sauf sur 127.0.0.1), mais d'autres experts dans la salle ont sans
doute plus d'expérience que moi avec WMI?
--
François Picalausa
"tijani" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 148601c4a6ce$0d49a320$a401280a@phx.gbl
mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre
En spécifiant une @IP autre que mon poste je ne reçoit rien
-----Message d'origine-----
Hello,
Tu peux essayer par WMI:
On Error Resume Next
Dim strComputer As String, objWMIService As Object, colItems As
Object, objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local
Set objWMIService = GetObject("winmgmts:\" & strComputer &
"rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from
Win32_LogicalDisk",,48)
For Each objItem in colItems
if objItem.DriveType = 3 Then
Debug.Print "DeviceID: " & objItem.DeviceID
Debug.Print "FileSystem: " & objItem.FileSystem
Debug.Print "FreeSpace: " & objItem.FreeSpace
Debug.Print "Size: " & objItem.Size
FreeSpace: 24702672896 Size: 41101688832 mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre
effectivement, 24702672896 octets =~ 23,00615692138671875 Go de même 41101688832 octets =~ 38,2789306640625 Avec 38,278 - 23,006 = 15,272 Ce qui correspond bien au nombres de Go utilisés, non?
Pour les connexions à distances, je n'ai pas personnellement réussit à en établir (sauf sur 127.0.0.1), mais d'autres experts dans la salle ont sans doute plus d'expérience que moi avec WMI?
-- François Picalausa
"tijani" a écrit dans le message de news: 148601c4a6ce$0d49a320$
mais sur mon ordinateur j'ai 15.2 GO utilisé et 23 GO libre En spécifiant une @IP autre que mon poste je ne reçoit rien
-----Message d'origine----- Hello,
Tu peux essayer par WMI: On Error Resume Next
Dim strComputer As String, objWMIService As Object, colItems As Object, objItem As Object
strComputer = "192.168.2.71" 'Addresse sur le réseau local Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems if objItem.DriveType = 3 Then Debug.Print "DeviceID: " & objItem.DeviceID Debug.Print "FileSystem: " & objItem.FileSystem Debug.Print "FreeSpace: " & objItem.FreeSpace Debug.Print "Size: " & objItem.Size
