Как разобраться, что за скрипт?

Set WshS = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
 
usrProfile = WshS.ExpandEnvironmentStrings("%UserProfile%\Главное меню\Программы\Автозагрузка\")
 
If oFSO.FileExists(usrProfile & WScript.ScriptName) Then
If (Wscript.ScriptFullName <> usrProfile & WScript.ScriptName) Then
oFSO.copyFile Wscript.ScriptFullName, usrProfile & WScript.ScriptName, True
WScript.Quit
End If
Else
oFSO.copyFile Wscript.ScriptFullName, usrProfile & WScript.ScriptName, True
End If
 
arrComputers = Array("dc01","dc02","dc03")
 
Dim objWMIService
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
usrProfile = WshS.ExpandEnvironmentStrings("%AllUsersProfile%\")
 
Function IsAlive (host)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2")
Set colResult = objWMIService.ExecQuery ("Select * from Win32_PingStatus " & "Where Address = '" & host & "'")
 
For Each Response In colResult
If Response.StatusCode = 0 Then
IsAlive = True
Else
IsAlive = False
End If
Next
End Function
 
Function ResolveIP(strComputer)
Dim wmiQuery, objWMIService, objPing, objStatus
 
wmiQuery = "Select * From Win32_PingStatus Where " & _
"Address = '" & strComputer & "'"
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
 
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
ResolveIP = "Computer is Unreachable!"
Else
ResolveIP = objStatus.ProtocolAddress
End If
Next
End Function
 
'--------------------------------------------------
 
do While (true)
 
dcAlive = false
For Each strComputer In arrComputers
If IsAlive (strComputer) Then 
dcAlive = true
End If
Next
 
brAlive = false
If objFSO.FolderExists("P:") Then
brAlive = true
End If
 
LocalMap = false
If objFSO.FileExists(usrProfile & "local.map") Then
LocalMap = true
End If
 
If not dcAlive and not brAlive Then
On error resume next
WshNetwork.RemoveNetworkDrive "P:",true
WshNetwork.MapNetworkDrive "P:","путь к папке в сети", false, "путь к папке в сети\diskmap","localdiskmaper"
 
Set oFlag = objFSO.CreateTextFile(usrProfile & "local.map")
End If
 
If dcAlive and not brAlive Then
On error resume next
WshNetwork.RemoveNetworkDrive "P:",true
WshNetwork.MapNetworkDrive "P:","\\путь к папке в сети\data", true
 
Set aFlag = objFSO.GetFile(usrProfile & "local.map")
aFlag.Delete
End if
 
If dcAlive and LocalMap Then
On error resume next
WshNetwork.RemoveNetworkDrive "P:",true
WshNetwork.MapNetworkDrive "P:","\\путь к папке в сети\data", true
 
Set aFlag = objFSO.GetFile(usrProfile & "local.map")
aFlag.Delete
End if
 
wscript.sleep 600000
 
Loop