VB Scritp Domain ortamında envanter

Yazılım Genel

Son Cevaplar gön: Kamer KOSEOGLU 15 yıl önce

3 Yazılar

2 Üyeler

0 Reactions

491 Görüntüleme

RSS

Kamer KOSEOGLU

(@kamerkoseoglu)

Gönderiler: 199

Estimable Member

Konu başlatıcı

Arkdaslar merhaba,

domain ortamında bulunan 300 adet bilgisayarın computer name lerini ve username lerini bulabilir miyim boyle bir script yazıla bilir mi? yardımcı olursanız sevinirim.

iyi çalışmalar

Gönderildi : 09/06/2009 16:07

CozumPark

(@cozumpark)

Gönderiler: 16307

Illustrious Member Yönetici

merhabalar

Set oNet = CreateObject("WScript.Network")
Set oFS = CreateObject("Scripting.FileSystemObject")

sCurrentUser = oNet.UserName
sDomain = oNet.UserDomain
sComputer = oNet.ComputerName

sScriptName = WScript.ScriptName
sScriptPath = WScript.ScriptFullName
sLog = Replace(sScriptName, ".vbs", ".log")
sLogFile = Replace(sScriptPath, sScriptName, sLog)

Set oLogFile = oFS.CreateTextFile(sLogFile, True)

oLogFile.WriteLine "Current Date: " & "," & CurrentDateTime
oLogFile.WriteLine "Current User: " & "," & sCurrentUser
oLogFile.WriteLine "Computer Name: " & "," & sComputer

Function CurrentDateTime()
CurrentDateTime = FormatDateTime(now, vbLongDate) & " @ " & FormatDateTime(now, vbLongTime)
End Function