Listing 1: Modify.vbs

Sub EditScript()
  Dim odistinguishedname, oUser, strpage, strDN, WshShell
  Set odistinguishedname = WScript.Arguments
  Set oUser = GetObject(odistinguishedname(0))
  strDN = oUser.distinguishedname
  Set wshShell = WScript.CreateObject("WScript.Shell")
  wshShell.Run "C:\usermod\UserUpdate.hta" & " " & CHR(34) & strDN & CHR(34)
  Set wshShell = Nothing
End Sub