igor_andreev Чесно говоря да, что то я не подумал, спасибо.
перезалил на рапиду
http://rapidshare.com/files/18870776/scripts.rar в архиве еще один скрипт на эту же тему если что по нему непонятно будет пишите поясню а кстати ко второму скрипту есть идея прикрутить определение пользователя домена, типа чтоб приветствовать чувака я сделал так:
Function NAMED()
' Определяем имя залогинившегося доменного пользователя
NAMED = False
Dim objNetwork, objSysInfo, strUserDN, strUserName, strUserPathDrive
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer
Dim User
Dim NetWork
Dim UserName
Dim UserDomain
Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set NetWork = WScript.CreateObject("Wscript.Network")
strUserDN = objSysInfo.userName
strUserName = objNetwork.UserName
UserDomain = objNetwork.UserDomain
Set User = GetObject("WinNT://" & UserDomain & "/" & strUserName & ",user")
NAMED = User.FullName
End Function
потом просто вставляешь NAMED где нужно и вместо него появляется имя и фамилия как в домене зарегистрировал того кто скрипт запустил...
Добавлено: забыл сказать что второй скрипт взят из поста
igor_andreev http://www.softboard.ru/index.php?showtopic=5431