役に立つTipsと備忘録集
ビジネスにおいて色々役に立つTipsと備忘録を集めています。知的財産権についての法律系、Excel、Access、Oracle等のシステムに関する技術系、資格取得などの情報が満載です。他に趣味としている、お小遣い稼ぎのポイントサイトやオンラインゲームのクラクラ情報も掲載しています。
【vbs】 画像ファイルの大きさを測定
画像ファイルの大きさを知りたいときに、画像にマウスをあてて右クリックをすれば知ることはできますが、今回はvbsを使用して画像の大きさを知ることができるソースを載せたいと思います。
※下のソースをコピーして、メモ帳を開きコピー後、任意の名前で保存してください。
※ 例) Ptest.vbs

-------------------------------------------------------------------
Option Explicit

Dim objPic

'大きさを測りたい画像を設定
'Cドライブのtestフォルダ内に「P1.jpg」という画像がある場合
Set objPic = LoadPicture("C:\test\P1.jpg")

'メッセージとして出力
WScript.Echo "【種類】 " & TypeName(objPic)

WScript.Echo "【大きさ】 " & _
"幅:" & CLng(CLng(objPic.Width) * 567 / 15000) & _
" x " & _
"高さ:" & CLng(CLng(objPic.Height) * 567 / 15000)

Set objPic = Nothing
-------------------------------------------------------------------

うまくいきましたでしょうか?

↓ よろしければ、下記ボタンをポチりとお願いしますm(_ _)m





テーマ:プログラミング - ジャンル:コンピュータ

【vbs】ネットワーク情報取得
Option Explicit
On Error Resume Next

Dim objWshNetwork

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
WScript.Echo "ドメイン:" & objWshNetwork.UserDomain
WScript.Echo "コンピュータ:" & objWshNetwork.ComputerName
WScript.Echo "ユーザー:" & objWshNetwork.UserName
Else
WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing


↓ よろしければ、下記ボタンをポチりとお願いしますm(_ _)m




テーマ:プログラミング - ジャンル:コンピュータ

【vbs】ドラッグアンドドロップで、ファイル名・作成日時・保存場所を取得
Set myFS = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 0 Then
MsgBox "フォルダ/ファイルをここにドロップして下さい"
wscript.quit
End If
Msgbox "しらべます"

'================================================
myCNT = 1
For Each myFName In WScript.Arguments
If myFS.FolderExists(myFName) Then
With myFS.GetFolder(myFName)
mm1 = .Name & ","
mm1 = mm1 & .DateLastModified & "," & .ParentFolder & vbCrLf
mm2 = myCNT & " " & .Name & vbCrLf
End With
mm = mm & mm1
If myCNT < 21 Then
mmP = mmP & mm2
myCNT = myCNT + 1
End If
End If
Next
'================================================
For Each myFName In WScript.Arguments
If myFS.FileExists(myFName) Then
With myFS.GetFile(myFName)
mm1 = .Name & ","
mm1 = mm1 & .DateLastModified & "," & .ParentFolder & vbCrLf
mm2 = myCNT & " " & .Name & vbCrLf
End With
mm = mm & mm1
If myCNT < 20 Then
mmP = mmP & mm2
myCNT = myCNT + 1
End If
End If
Next
Msgbox "コピーします" & vbcrlf & vbcrlf & mmP
'================================================
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Navigate "about:blank"
Do While myIE.Busy
Wscript.Sleep 10
Loop
myIE.Document.parentWindow.clipboardData.setData "text", mm
myIE.Quit
Msgbox "完了です 貼付け可能になりました"

テーマ:プログラミング - ジャンル:コンピュータ