我想PC1-PC500号机执行d:\a.exe
PC501-PC1000号执行d:\b.exe
怎么写

程序运行,先判断这台机的机器名

如果是pc1至pc500就执行d:\a.exe

如果机器名是pc501至pc1000就执行d:\b.exe

我试过这样写,不行...


Private Sub Form_Load()
a = VBA.Environ("computername")
For i = 1 To 500
Next
If a = pc(i) Then
Shell "d:\a.exe"
Else
Shell "d:\b.exe"
End If

End Sub

楼上,非常神勇,谢了