SQLの窓 イラストAC フリー素材

2018年02月12日

VBScript(WMI) : 共有一覧

共有の取得部分は、Select * from Win32_Share で取得できます。それらをコマンドプロンプトで見やすく表示させる為の関数を定義しています。



1) Crun : cscript.exe での実行の強制( コマンドプロンプトへの切り替え )
2) Dd : 文字列の処理
3) RpadB : 文字列整形用
4) ByteLen : RpadB 用

Call Crun()

' **************************************
' 共有一覧(WMI)
' **************************************
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In colShares
	Wscript.Echo RpadB(Share.Name, " ", 20) & " : " & Share.Path
Next


' **********************************************************
' Cscript.exe で実行を強制
' Cscript.exe の実行終了後 pause で一時停止
' **********************************************************
Function Crun( )

	Dim str,WshShell

	str = WScript.FullName
	str = Right( str, 11 )
	str = Ucase( str )
	if str <> "CSCRIPT.EXE" then
		str = WScript.ScriptFullName

		Set WshShell = CreateObject( "WScript.Shell" )

		strParam = " "
		For I = 0 to Wscript.Arguments.Count - 1
			if instr(Wscript.Arguments(I), " ") < 1 then
				strParam = strParam & Wscript.Arguments(I) & " "
			else
				strParam = strParam & Dd(Wscript.Arguments(I)) & " "
			end if
		Next
		Call WshShell.Run( "cmd.exe /c cscript.exe " & Dd(str) & strParam & " & pause", 1 )
		WScript.Quit
	end if

End Function
' **********************************************************
' 文字列を " で囲む関数
' **********************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End function
' **************************************
' 文字列の右側をスペースで埋める
' **************************************
Function RpadB( strValue, str, nLen )

	Dim strWork,nLen2

	strWork = Left( strValue & String(nLen,str), nLen )
	nLen2 = nLen

	Do While ByteLen( strWork ) > nLen
		nLen2 = nLen2 - 1
		if nLen2 <= 0 then
			Exit Do
		end if
		strWork = Left( strValue & String(nLen,str), nLen2 )
	Loop
	RpadB = strWork

End function
' **************************************
' 漢字と半角での横幅の計算
' **************************************
Function ByteLen( strTarget )

	Dim i,nLen,nRet,strMoji,nAsc

	nRet = 0

	nLen = Len( strTarget )

	For i = 1 to nLen
		nRet = nRet + 2
		strMoji = Mid( strTarget, i, 1 )
		nAsc = Asc( strMoji )
		if &H0 <= nAsc and nAsc <= &H80 then
			nRet = nRet - 1
		end if
		if &HA0 <= nAsc and nAsc <= &HDF then
			nRet = nRet - 1
		end if
		if &HFD <= nAsc and nAsc <= &HFF then
			nRet = nRet - 1
		end if
	Next

	ByteLen = nRet

End Function


全く同じ処理を以下の短いコードでも実行できます(関数を WEB 上に置いています)
<JOB>
<SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"></SCRIPT>
<SCRIPT language="VBScript">
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Call Crun()

' **************************************
' 共有一覧(WMI)
' **************************************
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In colShares
	Wscript.Echo RpadB(Share.Name, " ", 20) & " : " & Share.Path
Next

</SCRIPT>
</JOB>



タグ:VBScript WMI
【VBScriptの最新記事】
posted by at 2018-02-12 03:08 | VBScript | このブログの読者になる | 更新情報をチェックする

2018年02月08日

テキストエリアでタブ処理

ブラウザ上のテキストエリア( 複数行の入力 ) では、TAB キーによるタブコードの入力ができませんが、クリップボードから貼り付ける事はできます。

しかし、それでは直接ソースコードのタイプするのに苦労するのが実際です。

そこで、スクリプトを使って TAB コードの挿入を可能にし、通常のエディタのように、選択状態の内容に一括してタブコードを挿入してインデントできるようにしました。

