{"id":874,"date":"2018-10-19T19:00:34","date_gmt":"2018-10-19T10:00:34","guid":{"rendered":"https:\/\/vongg.com\/?p=874"},"modified":"2018-10-19T19:06:42","modified_gmt":"2018-10-19T10:06:42","slug":"windowslinux-%e8%87%aa%e5%8b%95%e3%83%97%e3%83%ad%e3%82%bb%e3%82%b9%e3%80%81os%e3%82%b7%e3%83%a3%e3%83%83%e3%83%88%e3%83%80%e3%82%a6%e3%83%b3","status":"publish","type":"post","link":"https:\/\/vongg.com\/?p=874","title":{"rendered":"windows,linux \u81ea\u52d5\u30d7\u30ed\u30bb\u30b9\u3001OS\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3"},"content":{"rendered":"

\u74b0\u5883\u8a2d\u5b9a\u30b7\u30fc\u30c8<\/p>\n\n\n\n\n\n\n\n\n\n\n
\u4f5c\u696d\u30d5\u30a9\u30eb\u30c0\u30fc<\/td>\nC:\\temp<\/td>\n\u2190\u4e8b\u524d\u306b\u624b\u52d5\u3067\u3053\u306e\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u4f5c\u6210\u3057\u3066\u304a\u304f\u3053\u3068\u3002<\/strong><\/td>\n<\/tr>\n
TeraTermEXE\u30d5\u30a1\u30a4\u30eb<\/td>\nC:\\Program Files (x86)\\teraterm-4.93\\ttermpro.exe<\/td>\n<\/td>\n<\/tr>\n
\u64cd\u4f5c\u533a\u5206<\/td>\nPing\u3067\u30c1\u30a7\u30c3\u30af<\/td>\n\u2190\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3001\u76f4\u63a5\u5165\u529b\u7981\u6b62<\/strong><\/td>\n<\/tr>\n
\u64cd\u4f5c\u8d77\u52d5<\/td>\nctl+d<\/td>\n<\/td>\n<\/tr>\n
Linux shutDown<\/td>\nshutdownxxxxxxxxxxxxxxxxxxxxxx -h now<\/td>\n\u2190OS\u306e\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3\u30b3\u30de\u30f3\u30c9\u306f\u3053\u3053\u306b\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u300cvmList_Stop\u300d\u3001\u300cvmList_Start\u300d\u306b\u66f8\u304b\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002<\/td>\n<\/tr>\n
windows shutDown \u79d2\u6570<\/td>\n1<\/td>\n\u2190windows \u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3\u307e\u3067\u306e\u6642\u9593\u306f\u3053\u3053\u306b\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u300cShutdown -t sec\u300d\u306eSec\u306e\u5024\u3067\u3059\u3002<\/td>\n<\/tr>\n
<\/td>\n<\/td>\n<\/td>\n<\/tr>\n
ctr+d\u3067\u5b9f\u884c<\/strong><\/td>\n<\/td>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

 <\/p>\n

vmList_Stop\u30b7\u30fc\u30c8<\/p>\n\n\n\n\n\n\n
IP<\/td>\nWindows
\nLinux<\/td>\n		\u5b9f\u884c
\n\u9593\u9694<\/td>\n		userNM<\/td>\npassword<\/td>\nlogin\u6210\u529fKeyword<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\n<\/tr>\n
XXXXXXXX<\/td>\nLinux<\/td>\n0:00:01<\/td>\nroot<\/td>\nnttdata<\/td>\n#<\/td>\nps aux |grep wrapperd<\/td>\nwrapperd.bin<\/td>\n\/opt\/SSO\/rc\/wrapperd stop<\/td>\nWebWrapper stopped<\/td>\nps aux |grep httpd<\/td>\nhttpd -DFOREGROUND<\/td>\nsystemctl stop httpd.service<\/td>\n#<\/td>\nps -aux | grep java<\/td>\ntomcat<\/td>\nsystemctl stop tomcat.service<\/td>\n#<\/td>\n<\/tr>\n
XXXXXXXX<\/td>\nLinux<\/td>\n0:00:01<\/td>\nroot<\/td>\nnttdata<\/td>\n#<\/td>\nps aux |grep httpd<\/td>\nhttpd -DFOREGROUND<\/td>\nsystemctl stop httpd.service<\/td>\n#<\/td>\nps -aux | grep java<\/td>\ntomcat<\/td>\nsystemctl stop tomcat.service<\/td>\n#<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/tr>\n
XXXXXXXX<\/td>\nWindows<\/td>\n0:00:01<\/td>\nAdministrator<\/td>\nNttdata1<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n <\/p>\n

 <\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

 <\/p>\n

vmList_Start\u30b7\u30fc\u30c8<\/p>\n\n\n\n\n\n\n\n
IP<\/td>\nWindows
\nLinux<\/td>\n		\u5b9f\u884c
\n\u9593\u9694<\/td>\n		userNM<\/td>\npassword<\/td>\nlogin\u6210\u529fKeyword<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\ncommand<\/td>\nwait<\/td>\n<\/tr>\n
xxx<\/td>\nLinux<\/td>\n0:00:01<\/td>\nroot<\/td>\nnttdata<\/td>\n#<\/td>\nsystemctl start tomcat.service<\/td>\n#<\/td>\nps -aux | grep java<\/td>\ntomcat<\/td>\nsystemctl start httpd.service<\/td>\n#<\/td>\nps aux |grep httpd<\/td>\nhttpd -DFOREGROUND<\/td>\n\/opt\/SSO\/rc\/wrapperd start<\/td>\nWebWrapper<\/td>\nps aux |grep wrapperd<\/td>\nwrapperd.bin<\/td>\n<\/tr>\n
xxx<\/td>\nLinux<\/td>\n0:00:01<\/td>\nroot<\/td>\nnttdata<\/td>\n#<\/td>\nsu postgres<\/td>\n$<\/td>\ncd<\/td>\n$<\/td>\npg_ctl -D \/opt\/pgsql\/data -l logfile start<\/td>\nserver starting<\/td>\nps aux |grep postgres<\/td>\npgsql<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/tr>\n
xxx<\/td>\nLinux<\/td>\n0:00:01<\/td>\nroot<\/td>\nnttdata<\/td>\n#<\/td>\n\/opt\/tomcat\/bin\/startup.sh<\/td>\nCATALINA_BASE<\/td>\nps axu | grep java<\/td>\ntomcat<\/td>\n\/opt\/apache2\/bin\/apachectl start<\/td>\n#<\/td>\nps axu | grep httpd<\/td>\nhttpd -k start<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/tr>\n
<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

 <\/p>\n

\u5165\u529b\u898f\u5247\u30b7\u30fc\u30c8<\/p>\n\n\n\n\n\n\n\n\n\n
\u64cd\u4f5c\u533a\u5206<\/td>\n<\/tr>\n
\u30d7\u30ed\u30bb\u30b9\u505c\u6b62\u4e14\u3064\u30b5\u30fc\u30d0\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3<\/td>\n<\/tr>\n
\u30b5\u30fc\u30d0\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3\u306e\u307f<\/td>\n<\/tr>\n
\u30d7\u30ed\u30bb\u30b9\u306e\u307f\u505c\u6b62<\/td>\n<\/tr>\n
\u30d7\u30ed\u30bb\u30b9\u306e\u307f\u8d77\u52d5<\/td>\n<\/tr>\n
Ping\u3067\u30c1\u30a7\u30c3\u30af<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

 <\/p>\n

Sub Macro1()
\n‘
\n‘ Macro1 Macro
\n‘
\n‘ Keyboard Shortcut: Ctrl+d
\n‘<\/p>\n

Call test
\nEnd Sub<\/p>\n

 <\/p>\n

Option Explicit
\nFunction CreateTTL(ByVal hostNmP As String, ByVal userNMP As String, ByVal passwordP As String, ByVal loginSuccessFlgP As String, ArrCommandP() As String, ArrComandTypeP() As String, ttlFileNMP As String)<\/p>\n

Dim FileNumber As Integer
\nDim FilePath As String
\nDim FilePath111 As String
\nDim TargetServer As String
\nDim TargetPort As String
\nDim userNm As String
\nDim password As String<\/p>\n

FileNumber = 1
\nFilePath111 = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(1, 2) + “\\” + Format(Now, “yyyymmdd”) + “\\”
\nIf Dir(FilePath111, vbDirectory) = “” Then
\nMkDir FilePath111
\nEnd If
\nFilePath = FilePath111 + hostNmP + “_” + ttlFileNMP + “.ttl”
\nTargetServer = hostNmP\u00a0 ‘ \u30b5\u30fc\u30d0\u30fc\u540d\u3092\u5165\u308c\u308b\u30bb\u30eb\u3092\u6307\u5b9a
\nuserNm = userNMP\u00a0 ‘ \u30ed\u30b0\u30a4\u30f3ID\u53f7\u3092\u5165\u308c\u308b\u30bb\u30eb\u3092\u6307\u5b9a
\npassword = passwordP ‘ \u30d1\u30fc\u30b9\u30ef\u30fc\u30c9\u3092\u5165\u308c\u308b\u30bb\u30eb\u3092\u6307\u5b9a<\/p>\n

‘ ttl\u4f5c\u6210
\nOpen FilePath For Output As #FileNumber<\/p>\n

Print #FileNumber, “; ==========================================”
\nPrint #FileNumber, “timeout = 5”
\nPrint #FileNumber, “HOST = ‘”; TargetServer; “‘”
\nPrint #FileNumber, “USERNAME = ‘”; userNm; “‘”
\nPrint #FileNumber, “PASSWORD = ‘”; password; “‘”
\nPrint #FileNumber, “LogPath = ‘”; FilePath111; “‘”
\nPrint #FileNumber, “strconcat target HOST”
\nPrint #FileNumber, “strconcat target ‘:22 \/ssh \/2 \/auth=password \/user='”
\nPrint #FileNumber, “strconcat target USERNAME”
\nPrint #FileNumber, “strconcat target ‘ \/passwd='”
\nPrint #FileNumber, “strconcat target PASSWORD”
\nPrint #FileNumber, “”
\nPrint #FileNumber, “; \u30b5\u30fc\u30d0\u3078\u306e\u63a5\u7d9a”
\nPrint #FileNumber, “connect target”
\nPrint #FileNumber, “wait ‘”; loginSuccessFlgP; “‘”
\nPrint #FileNumber, “pause 20”
\nPrint #FileNumber, “”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “; \u30ed\u30b0\u53d6\u5f97\u958b\u59cb”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “; \u30d5\u30a1\u30a4\u30eb\u540d\u8a2d\u5b9a”
\nPrint #FileNumber, “gettime LOG_NAME ‘%Y%m%d_%H%M%S_”; ttlFileNMP; “_IP_&h.log'”
\nPrint #FileNumber, “; \u30ed\u30b0\u51fa\u529b\u5148\u8a2d\u5b9a”
\nPrint #FileNumber, “fullpath = LogPath”
\nPrint #FileNumber, “strconcat fullpath LOG_NAME”
\nPrint #FileNumber, “; \u30ed\u30b0\u53d6\u5f97\u958b\u59cb”
\nPrint #FileNumber, “logopen fullpath 0 1”
\nPrint #FileNumber, “pause 5”
\nPrint #FileNumber, “”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “; \u30ed\u30b0\u30a4\u30f3\u5f8c\u51e6\u7406”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “; \u3053\u3053\u306b\u8272\u3005\u51e6\u7406\u8a18\u8ff0”
\nDim idx As Integer
\nFor idx = 0 To UBound(ArrCommandP) Step 1
\nIf “command” = ArrComandTypeP(idx) Then
\nIf ArrCommandP(idx) = “” Then
\nElse
\nPrint #FileNumber, “sendln ‘”; ArrCommandP(idx); “‘”
\nEnd If
\nElse
\nIf ArrCommandP(idx) = “” Then
\nElse
\nPrint #FileNumber, “wait ‘”; ArrCommandP(idx); “‘”
\nEnd If
\nEnd If
\nPrint #FileNumber, “pause 2”
\nNext idx
\nPrint #FileNumber, “”
\nPrint #FileNumber, “”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “; \u30ed\u30b0\u30a2\u30a6\u30c8\u51e6\u7406”
\nPrint #FileNumber, “; ==========================================”
\nPrint #FileNumber, “”
\nIf “Process_And_OS_Stop” = ttlFileNMP Or “OS_Only_stop” = ttlFileNMP Then<\/p>\n

Else
\nPrint #FileNumber, “pause 5”
\n‘Print #FileNumber, “sendln ‘exit'”
\nPrint #FileNumber, “logclose”
\nPrint #FileNumber, “closett”
\nEnd If
\nPrint #FileNumber, “”
\nClose #FileNumber<\/p>\n

‘ ttl\u5b9f\u884c
\nShell Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(2, 2) + ” \/M=” + FilePath<\/p>\n

End Function<\/p>\n

Sub test()
\nDim i As Integer
\nDim j As Integer
\nDim hostNm As String
\nDim userNm As String
\nDim password As String
\nDim loginSuccessFlg As String
\nDim windowsLinuxFlg As String
\nDim waitTimeTmp As String
\nDim ArrComand() As String
\nDim ArrIPs() As String
\nDim ArrComandType() As String
\nDim optType As String
\nDim optSheetNM As String
\nDim ttlFileNM As String
\nDim aa As String
\noptType = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(3, 2).Value
\nDim rc As Integer
\nIf optType = “\u30d7\u30ed\u30bb\u30b9\u306e\u307f\u505c\u6b62” Then
\nrc = MsgBox(optType + “\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u304b\uff1f”, vbYesNo + vbQuestion, “\u78ba\u8a8d”)
\nIf rc = vbYes Then
\nElse
\nExit Sub
\nEnd If
\nttlFileNM = “Process_Only_shutDown”
\noptSheetNM = “vmList_Stop”
\nElseIf optType = “\u30d7\u30ed\u30bb\u30b9\u306e\u307f\u8d77\u52d5” Then
\nrc = MsgBox(optType + “\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u304b\uff1f”, vbYesNo + vbQuestion, “\u78ba\u8a8d”)
\nIf rc = vbYes Then
\nElse
\nExit Sub
\nEnd If
\nttlFileNM = “Process_Only_Start”
\noptSheetNM = “vmList_Start”
\nElseIf optType = “\u30b5\u30fc\u30d0\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3\u306e\u307f” Then
\nrc = MsgBox(optType + “\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u304b\uff1f”, vbYesNo + vbQuestion, “\u78ba\u8a8d”)
\nIf rc = vbYes Then
\nElse
\nExit Sub
\nEnd If
\nttlFileNM = “OS_Only_stop”
\noptSheetNM = “vmList_Stop”
\nElseIf optType = “\u30d7\u30ed\u30bb\u30b9\u505c\u6b62\u4e14\u3064\u30b5\u30fc\u30d0\u30b7\u30e3\u30c3\u30c8\u30c0\u30a6\u30f3” Then
\nrc = MsgBox(optType + “\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u304b\uff1f”, vbYesNo + vbQuestion, “\u78ba\u8a8d”)
\nIf rc = vbYes Then
\nElse
\nExit Sub
\nEnd If
\nttlFileNM = “Process_And_OS_Stop”
\noptSheetNM = “vmList_Stop”
\nElseIf optType = “Ping\u3067\u30c1\u30a7\u30c3\u30af” Then
\nrc = MsgBox(optType + “\u51e6\u7406\u3092\u884c\u3044\u307e\u3059\u304b\uff1f”, vbYesNo + vbQuestion, “\u78ba\u8a8d”)
\nIf rc = vbYes Then
\nElse
\nExit Sub
\nEnd If
\nttlFileNM = “Ping”
\noptSheetNM = “vmList_Stop”
\nReDim ArrIPs(Worksheets(optSheetNM).Cells(Rows.Count, “A”).End(xlUp).Row – 2)
\nElse
\nMsgBox (“\u6b63\u3057\u3044\u64cd\u4f5c\u533a\u5206\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002”)
\nExit Sub
\nEnd If<\/p>\n

For i = 2 To Worksheets(optSheetNM).Cells(Rows.Count, “A”).End(xlUp).Row
\nhostNm = Worksheets(optSheetNM).Cells(i, 1)
\nwindowsLinuxFlg = Worksheets(optSheetNM).Cells(i, 2)
\nwaitTimeTmp = Worksheets(optSheetNM).Cells(i, 3)
\nuserNm = Worksheets(optSheetNM).Cells(i, 4)
\npassword = Worksheets(optSheetNM).Cells(i, 5)
\nloginSuccessFlg = Worksheets(optSheetNM).Cells(i, 6)
\nDim maxColumn As Integer
\nmaxColumn = Worksheets(optSheetNM).Cells(i, Columns.Count).End(xlToLeft).Column<\/p>\n

If “OS_Only_stop” = ttlFileNM Then
\n‘windows \u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nIf “Windows” = windowsLinuxFlg Then
\naa = CreateWindowsShutDownBat(hostNm, ttlFileNM, userNm, password)
\nCall waitTime(waitTimeTmp)
\nElse ‘linux\u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nReDim ArrComand(1)
\nReDim ArrComandType(1)
\nArrComand(1) = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(5, 2).Value
\nArrComandType(1) = “command”
\naa = CreateTTL(hostNm, userNm, password, loginSuccessFlg, ArrComand(), ArrComandType(), ttlFileNM)
\nCall waitTime(waitTimeTmp)
\nEnd If
\nElseIf “Process_And_OS_Stop” = ttlFileNM Then
\n‘windows \u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nIf “Windows” = windowsLinuxFlg Then
\naa = CreateWindowsShutDownBat(hostNm, ttlFileNM, userNm, password)
\nCall waitTime(waitTimeTmp)
\nElse ‘linux\u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nReDim ArrComand((maxColumn – 7) + 1)
\nReDim ArrComandType((maxColumn – 7) + 1)
\nFor j = 7 To maxColumn
\nArrComand(j – 7) = Worksheets(optSheetNM).Cells(i, j)
\nArrComandType(j – 7) = Worksheets(optSheetNM).Cells(1, j)
\nNext
\nArrComand((maxColumn – 7) + 1) = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(5, 2).Value
\nArrComandType((maxColumn – 7) + 1) = “command”
\naa = CreateTTL(hostNm, userNm, password, loginSuccessFlg, ArrComand(), ArrComandType(), ttlFileNM)
\nCall waitTime(waitTimeTmp)
\nEnd If
\nElseIf “Process_Only_shutDown” = ttlFileNM Or “Process_Only_Start” = ttlFileNM Then
\n‘windows \u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nIf “Windows” = windowsLinuxFlg Then
\n‘do nothing
\nElse ‘linux\u30b5\u30fc\u30d0\u306e\u51e6\u7406
\nReDim ArrComand((maxColumn – 7))
\nReDim ArrComandType((maxColumn – 7))
\nFor j = 7 To maxColumn
\nArrComand(j – 7) = Worksheets(optSheetNM).Cells(i, j)
\nArrComandType(j – 7) = Worksheets(optSheetNM).Cells(1, j)
\nNext
\naa = CreateTTL(hostNm, userNm, password, loginSuccessFlg, ArrComand(), ArrComandType(), ttlFileNM)
\nCall waitTime(waitTimeTmp)
\nEnd If
\nElseIf “Ping” = ttlFileNM Then
\nArrIPs(i – 2) = hostNm
\nElse
\nMsgBox (“\u6b63\u3057\u3044\u64cd\u4f5c\u533a\u5206\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002”)
\nExit Sub
\nEnd If
\nNext
\nIf “Ping” = ttlFileNM Then
\naa = CreatePingBat(ArrIPs(), ttlFileNM)
\nEnd If
\nEnd Sub
\nFunction waitTime(hhmmss As String)
\nDim waitTimeTmp As Variant
\nwaitTimeTmp = Now + TimeValue(hhmmss)
\nApplication.Wait waitTimeTmp
\nEnd Function<\/p>\n

Function CreateWindowsShutDownBat(hostNmP As String, ttlFileNMP As String, userNMP As String, passwordP As String)
\nDim FileNumber As Integer
\nDim FilePath As String
\nFileNumber = 1
\nFilePath = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(1, 2) + “\\” + Format(Now, “yyyymmdd”) + “\\”
\nIf Dir(FilePath, vbDirectory) = “” Then
\nMkDir FilePath
\nEnd If
\nFilePath = FilePath + hostNmP + “_” + ttlFileNMP + “.bat”<\/p>\n

‘ bat\u4f5c\u6210
\nOpen FilePath For Output As #FileNumber
\nPrint #FileNumber, “”
\nDim idx As Integer
\nPrint #FileNumber, “net use \\\\”; hostNmP; ” \/user:”; userNMP; ” “; passwordP; “”
\nPrint #FileNumber, “ping “; hostNmP; ” -n 5″ ‘wait 5 \u79d2
\nPrint #FileNumber, “shutdown \/m \\\\”; hostNmP; ” \/s \/f \/c ‘vm\u505c\u6b62’ \/t “; Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(6, 2); “”
\nPrint #FileNumber, “”
\nClose #FileNumber<\/p>\n

‘ bat\u5b9f\u884c
\nDim ShellObject As Object
\nSet ShellObject = CreateObject(“WScript.Shell”)
\nShellObject.Run FilePath, 1, True<\/p>\n

End Function<\/p>\n

Function CreatePingBat(hostArrayP() As String, ttlFileNMP As String)
\nDim FileNumber As Integer
\nDim FilePath As String
\nFileNumber = 1
\nFilePath = Worksheets(“\u74b0\u5883\u8a2d\u5b9a”).Cells(1, 2) + “\\” + Format(Now, “yyyymmdd”) + “\\”
\nIf Dir(FilePath, vbDirectory) = “” Then
\nMkDir FilePath
\nEnd If
\nFilePath = FilePath + ttlFileNMP + “.bat”<\/p>\n

‘ bat\u4f5c\u6210
\nOpen FilePath For Output As #FileNumber
\nPrint #FileNumber, “”
\nDim idx As Integer
\nFor idx = 0 To UBound(hostArrayP) Step 1
\nPrint #FileNumber, “ping “; hostArrayP(idx); ” -n 1″
\nNext idx
\nPrint #FileNumber, “pause ”
\nPrint #FileNumber, “”
\nClose #FileNumber<\/p>\n

‘ bat\u5b9f\u884c
\nDim ShellObject As Object
\nSet ShellObject = CreateObject(“WScript.Shell”)
\nShellObject.Run FilePath, 1, True<\/p>\n

End Function<\/p>\n

Function colorIt(cellStr As String)
\n‘Range(“A20”).Select
\nRange(cellStr).Select
\nWith Selection.Interior
\n.Pattern = xlSolid
\n.PatternColorIndex = xlAutomatic
\n.Color = 65535
\n.TintAndShade = 0
\n.PatternTintAndShade = 0
\nEnd With
\nEnd Function<\/p>\n

Sub LogJudge()<\/p>\n

Dim LogFile As String
\nDim FileNumber2 As Integer
\nDim Line As String<\/p>\n

LogFile = “C:\\temp\\log.txt”
\nFileNumber2 = 2<\/p>\n

Open LogFile For Input As FileNumber2
\nInput #FileNumber2, Line
\nIf Line Like “*flag*” Then
\nCells(12, 4).Value = “\u25cb”\u00a0\u00a0\u00a0 ‘ \u30ed\u30b0\u8a55\u4fa1\u7d50\u679c\u3092\u793a\u3059\u30bb\u30eb\u3092\u6307\u5b9a
\nElse
\nCells(12, 4).Value = “\u00d7”\u00a0\u00a0\u00a0 ‘ \u30ed\u30b0\u8a55\u4fa1\u7d50\u679c\u3092\u793a\u3059\u30bb\u30eb\u3092\u6307\u5b9a
\nEnd If<\/p>\n

Close #FileNumber2<\/p>\n

End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

\u74b0\u5883\u8a2d\u5b9a\u30b7\u30fc\u30c8 \u4f5c\u696d\u30d5\u30a9\u30eb\u30c0\u30fc C:\\temp \u2190\u4e8b\u524d\u306b\u624b\u52d5\u3067\u3053\u306e\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u4f5c\u6210\u3057\u3066\u304a\u304f\u3053\u3068\u3002 TeraTe […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[130,12],"tags":[],"_links":{"self":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/874"}],"collection":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=874"}],"version-history":[{"count":6,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/874\/revisions"}],"predecessor-version":[{"id":880,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/874\/revisions\/880"}],"wp:attachment":[{"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=874"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=874"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=874"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}