http://winofsql.jp/wsf/osInfo.wsf 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <COMMENT> ************************************************************ WEB WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <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" ) ' *********************************************************** ' Cscript.exe で強制実行 ' *********************************************************** Crun2 110 ' ********************************************************** ' 一覧( ローカル限定 ) ' ********************************************************** Set obj = GetObject("winmgmts:\\.\root\cimv2") Set colTarget = obj.ExecQuery( "select * from Win32_OperatingSystem" ) ' この場合行は1行しかありません For Each objRow in colTarget Set colProps = objRow.Properties_ For Each objProp in colProps Wscript.Echo Rpad(objProp.Name," ", 25 ) & " : " & objProp.Value Next Next </SCRIPT> </JOB>
<JOB> <COMMENT> ************************************************************ WEB WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <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" ) ' *********************************************************** ' Cscript.exe で強制実行 ' *********************************************************** Crun2 110 ' ********************************************************** ' 一覧( ローカル限定 ) ' ********************************************************** Set obj = GetObject("winmgmts:\\.\root\cimv2") Set colTarget = obj.ExecQuery( "select * from Win32_OperatingSystem" ) ' この場合行は1行しかありません For Each objRow in colTarget Set colProps = objRow.Properties_ For Each objProp in colProps Wscript.Echo Rpad(objProp.Name," ", 25 ) & " : " & objProp.Value Next Next </SCRIPT> </JOB>