SHIFT+TAB では 選択範囲のTAB コードを一括して削除します

実装コード
<script src="https://lightbox.sakura.ne.jp/toolbox/tabtextarea.js"></script>

<script>createTabTextArea("sample1");</script>></textarea>
<br>
<script>createTabTextArea("sample2",60,8,"myclass");</script>></textarea>

以下で入力できます。

> ここを 選択して タブキーを押す
>




タグ:javascript
posted by at 2018-02-08 12:42 | JavaScript | このブログの読者になる | 更新情報をチェックする

2018年02月04日

ドール・ガール / イラストAC / DAZ3D


イラストAC よりフリーダウンロード

古い Star! Original Figure をこねくり回してたら、眉毛が無くなって人形みたいになった。最新は、Star 2.0 for Genesis 3 Female ですが、そういえばあまり作って無いような...

そういや、DAZ3D のプロダクトに人形の関節持ったプロダクトがあったのを思い出した。今度安売りしてたら買ってしまおうか。人形はひょうっとしたら需要あるかもしれないし。

って、言ってるそばから 40% オフなってたので買う事にしよう。(たぶん1400円くらい)

▼ 結構いろいろ調整が面倒だったので、あまりおすすめでは無いです。

SF Ball Joint Doll Genesis 3 Female



専用の眉毛はありますが、ワザと無しでやってみました。まつげはデフォルトでは白で、なんか面倒な顔になるので Surface で黒に変更しています。

本当に、ジョイント部分が適当で、良くこんなもの売るなぁ...と思います。



タグ:イラストAC
posted by at 2018-02-04 20:13 | Comment(0) | イラストAC | このブログの読者になる | 更新情報をチェックする

宇宙人乗組員 / イラストAC / DAZ3D


イラストAC よりフリーダウンロード

もともと、象の怪物キャラだったんですが、ほぼ無料で手に入れた記憶があります。とにかく、使いどころの無いキャラではあったので殆ど使ってませんでした。

▼ 普通に創るとこんなふうになります。

EleBeast for Genesis 3 Male

なので、思いっきりいろいろ象の形状をできるだけ排除して、『宇宙人』というカテゴリにぶっこみました。





posted by at 2018-02-04 00:18 | Comment(0) | イラストAC | このブログの読者になる | 更新情報をチェックする

ギャラクシー・ガール / イラストAC / DAZ3D


イラストAC よりフリーダウンロード


イラストAC よりフリーダウンロード

いいかげん次々に新しいものを作るより、大量に作って来たキャラの顔のアップを撮ってみたくなったのですが、イラストAC に上げるというそれなりの目的もあるのでやはり シェーダー・カメラ位置・ライト をいろいろ試す事になって結構時間がかかります。

この娘は、ほとんどカスタマイズ無しのキャラクタですが、今自分の中で流行の『宇宙』の中でのシーンなので、そういう服装と視点にはなっています。(この娘は妖精キャラです)

という事で、イラストAC の画像だけじゃ寂しいので一枚創りました。







posted by at 2018-02-04 00:04 | Comment(0) | イラストAC | このブログの読者になる | 更新情報をチェックする

2018年02月03日

16進数と2進数の表変換


 
8 4 2 1 8 4 2 1
1 0 1 0 1 0 1 0

上記データは1バイトを表していますが、2進数では 10101010 になります。ビットが ON になっている場所のタイトルを足すと上位・下位ともに10進数で 10 になります。つまり、16進数では AA となる事を示しています。以下は、この方法を使用して16進数を2進数に変換しています

C 7
8 4 2 1 8 4 2 1
1 1 0 0 0 1 1 1

関連する記事

VBScriptで、ビットをスイッチとして使う記述
C言語における定数マクロ


※ 初期投稿 : 2006-11-29



posted by at 2018-02-03 17:53 | 資料 | このブログの読者になる | 更新情報をチェックする


Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX