批处理之家 » BAT求助&讨论 » [已解決]获取系统账号信息的批处理怎样改写成不需要临时文件？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 4

帖子: 94
积分: 329
技术: 1
捐助: 0
注册时间: 2009-12-27

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-11-27 04:30 | 只看该作者

[系统相关] [已解決]获取系统账号信息的批处理怎样改写成不需要临时文件？

本帖最后由 pdanniel66 于 2013-11-30 20:28 编辑

@echo off 
@For /f "tokens=1-3 delims=/ " %%a in ('date /t') do (set date=%%a%%b%%c) 
REM Collect Domain name and username 
for /f "delims=*" %%a in ('set user^|find /i /v "dns"^|find /i /v "profile"') do echo %%a >> 1.txt 
for /f "tokens=1-2 delims==" %%i in (1.txt) do echo %%j >> 2.txt 
REM Collect hostname 
hostname >>  2.txt 
REM Add comma 
for /f "tokens=1,2" %%i in (2.txt) do (echo %%i,>> 3.txt) 
REM Covert to single Line 
(for /f "delims=" %%a in (3.txt) do @set /p=%%a<nul)> %date%.csv 
exit 
复制代码

期待結果 ==> userdomain,username,hostname
如:HR,JOHN,NB001
或是可以簡化代碼 ?
謝謝!

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

2楼

发表于 2013-11-27 09:38 | 只看该作者

看不懂啊哦啊哦

Rank: 8 Rank: 8

帖子: 2874
积分: 7021
技术: 336
捐助: 0
注册时间: 2011-6-2

3楼

发表于 2013-11-27 09:58 | 只看该作者

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=/ " %%a in ('date /t') do (
    set "thisDate=%%a%%b%%c"
)
REM Collect hostname
for /f "delims=" %%a in ('hostname') do (
    set "thisHost=%%a"
)
REM Collect Domain name and username
(for /f "tokens=1* delims==" %%a in ('set user ^| findstr "USERDOMAIN USERNAME"') do (
    if "%%a" equ "USERDOMAIN" (
        set "thisDomain=%%b"
        set /a n+=1
    ) else if "%%a" equ "USERNAME" (
        set "thisUser=%%b"
        set /a n+=1
    )
    if !n! equ 2 (
        echo !thisDomain!,!thisUser!,!thisHost!
        set n=0
    )
))>%thisdate%.csv
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

Rank: 1

帖子: 30
积分: 70
技术: 5
捐助: 0
注册时间: 2013-11-18

4楼

发表于 2013-11-28 13:38 | 只看该作者

echo %USERDOMAIN%,%USERNAME%,%COMPUTERNAME%
pause
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

Rank: 1

帖子: 47
积分: 58
技术: 0
捐助: 0
注册时间: 2011-11-9

5楼

发表于 2013-11-28 15:48 | 只看该作者

laolong 发表于 2013-11-28 13:38

简单的东西被楼主复杂化了。。。

Rank: 4

帖子: 94
积分: 329
技术: 1
捐助: 0
注册时间: 2009-12-27

6楼

发表于 2013-11-30 20:27 | 只看该作者

謝謝4樓的回覆,問題解決了 !

Rank: 1

帖子: 10
积分: 25
技术: 0
捐助: 0
注册时间: 2013-12-2

7楼

发表于 2013-12-2 16:46 | 只看该作者

看不懂啊哦啊哦简单的东西被楼主复杂化了。。。