佐賀の学習システムのバッチファイルが酷すぎると話題に

dim domname1
dim domnum1
dim domu
dim domp
dim domsv
dim sccmsv
dim apbatpass

domname1 = getjoindomainname()  // ***.saga-ed.jp ?
domnum1 = left(domname1, 3)  // "***" ?
domu = domnum1 & "Ie\administrator "
domp = "Ie" & domnum1 & "Saga-Edu"
domsv = domnum1 &  "Lesv004"
sccmsv = domnum1 & "Lesv005"
adbatpass = "\\" & sccmsv & "\" & "app$" & "\06\app06.bat"

set wshshell = wscript.createobject("wscript.shell")

wshshell.run("runas /user:" & domu & apbatpass) //管理者権限でバッチファイルを実行
wscript.sleep 1000 //一秒待つ
wshshell.sendkeys domp // パスワード送出
wshshell.sendkeys "{ENTER}" // 改行送出
wscript.sleep 1000 //一秒待つ

Function GetJoinDomainName()
 
On Error Resume Next
   Err.Clear
  Dim objWMIService
  Dim objComputer
  Dim colComputers
  Dim StrRet
  strRet = ""
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & IPADDRESS & "\root\cimv2")

  Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

     For Each objComputer in colComputers
       strRet = objComputer.Domain
     Next

    GetJoinDomainName = strRet
  Err.Clear
End Function