start GetWindowsType_WithTempFile.cmd
if %ERRORLEVEL%==0 (      
      echo "client!"
)
else (      
      echo "server!"
)

'====================================================================================
' Назначение: Создание файлов с именами существующих устройств и информацией о них
' Параметр:   "<Путь назначения>"
' Автор:      Flasher ©
'====================================================================================
If WScript.Arguments.Count = 0 Then : MsgBox "Не указан параметр!", 48 : WScript.Quit : End If
Path = WScript.Arguments(0) : If Right(Path, 1) <> "\" Then Path = Path & "\"
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set DRV = WMI.ExecQuery("Select * from Win32_PnPSignedDriver")
Set FSO = CreateObject("Scripting.FileSystemObject") : B = vbTab : Const M = 1
For Each I in DRV
For Each V in WMI.ExecQuery("Select Name, Description, ClassGUID, Service, Status from " & _
"Win32_PnPEntity WHERE DeviceID = '" & Replace(I.DeviceID, "\", "\\") & "'")
  F1 = V.Description : F2 = V.Name
  If F1 <> F2 Then I1 = F1 & " (" & F2 & ")" & L Else I1 = F1 & vbnewline
  I1 =                    "Название:"             &B;&B;& I1
  F V.ClassGuid,          "GUID:"               &B;&B;&B;, I2
  F V.Service,            "Служба:"             &B;&B;&B;, I7
  F V.Status,             "Состояние:"            &B;&B;, I19
Next
  F I.DeviceID,           "ID устройства:"        &B;&B;, I3
  F I.CompatID,           "Совместимый ID:"       &B;&B;, I4
  F I.HardWareID,         "ID аппаратуры:"        &B;&B;, I5
  F I.DeviceClass,        "Класс устройства:"     &B;&B;, I6
  F I.DriverName,         "Имя драйвера:"         &B;&B;, I8
  F I.DriverProviderName, "Поставщик драйвера:"     &B;, I9
  F I.DriverVersion,      "Версия драйвера:"      &B;&B;, I10
  F I.FriendlyName,       "Понятное имя:"         &B;&B;, I12
  F I.InfName,            "Имя INF-файла:"        &B;&B;, I13
  F I.InstallDate,        "Дата установки:"       &B;&B;, I14
  F I.Signer,             "Сертифицирован:"       &B;&B;, I15
  F I.PDO,                "Объекты данных PHP:"     &B;, I16
  F I.Location,           "Аппаратная локализация:" &B;, I17
  F I.Manufacturer,       "Производитель:"        &B;&B;, I18
  InD = I.DriverDate : If Trim(Ind) <> "" Then _
  I11 =                   "Драйвер зарегистрирован:"&B;&_
  Mid(InD, 7, 2) & "." & Mid(InD, 5, 2) & "." & Left(InD, 4) & vbnewline
  Info = I1&I2;&I3;&I4;&I5;&I6;&I7;&I8;&I9;&I10;&I11;&I12;&I13;&I14;&I15;&I16;&I17;&I18;&I19;
  Fl = Replace(F2, "/", "-") : Name = Fl & ".txt" : l = 0
  Do While FSO.FileExists(Path & Name)
    l = l + 1
    If l < 10^M Then PostFix = Right(String(M, "0") & l, M) Else PostFix = l
    Name = Fl & " (" & PostFix & ").txt"
  Loop : Set File = FSO.OpenTextFile(Path & Name, 2, True)
  File.Write Left(Info, Len(Info) - 2) : File.Close
Next : CreateObject("WScript.Shell").Popup "Файлы созданы!", 1.5, Space(15) & "Результат", 64
Set WMI = Nothing : Set DRV = Nothing : Set FSO = Nothing : WScript.Quit
Sub F(D, Tx, T)
  N = Trim(D) : If N <> "" Then T = Tx & N & vbNewLine
End Sub

' CreateFolderDateFormat.vbs
'========================   Описание   =====================================
' Создаёт папку именем текущей даты, в заданном формате
'=======================   Параметры  =====================================
' 1-й параметр: Путь\к\папке\где\создаётся\папка
' 2-й параметр: Формат даты (вместо пробелов ставить ~~)
'         YYYY - год YY - короткий год
'         MM - месяц
'         DD - день
'         HH - час
'         NN - минуты
'         SS - секунды
' 3-й параметр: Вставка до даты
' 4-й параметр: Вставка после даты
'========================   Примеры   =====================================
' %p YYYY.MM.DD~~-~~HH.NN.SS - папка создаётся в текущей папке активной панели
' %P%N YY.MM.DD                           - папка создаётся в папке под курсором
' %t YYYY.MM.DD "[" "]"                 - папка создаётся в текущей папке в другой панели
' без параметров папка создаётся в папке скрипта

' Автор:             Аверин Андрей
' Версия:          1.1 (24.06.2012 - 01.07.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru/forum/3-512-2259-16-1340484934
'========================================================================
Dim FD, ST
Into = "" : After = "" : F ="YYYY.MM.DD~~-~~HH.NN.SS"
FL = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
With WScript
   Cnt = .Arguments.Count
   If Cnt > 0 Then
     FL = .Arguments(0)
     If Cnt > 1 Then
       F = .Arguments(1)
       If Cnt > 2 Then
         Into = .Arguments(2) : If Cnt > 3 Then After  = .Arguments(3)
       End If
     End If
   End If
End With

F = Replace(F, "~~", Chr(32)) : Syn = Mid(F, 1, 1) : D = Date : T = Time : SD = "YMDHNS"
DD = Array(Year(D), Month(D), Day(D), Hour(T), Minute(T), Second(T))
AD = Array("Y", "M", "D", "H", "N", "S")
For i = 1 To Len(F)
   Sym = Mid(F, i, 1)
   If InStr(SD, Sym) = 0 Then
     If Len(ST) > 0 Then Call Plus
     FD = FD & Sym : Syn = Mid(F, i+1, 1)
   Else
     If Syn = Sym Then : ST = ST & Sym : Else : Call Plus : End If
   End If
Next
Call Plus

With CreateObject("Scripting.FileSystemObject")
   If Mid(FL,Len(FL),1) <> "\" Then FL = FL & "\"
   NF = FL & Into & FD & After
   If .FolderExists(FL) And Not .FolderExists(NF)Then .CreateFolder(NF)
End With
Sub Plus : FD = FD & Right("0" & DD(InStr(SD, Syn) - 1), Len(ST)) : ST = "" : End Sub

' ProcessInfoText.vbs
'========================   Описание   =====================================
' Создание файлов с именами запущенных процессов и информацией о них
' Параметр:   "<Путь назначения>"
' Пример: %p
' (без параметров файлы создаются в папке скрипта)
' Автор:             Аверин Андрей
' Версия:          1.1 (24.06.2012 - 28.06.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru/forum/3-319-2260-16-1340488152
'========================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count > 0 Then
   Path = WScript.Arguments(0)
Else
   Path = FSO.GetParentFolderName(WScript.ScriptFullName)
End If
If Not FSO.FolderExists(Path) Then WQuit
If Mid(Path,Len(Path),1) <> "\" Then Path = Path & "\"
vb = vbNewLine : ff = 1

For Each PRS In GetObject("WinMgmts:\\.\Root\CIMV2").ExecQuery("SELECT * FROM Win32_Process",,48)
   Name = PRS.Name
   Info = "Name: " & Name & vb &_
   "Description: " & PRS.Description & vb &_
   "Handle: " & PRS.Handle & vb &_
   "Parent Process Id: " & PRS.ParentProcessId & vb &_
   "Command Line: " & PRS.CommandLine & vb &_
   "Creation Date: " & PRS.CreationDate & vb &_
   "Executable Path: " & PRS.ExecutablePath & vb &_
   "Priority: " & PRS.Priority & vb &_
   "Maximum WorkingSet Size: " & PRS.MaximumWorkingSetSize & vb &_
   "Minimum WorkingSet Size: " & PRS.MinimumWorkingSetSize & vb &_
   "Page File Usage: " & PRS.PageFileUsage & vb &_
   "Peak Virtual Size: " & PRS.PeakVirtualSize & vb &_
   "Peak WorkingSet Size: " & PRS.PeakWorkingSetSize
   nFile = Path & Name & ".txt"
   If FSO.FileExists(nFile) Then nFile = FFNoExistCount(nFile)
   FSO.CreateTextFile(nFile).Write Info
Next
WQuit

Function FFNoExistCount(FOF)
     fPath = FSO.GetParentFolderName(FOF) & "\" : fName = FSO.GetBaseName(FOF)
     fExt = FSO.GetExtensionName(FOF) : exPath = FOF
     Do While (FSO.FileExists(exPath) Or FSO.FolderExists(exPath))
       ff = ff + 1 : exPath = fPath & fName & "_" & (ff Mod 100)\10 & (ff Mod 10) & "." & fExt
     Loop
   FFNoExistCount = exPath : ff = 1
End Function

Sub WQuit : Set FSO = Nothing : WScript.Quit : End Sub

TOTALCMD#BAR#DATA
"D:\1\CreateFolderDateFormat.vbs"
%p YYYY.MM.DD~~-~~HH.NN.SS
C:\Windows\System32\SHELL32.DLL,4
Создание папки с именем даты

-1