========================================================================================================================
「ASP001スタジオが開発した実用的な機能プログラムを使用していただきありがとうございます
'http://www.asp001.net
'===========================================================================================================================================================================================================================================================================================夢
'QQ：1974229
'電子メール：[email protected]
'その他のプログラムをダウンロードするには、http：//www.asp001.netにアクセスしてください
'=====================================================================================================================
'関数の紹介：ASPを使用してWebサイトの指定を開始/停止します
'この関数はADSIを使用し、管理者グループユーザー許可を必要とします
'関数名：adminwebsite（コンピューター、websitenum、dowhat）
'プログラム開発：ASP001 Studio Chuqi
'使用法：adminwebsite（コンピューター名、サイト番号、開始/停止）
'例：127.0.0.1コンピューターでサイト番号1のサイトを開始します
'Adminwebsite "127.0.0.1"、 "1"、1
'例：127.0.0.1コンピューターのサイト番号1でサイトを停止します
'Adminwebsite "127.0.0.1"、 "1"、0
'=====================================================================================================================
functionadminwebsite（コンピューター、websitenum、dowhat）
onerrorresumenext
setobjserver = getObject（ "iis：//"＆ "/w3svc/"＆websitenum）
iferr.Number <> 0then
Response.WriteNow＆ "。エラーコード："＆hex（err）＆ " - "＆ "指定されたサイトを開くことはできません<br>"
endif
ifdowhat = 1then
'サイトを開始します
objserver.start
iferr.Number <> 0then
Response.Write「指定されたWebサイト<br>を起動できません」
それ以外
Response.Write「指定されたWebサイトが開始されました<br>」
endif
elseifdowhat = 0then
'STOPを使用してサイトを停止します
objserver.stop
iferr.Number <> 0then
response.write「Webサイトの指定を停止できません<br>」
それ以外
Response.Write「Webサイトの指定が停止した<br>」
endif
endif
エンド機能