ありがとうございます!
教えて頂いたところで聞いてみました!
返事がありましたら、こちらにもその内容を記載しようと思います^^
このブラウザーはサポートされなくなりました。
Microsoft Edge にアップグレードすると、最新の機能、セキュリティ更新プログラム、およびテクニカル サポートを利用できます。
IPアドレスを入力すると、
接続先のワークグループ名が表示されるようにしたいと思っております。
Dim objFileSys
Dim HostIP
Set objFileSys = CreateObject("Scripting.FileSystemObject")
NowPath=Replace(Wscript.ScriptFullName,WScript.ScriptName,"")
HostIP=Inputbox("IPアドレスを入力してください","IPアドレス")
If IsEmpty(HostIP)=TRUE or HostIP="" then
msgbox "終了します"
WScript.Quit
End if
とりあえず、IPアドレスを入力するところまでは完成しましたが
どうやってワークグループ名を取得すればいいのか分かりませんでした。
http://tunemicky.blogspot.jp/2012/08/vbscript-25.html
上記サイトのスクリプトをお借りして、
ワークグループ名を取得することはできましたが、
それは自分のワークグループ名でした。
相手先のワークグループ名を取得するには
どう変更すればいいのでしょうか?
よろしくお願いします。
ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。
ありがとうございます!
教えて頂いたところで聞いてみました!
返事がありましたら、こちらにもその内容を記載しようと思います^^