濮阳兴龙湾别墅:ASP 获取MAC地址 限制

strIP = Request.ServerVariables("REMOTE_ADDR")
strMac = GetMACAddress(strIP)
strHost = Request.ServerVariables("REMOTE_HOST")
Function GetMACAddress(strIP)
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\" & strIP & ".txt")
macaddress = null
Do While Not ts.AtEndOfStream
data = ucase(trim(ts.readline))
If instr(data,"MAC ADDRESS") Then
macaddress = trim(split(data,"=")(1))
Exit Do
End If
loop
ts.close
Set ts = nothing
fso.deletefile "c:\" & strIP & ".txt"
Set fso = nothing
GetMACAddress = macaddress
End Function

这个在本地运行正常，可上传到。我们的服务器上，就不能运行了！

我查过了。wscript.network，wscript.shell，组件我们服务器都支持

sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP 难到问题出现在这吗？我把路改成这样也不行
sh.run "%comspec% /c nbtstat -A " & strIP & " > " &server.mappath(TempPath&strIP & ".txt"),0,true

希望大家给点思路！
？