投稿日 | : 2004/06/11(Fri) 15:49 |
投稿者 | : S.S |
Eメール | : |
URL | : |
タイトル | : 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