マシン名を入力して、pingを飛ばし、そのマシンが起動しているかを判断する(在席確認)のプログラムを組もうと思っています。

winsok32って言うのを使うのかな~、と思ったのですが、どうやってパラメーターを使用するのか、調べられません。

どなたかご教授、お願いいたします。

A 回答 (2件)

pingのサンプルプログラムがあります。


APIを使用しています。

参考URL:http://www.geocities.co.jp/SiliconValley-SanJose …
    • good
    • 0
この回答へのお礼

助かりました。
ありがとうございました。

お礼日時:2001/06/29 18:26

API関数で出来ます



参考URL:http://www.mvps.org/vbnet/code/network/ping.htm
    • good
    • 0
この回答へのお礼

助かりました。
ありがとうございました。

お礼日時:2001/06/29 18:27

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いているブックのシ

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いているブックのシート1、シート2の各データをシート3に付けた転送ボタンをおして、「マクロ」というブックの「記録用紙1」「記録用紙2」名の各シートの各同セルに毎日データ転送しようと思います(4行目,5行目…)。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”K:¥$共有¥マクロ¥記録用紙.xlsmx”
ThisWorkbook.Activate
With Workbooks(”記録用紙.xlsmx”)

GYOU = .Sheets(”記録用紙1”).Range(”A” & Rows.Count).End(xlup).Row + 1
.Sheets(”記録用紙1”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value = Sheets(”記録用紙1”).Range(”A2:AA2000”).Value

GYOU = .Sheets(”記録用紙2”).Range(”A” & Rows.Count).End(xlup).Row + 1
.Sheets(”記録用紙2”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value = Sheets(”記録用紙2”).Range(”A2:W2000”).Value

End With
Range(”A2:AA6000”).Value = ””

End Sub


この様なマクロを組んでみました。転送ボタンを押しても、「保護の為、読み取り専用」というエラーメッセージが出て途中で止まってしまいます。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いているブックのシート1、シート2の各データをシート3に付けた転送ボタンをおして、「マクロ」というブックの「記録用紙1」「記録用紙2」名の各シートの各同セルに毎日データ転送しようと思います(4行目,5行目…)。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”K:¥$共有¥マクロ¥記録用紙.xlsmx”
This...続きを読む

Aベストアンサー

転送処理前にマクロで転送先のシート保護を外して、転送後にマクロでシート保護をかければ実現します。
シート保護と解除をマクロの自動記録させればコードも大体わかると思います。

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いいるシートに転送

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からC27まで、もしくはC23までのデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式1ならびに2の名前のシートにセルB9,C9,D9…といったように縦並びから横並びに変えて毎日までに転送しようと思います。(一括転送)
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Workbook.Open Filename:=”C:¥共有¥マクロ.xlsx”
ThisWorkbook.Activate
With Workbooks(”マクロ.xlsx”)

GYOU = .Sheets(”様式1”).Range(”A” & Rows.Count).End(xlUp).Row + 1
.Sheets(”様式1”).Range(”A” & GYOU & ”:AA” & GYOU + 1880).Value
=Sheets(”様式1”).Range(”A2:AA2000”).Value

GYOU = .Sheets(”様式2”).Range(”A” & Rows.Count).End(xlUp).Row + 1
.Sheets(”様式2”).Range(”A” & GYOU & ”:W” & GYOU + 1880).Value
=Sheets(”様式2”).Range(”A2:W2000”).Value

ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode =False

End Sub


この様なマクロを組んでみましたが、コンパイルエラーが出て、「変数が定義されていません」と表示されます。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からC27まで、もしくはC23までのデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式1ならびに2の名前のシートにセルB9,C9,D9…といったように縦並びから横並びに変えて毎日までに転送しようと思います。(一括転送)
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()...続きを読む

Aベストアンサー

「Workbook.Open Filename:=”C:¥共有¥マクロ.xlsx”」は
「Workbooks.Open Filename:="C:\共有\マクロ.xlsx"」です。

「Sub Macro1()」の後に
「Dim GYOU As Long」も必要です。

シート保護を解除するため「ActiveSheet.Unprotect」も必要です。

Qマクロについてどなたかご教授お願い致します。 全て同シートの作業です。 エクセルのセルコピーして値の

マクロについてどなたかご教授お願い致します。
全て同シートの作業です。
エクセルのセルコピーして値のみ貼り付けをするのですが、毎日貼り付けるセルが違うように設定したいのです。
C2が1日 D2が2日と毎日今日の日付に貼り付けたいです。マクロ記録ぐらいしか出来ない素人でございます。コピーする場所は毎回同じです。

Aベストアンサー

No3です。
すみません。セルのコピー&ペーストですね。
セルの値だけでなく、書式も含めてコピーされたいのなら、以下のようにしてください。
Option Explicit
Sub Macro1()
Dim colNo As Long
colNo = day(Date)
Range("A1").Copy
Cells(2, colNo).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
End Sub
コピー元はA1セルにしています。これは、あなたの環境に合わせてください。

Qエクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。 今開いいるシートに転送

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からF24までデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式名のシートにセルD7からG27までに転送しようと思います。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect
ActiveSheet.Protect User InterfaceOnly:=True
ActiveWindow.ScrollRow = 1
End Sub

Sub Macro1()

Workbook.Open Filename:=”C:¥共有¥マクロ.xlsm”
ThisWorkbook.Activate
With Workbooks(”マクロ.xlsm”)
Range(”C4:F24”).Select
Selection.Copy
Windows(”マクロ.xlsm”).Activate
Sheets(”様式”).Select
Range(”D7:G27”).Select

End With

End Sub


この様なマクロを組んでみました。転送ボタンを押して走るものの、転送元(C4からF24)で幾つかのデータを変更しても転送先のセルに変更は出来ていませんでした。

どの様に修正すれば良いのでしょうか?お手数をおかけして申し訳ございませんが、よろしくお願いします。

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いいるシートに転送ボタンを作成します。このシートのセルC4からF24までデータ(言葉や数値など)を、ボタンを押して、Cドライブ共有フォルダ内のマクロというブック、様式名のシートにセルD7からG27までに転送しようと思います。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect
ActiveSheet.Protect User InterfaceOnly:=True
ActiveWindow.ScrollRow =...続きを読む

Aベストアンサー

「With …」がないのに「End With」が2か所ありますがこれはなんですか?

一応全部書きましたが、ファイル名の所を変えたものを列挙するだけですが…
-------------------------------------------------
標準モジュールに
-------------------------------------------------
Sub Macro1()

Workbooks.Open Filename:="C:\共有\マクロ.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

Workbooks.Open Filename:="C:\共有\マクロ2.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ2.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

Workbooks.Open Filename:="C:\共有\マクロ3.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ3.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False

End Sub
-------------------------------------------------

「With …」がないのに「End With」が2か所ありますがこれはなんですか?

一応全部書きましたが、ファイル名の所を変えたものを列挙するだけですが…
-------------------------------------------------
標準モジュールに
-------------------------------------------------
Sub Macro1()

Workbooks.Open Filename:="C:\共有\マクロ.xlsm"
ActiveSheet.Unprotect
ThisWorkbook.Activate
Range("C4:F24").Select
Selection.Copy
Windows("マクロ.xlsm").Activate
Range("D7").Select
ActiveSheet.Paste
...続きを読む

QLAN内接続マシン数及びIP、マシン名の表示について

VB.NET、C言語を使用してLAN内に接続しているマシン数とそのマシンのコンピュータ名、IPを取得するプログラムを各言語で開発したいのですが参考になるものが無く困っています。
参考になるURLや方法を教えていただきたいです。
開発環境はVBはWin XPでVisual Studio 2003でC言語は gccでやろうと思っています。

Aベストアンサー

VB.NET ですが単体取得からリスト取得までたくさんありますよ。
自分仕様に合うように変更していったらいいと思います。
http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=vb.net+ip+%E3%83%9B%E3%82%B9%E3%83%88%E5%90%8D+%E4%B8%80%E8%A6%A7&num=50


人気Q&Aランキング

おすすめ情報