Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
3
Gönderiler
2
Üyeler
0
Reactions
819
Görüntüleme
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
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
yukarıdakini bir dene bakalım.
kolay gelsin
Gönderildi : 12/06/2009 01:57
Konu başlatıcı
teşekkürler hocam
Gönderildi : 09/07/2009 13:09