Set WNetwork = Wscript.CreateObject(«Wscript.Network»)
If WNetwork.ComputerName = WNetwork.Userdomain Then
Set WshShell = WScript.CreateObject(«WScript.Shell»)
	WshShell.Run «net send w2k10 Local logon « & WNetwork.UserName
End If

Поделитесь материалом с коллегами и друзьями