LISTING 2: ObtainCompNames.vbs Code That You Customize

Set objExec = objShell.Exec("NETSH WINS SERVER \\WinsServerName SHOW NAME " _
     & strUserName & " 03")