| 投稿日 | ： 2004/06/11(Fri) 15:49 |
| 投稿者 | ： S.S |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: VBアプリを特定のマシンでしか動かなくするには？ |
> strGetSQL = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress IS NOT NULL&qu
ot;
> For Each objWinmgmts In GetObject("winmgmts:").ExecQuery(strGetSQL)
> MsgBox "MACアドレス:" & objWinmgmts.MACAddress & vbCrLf &
_
> "ポート名 :" & objWinmgmts.Name
> Next
>
すみません、変数を宣言してくださいね(^^;↓
Dim objWinmgmts As Object
Dim strGetSQL As String