Все вопроосы есть в учебнике. Помимо форматирования и удаления. Все что с рабочим столом делается исключительно через реестр:

Скрытие всех элементов на Рабочем столе

Создай ключ типа DWORD NoDesktop со значением 1 в разделе
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

...

Есть информация на "Сером форуме" : http://forum.script-coding.info/viewtopic.php?id=147

Итак: Расшифровка скрипта:

Dim oShell, oShortCut, sStartupPath

' Dim определяет (описывает) переменные, здесь их 3 : oShell, oShortCut, sStartupPath

Set oShell = CreateObject("Wscript.Shell")

' Set присваивает значение переменной oShell, создаем обьект Shell

sStartupPath = oShell.SpecialFolders("AllUsersStartup")

'  Указываем специальную директорию - автозагрузка всех пользователей.

Set oShortCut = oShell.CreateShortcut(sStartupPath & "\MyName.lnk") '

oShortCut.Hotkey = "CTRL+SHIFT+C"

'  Привязка функциональных клавиш ярлыку - использовать здесь не обязательно

oShortCut.TargetPath = "C:\Deistvie.bat"

' Указываем путь и имя вашего батника

oShortCut.Save

'Сохраняем его.

Вот сообственно и все. Знания нужны минимальные. Все достаточно просто.Чуть позже описание всех файлов в подобной флешки для снесения Windows.

Отредактировано Archangel (2008-01-13 10:57:21)

Перезагрузка компьютера:

strComputer = "atl-dc-01"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
        strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next

Удаление файла:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Windows\YourName.sys")

Этот скрипт выдает вам регистрационную информацию о всех пользователях на одном компьютере. За место точки указывайте имя компьютера - здесь и выше.

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkLoginProfile")

For Each objItem in colItems
    dtmWMIDate = objItem.AccountExpires
    strReturn = WMIDateStringToDate(dtmWMIDate)
    Wscript.Echo "Account Expires: " & strReturn
    Wscript.Echo "Authorization Flags: " & objItem.AuthorizationFlags
    Wscript.Echo "Bad Password Count: " & objItem.BadPasswordCount
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "CodePage: " & objItem.CodePage
    Wscript.Echo "Comment: " & objItem.Comment
    Wscript.Echo "Country Code: " & objItem.CountryCode
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Flags: " & objItem.Flags
    Wscript.Echo "Full Name: " & objItem.FullName
    Wscript.Echo "Home Directory: " & objItem.HomeDirectory
    Wscript.Echo "Home Directory Drive: " & objItem.HomeDirectoryDrive
    dtmWMIDate = objItem.LastLogoff
    strReturn = WMIDateStringToDate(dtmWMIDate)
    Wscript.Echo "Last Logoff: " & strReturn
    dtmWMIDate = objItem.LastLogon
    strReturn = WMIDateStringToDate(dtmWMIDate)
    Wscript.Echo "Last Logon: " & strReturn
    Wscript.Echo "Logon Hours: " & objItem.LogonHours
    Wscript.Echo "Logon Server: " & objItem.LogonServer
    Wscript.Echo "Maximum Storage: " & objItem.MaximumStorage
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Number Of Logons: " & objItem.NumberOfLogons
    Wscript.Echo "Password Age: " & objItem.PasswordAge
    dtmWMIDate = objItem.PasswordExpires
    strReturn = WMIDateStringToDate(dtmWMIDate)
    Wscript.Echo "Password Expires: " & strReturn
    Wscript.Echo "Primary Group ID: " & objItem.PrimaryGroupId
    Wscript.Echo "Privileges: " & objItem.Privileges
    Wscript.Echo "Profile: " & objItem.Profile
    Wscript.Echo "Script Path: " & objItem.ScriptPath
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Units Per Week: " & objItem.UnitsPerWeek
    Wscript.Echo "User Comment: " & objItem.UserComment
    Wscript.Echo "User Id: " & objItem.UserId
    Wscript.Echo "User Type: " & objItem.UserType
    Wscript.Echo "Workstations: " & objItem.Workstations
    Wscript.Echo
Next

Function WMIDateStringToDate(dtmWMIDate)
    If Not IsNull(dtmWMIDate) Then
    WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
         Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
             & " " & Mid (dtmWMIDate, 9, 2) & ":" & _
                 Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, 13, 2))
    End If
End Function

Фишка в том, что вы получите все данные указанного компьютера запустив этот скрипт. Но для этого необходимы права на этот компьютер (На главном компе у админа). Есть много других способов. Например расшарить любой комп и запустить скрипт удаленно, либо самому написать скрипт, который от имени админа на его компе запустит скрипт, ну и т.д. (ВАриантов - миллионы ...  ).