Prog/VBScript/¥Í¥Ã¥È¥ï¡¼¥¯¥É¥é¥¤¥Ö¤Î¥Þ¥¦¥ó¥È¡¦¥¢¥ó¥Þ¥¦¥ó¥È
¤ò¥Æ¥ó¥×¥ì¡¼¥È¤Ë¤·¤ÆºîÀ®
¥È¥Ã¥×
¿·µ¬
°ìÍ÷
¸¡º÷
¥Ø¥ë¥×
³«»Ï¹Ô:
*¤Ï¤¸¤á¤Ë [#gf535ef8]
¥Í¥Ã¥È¥ï¡¼¥¯¥É¥é¥¤¥Ö¤ò´Êñ¤Ë¥Þ¥¦¥ó¥È¡¦¥¢¥ó¥Þ¥¦¥ó¥È¤¹¤ë¥Ä...
¥Î¡¼¥È£Ð£Ã¤Ê¤É»ý¤Á±¿¤ó¤Ç»È¤¦¾ì¹ç¤Ë¡¢¡Ö¼«Æ°¤ÇºÆÀܳ¡×ÀßÄê...
*»È¤¤Êý [#tcadaed2]
**½é´üÀßÄê [#xf4898bc]
¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤Î°ìÉô¤ò½ñ¤´¹¤¨¤Þ¤¹¡£
ÀܳÀè¥É¥é¥¤¥Ö¤ò»ØÄꤷ¤Þ¤¹¡£
sMapDrive = "P:"
Àܳ¸µ¤Î¶¦Í¥Õ¥©¥ë¥À¤ò»ØÄꤷ¤Þ¤¹¡£
sShareFolder = "\\192.168.0.2\share"
**¥Þ¥¦¥ó¥È¡¦¥¢¥ó¥Þ¥¦¥ó¥È¤·¤¿¤¤¤È¤ [#z7b67824]
¡ÉsMapDrive ¡É¤Ë»ØÄꤷ¤Æ¤¤¤ë¥É¥é¥¤¥Ö¤Î¾õÂÖ¤ò³Îǧ¤·¤Æ¤«¤éÆ°...
ñ½ã¤Ë¤³¤Î¥¹¥¯¥ê¥×¥È¤ò¼Â¹Ô¤¹¤ë¤À¤±¤Çµ¡Ç½¤·¤Þ¤¹¡£
-¥Þ¥¦¥ó¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç
¢ª¥Þ¥¦¥ó¥È¤·¤Þ¤¹¡£
-¥Þ¥¦¥ó¥È¤µ¤ì¤Æ¤¤¤ë¾ì¹ç
¢ª¥¢¥ó¥Þ¥¦¥ó¥È¤·¤Þ¤¹¡£
*¥½¡¼¥¹ [#j2311587]
'-------------------------------------------------------...
' ¤Ï¤Á¤Ý¤Á»Ù±ç¥Ä¡¼¥ë
'
' MapNetworkDrive
'
' by myasu
'-------------------------------------------------------...
' wshMapNetworkDrive.vbs ¥á¥¤¥ó
' Ver.0.10 2009/2/3 myasu
'-------------------------------------------------------...
Option Explicit
'On Error Resume Next
'-------------------------------------------------------...
' ÊÑ¿ôÄêµÁ
'-------------------------------------------------------...
Dim objNetwork, objFSO
Dim sMapDrive, sShareFolder, bAutoMount, sUser, sPassword
'-------------------------------------------------------...
' ÀßÄê
'-------------------------------------------------------...
sMapDrive = "P:" 'ÀܳÀè¥É¥é¥¤¥Ö
sShareFolder = "\\192.168.0.2\share" 'Àܳ¸µ¤Î¶¦Í¥Õ¥©...
bAutoMount = false 'ºÆµ¯Æ°»þ¤Î¼«Æ°Àܳ
'-------------------------------------------------------...
' ¼ç½èÍý
'-------------------------------------------------------...
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'ÀܳÀè¥É¥é¥¤¥Ö¤Î³Îǧ
If objFSO.DriveExists(sMapDrive) Then
'ÀܳÃæ¤Ê¤é
UnMount
Else
'̤Àܳ¤Ê¤é
Mount
End If
'-------------------------------------------------------...
' Àܳ
'-------------------------------------------------------...
sub Mount
sMapDrive = sMapDrive
objNetwork.MapNetworkDrive sMapDrive, sShareFolder, bAu...
If Err.Number <> 0 Then
MsgBox Err.Description
End If
end sub
'-------------------------------------------------------...
' ÀÚÃÇ
'-------------------------------------------------------...
sub UnMount
objNetwork.RemoveNetworkDrive sMapDrive
If Err.Number <> 0 Then
MsgBox Err.Description
End If
end sub
*»²¹Í [#gba3fadc]
²¼µ¥µ¥¤¥È¤ò»²¹Í¤Ë¤µ¤»¤Æ¤¤¤¿¤À¤¤Þ¤·¤¿¡£
-http://www.atmarkit.co.jp/fwin2k/operation/wsh08/wsh08_0...
-http://www33.ocn.ne.jp/~yfuku/wshsampl.html
RIGHT:2009-12-31 (ÌÚ) 22:00:08
----
[[Prog]]
½ªÎ»¹Ô:
*¤Ï¤¸¤á¤Ë [#gf535ef8]
¥Í¥Ã¥È¥ï¡¼¥¯¥É¥é¥¤¥Ö¤ò´Êñ¤Ë¥Þ¥¦¥ó¥È¡¦¥¢¥ó¥Þ¥¦¥ó¥È¤¹¤ë¥Ä...
¥Î¡¼¥È£Ð£Ã¤Ê¤É»ý¤Á±¿¤ó¤Ç»È¤¦¾ì¹ç¤Ë¡¢¡Ö¼«Æ°¤ÇºÆÀܳ¡×ÀßÄê...
*»È¤¤Êý [#tcadaed2]
**½é´üÀßÄê [#xf4898bc]
¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤Î°ìÉô¤ò½ñ¤´¹¤¨¤Þ¤¹¡£
ÀܳÀè¥É¥é¥¤¥Ö¤ò»ØÄꤷ¤Þ¤¹¡£
sMapDrive = "P:"
Àܳ¸µ¤Î¶¦Í¥Õ¥©¥ë¥À¤ò»ØÄꤷ¤Þ¤¹¡£
sShareFolder = "\\192.168.0.2\share"
**¥Þ¥¦¥ó¥È¡¦¥¢¥ó¥Þ¥¦¥ó¥È¤·¤¿¤¤¤È¤ [#z7b67824]
¡ÉsMapDrive ¡É¤Ë»ØÄꤷ¤Æ¤¤¤ë¥É¥é¥¤¥Ö¤Î¾õÂÖ¤ò³Îǧ¤·¤Æ¤«¤éÆ°...
ñ½ã¤Ë¤³¤Î¥¹¥¯¥ê¥×¥È¤ò¼Â¹Ô¤¹¤ë¤À¤±¤Çµ¡Ç½¤·¤Þ¤¹¡£
-¥Þ¥¦¥ó¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç
¢ª¥Þ¥¦¥ó¥È¤·¤Þ¤¹¡£
-¥Þ¥¦¥ó¥È¤µ¤ì¤Æ¤¤¤ë¾ì¹ç
¢ª¥¢¥ó¥Þ¥¦¥ó¥È¤·¤Þ¤¹¡£
*¥½¡¼¥¹ [#j2311587]
'-------------------------------------------------------...
' ¤Ï¤Á¤Ý¤Á»Ù±ç¥Ä¡¼¥ë
'
' MapNetworkDrive
'
' by myasu
'-------------------------------------------------------...
' wshMapNetworkDrive.vbs ¥á¥¤¥ó
' Ver.0.10 2009/2/3 myasu
'-------------------------------------------------------...
Option Explicit
'On Error Resume Next
'-------------------------------------------------------...
' ÊÑ¿ôÄêµÁ
'-------------------------------------------------------...
Dim objNetwork, objFSO
Dim sMapDrive, sShareFolder, bAutoMount, sUser, sPassword
'-------------------------------------------------------...
' ÀßÄê
'-------------------------------------------------------...
sMapDrive = "P:" 'ÀܳÀè¥É¥é¥¤¥Ö
sShareFolder = "\\192.168.0.2\share" 'Àܳ¸µ¤Î¶¦Í¥Õ¥©...
bAutoMount = false 'ºÆµ¯Æ°»þ¤Î¼«Æ°Àܳ
'-------------------------------------------------------...
' ¼ç½èÍý
'-------------------------------------------------------...
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'ÀܳÀè¥É¥é¥¤¥Ö¤Î³Îǧ
If objFSO.DriveExists(sMapDrive) Then
'ÀܳÃæ¤Ê¤é
UnMount
Else
'̤Àܳ¤Ê¤é
Mount
End If
'-------------------------------------------------------...
' Àܳ
'-------------------------------------------------------...
sub Mount
sMapDrive = sMapDrive
objNetwork.MapNetworkDrive sMapDrive, sShareFolder, bAu...
If Err.Number <> 0 Then
MsgBox Err.Description
End If
end sub
'-------------------------------------------------------...
' ÀÚÃÇ
'-------------------------------------------------------...
sub UnMount
objNetwork.RemoveNetworkDrive sMapDrive
If Err.Number <> 0 Then
MsgBox Err.Description
End If
end sub
*»²¹Í [#gba3fadc]
²¼µ¥µ¥¤¥È¤ò»²¹Í¤Ë¤µ¤»¤Æ¤¤¤¿¤À¤¤Þ¤·¤¿¡£
-http://www.atmarkit.co.jp/fwin2k/operation/wsh08/wsh08_0...
-http://www33.ocn.ne.jp/~yfuku/wshsampl.html
RIGHT:2009-12-31 (ÌÚ) 22:00:08
----
[[Prog]]
¥Ú¡¼¥¸Ì¾: