Uzaktan GUID - getting guid - uuid - guid script

Merhabalar,

Aşağıdaki linklerde benzer scriptler var wmi scriptler kullanarak bunu yapabilirsiniz gibi görünüyor.

Win32_ComputerSystemProduct değerlerine bakarak GUID(UUID) bilgisini alabiliyorlar.

http://technet.microsoft.com/en-us/library/cc739558.aspx

http://msdn.microsoft.com/en-us/library/ms812759.aspx

Başka bir script : Computer değişkenin olduğu yeri uzak makina adını veya local makina adını verecek deneyebilirsiniz.( . olan yere yazacaksınız)

Not: Şahsen denedim çalışıyor. VBS olarak kaydediniz.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

strComputer="."
Dim WSH  
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("S

Teşekkürler hocam.Çalışıyor.

İhtiyacınıza göre script tarafınız iyi ise tüm networku tarattırıp bir text dosyasına çıkarttırabilirsiniz. Biraz kurcalamak gerekiyor sadece.

Dim oFilesys, oFiletxt, sFilename, sPath
Set oFilesys = CreateObject("Scripting.FileSystemObject")
Set oFiletxt = oFilesys.CreateTextFile("c:\inventory.txt", True)
sPath = oFilesys.GetAbsolutePathName("c:\inventory.txt")
sFilename = oFilesys.GetFileName(sPath)
strComputer = "bilgisayar1253"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colComputer = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
For Each objCompItem In colComputer
oFiletxt.WriteLine strcomputer & objCompItem.UUID
oFiletxt.Close'
next

Biraz derleyip düzenledim, aldığı GUID'i c:\inventory.txt dosyasına çıkartıyor.

Geliştirme için teşekkürler.