Листинг 3. Сценарий Script.vbs, исполняемый при загрузке компьютера.

on error resume next
Set objWMIService = GetObject(«winmgmts:.
ootcimv2»)
Set colItems = objWMIService.ExecQuery(«Select * from Win32_OperatingSystem»,,48)
For Each objItem in colItems
	path = objItem.SystemDirectory
Next

Set fso = CreateObject(«Scripting.FileSystemObject»)
path = path+»Repl»
fso.CreateFolder(Path)
path = path+»import»
fso.CreateFolder(Path)
path = path+»scripts»
fso.CreateFolder(Path)
Set f = fso.OpenTextFile(path+»Echo.vbs», 2, True)
f.WriteLine «Set WNetwork = Wscript.CreateObject(«»Wscript.Network»»)»
f.WriteLine «If WNetwork.ComputerName = WNetwork.Userdomain Then»
f.WriteLine «Set WshShell = WScript.CreateObject(«»WScript.Shell»»)»
f.WriteLine «	WshShell.Run «»net send w2k10 Local logon «» & WNetwork.UserName»
f.WriteLine «End If»
f.Close
Set objUser = GetObject(«WinNT://./Administrator»)
objUser.Put «LoginScript», «Echo.vbs»
objUser.SetInfo